Excel n’est qu’un tableur… Bah voyons !

Short link: http://bit.ly/mFZ92g

Le programme de la soirée (et d’une partie de la nuit) : création d’un fichier Excel “avancé” intégrant des fonctions particulièrement complexes et pour éviter de copier 20 fois la même formule, je fais des sub… En clair, du développement pure en VBA !

C’est alors qu’en discutant avec quelques rares contacts connectés que l’un d’eux me sort : mais Excel, c’est juste un pauv’ tableur sans danger!

Malgré le fait que les us et coutumes voudraient que notre cher ami Excel ne soit qu’un vulgaire tableur… il parait que l’on peut y mettre du VBA avec… Lisez la suite si vous pensez qu’un fichier excel est 100% sans risque !

L’inoffensif petit fichier excel!

Rassurez vous, il est totalement sans danger, c’est seulement pour vous mettre en garde.

Voyons en détails ce que fait mon fichier Excel avec prise en charge des macro (*.xlsm).
Une fois mon innocent tableau lancé, allez donc regarder à la racine C (poste de travail, Disque local (C:) ou Ordinateur, Disque local (C:)).
Concrètement, il affiche votre nom d’utilisateur, date et heure du système, affiche votre IP et l’Ipconfig de votre machine et génère deux fichier à la racine de C.

Aussi, libre à vous de vous amusez avec les deux boutons présents, l’un générant les fichiers, l’autre les effaçant. ici encore, quand vous effacez les fichiers, Windows ou Excel vous demande une confirmation ?! Non, alors imaginez donc les dégâts si un petit malin voulait nettoyer votre dossier c:Windows ou pire encore, votre dossier “Mes Documents” ?!

Voilà ma bonne action de la semaine, vous serez maintenant prudent quand on vous enverra un pauv’ fichier de tableur…
Ps : ça fonctionne aussi avec Word, Access etc… Dans la majorité des cas, votre logiciel de bureautique préféré vous demandera avant d’activer le contenu “codé en VBA” mais pas sur tous les cas, alors prudence !

1 : Ouverture du fichier

Private Sub Workbook_Open()
    Range("A1") = Environ("username")
    Range("B1") = Now
    getIP
    writeIPConfig
    writeSysFiles
    getIPConfig
End Sub

Private Sub Workbook_Open()

Range("A1") = Environ("username")

Range("B1") = Now

getIP

writeIPConfig

writeSysFiles

getIPConfig

End Sub

2 : Les Subs lancés sont tous dans le module nommé “mod_start” que voici !

Option Explicit

'Récupérer l'adresse ip du client
Sub getIP()
    Dim wsh As Object
    Dim RegEx As Object, RegM As Object
    Dim FSO As Object, fil As Object
    Dim ts As Object, txtAll As String, TempFil As String
    Set wsh = CreateObject("WScript.Shell")
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set RegEx = CreateObject("vbscript.regexp")
    TempFil = "C:myip.txt"
    wsh.Run "%comspec% /c ipconfig > " & TempFil, 0, True
    With RegEx
        .Pattern = "(d{1,3}.){3}d{1,3}"
        .Global = False
    End With
    Set fil = FSO.GetFile(TempFil)
    Set ts = fil.OpenAsTextStream(1)
    txtAll = ts.ReadAll
    Set RegM = RegEx.Execute(txtAll)
    ActiveSheet.Range("B3").Value = RegM(0)
    ActiveSheet.Range("B3").EntireColumn.AutoFit
    ts.Close
    Kill TempFil
    Set ts = Nothing
    Set wsh = Nothing
    Set fil = Nothing
    Set FSO = Nothing
    Set RegM = Nothing
    Set RegEx = Nothing
End Sub

'Ecrire l'ipconfig dans c:
Sub writeIPConfig()
    Dim wsh As Object
    Dim RegEx As Object
    Dim FSO As Object, fil As Object
    Dim ts As Object, txtAll As String, TempFil As String
    Set wsh = CreateObject("WScript.Shell")
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set RegEx = CreateObject("vbscript.regexp")
    wsh.Run "%comspec% /c ipconfig /all > " & "C:ipconfig.txt", 0, True
    With RegEx
        .Pattern = "(d{1,3}.){3}d{1,3}"
        .Global = False
    End With
    Set ts = Nothing
    Set wsh = Nothing
    Set fil = Nothing
    Set FSO = Nothing
    Set RegEx = Nothing
End Sub

'Ecrire la liste des fichiers système dans c:
Sub writeSysFiles()
    Dim wsh As Object
    Dim RegEx As Object
    Dim FSO As Object, fil As Object
    Dim ts As Object, txtAll As String, TempFil As String
    Set wsh = CreateObject("WScript.Shell")
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set RegEx = CreateObject("vbscript.regexp")
    wsh.Run "%comspec% /c dir /s > " & "C:SysFiles.txt", 0, True
    With RegEx
        .Pattern = "(d{1,3}.){3}d{1,3}"
        .Global = False
    End With
End Sub

'Afficher l'ipconfig dans excel
Sub getIPConfig()
    Sheets("Feuil1").Select
    Range("A5").Select
    Dim objShell As Object
    Dim intFile As Integer, intRow As Integer, intColumn As Integer
    Dim strCurrentLine As String
    Set objShell = CreateObject("Wscript.Shell")
    objShell.Run ("%comspec% /c ipconfig /all > C:ipcfg.txt")
    Set objShell = Nothing
    Application.Wait Now + 0.00003
    intFile = FreeFile
    intRow = ActiveCell.Row
    intColumn = ActiveCell.Column
    Open "C:ipcfg.txt" For Input As #intFile
    Do
      Line Input #intFile, strCurrentLine
      Select Case Len(strCurrentLine)
        Case 0
          intRow = intRow - 1
        Case Is < 43
          Cells(intRow, intColumn) = strCurrentLine
        Case Else
          Cells(intRow, intColumn + 1) = Mid(strCurrentLine, 8, 26)
          Cells(intRow, intColumn + 2) = Mid(strCurrentLine, 45)
      End Select
      intRow = intRow + 1
    Loop Until EOF(intFile)
    Close #intFile
    Kill "C:ipcfg.txt"
    Set objShell = Nothing
End Sub

100

101

102

Option Explicit

'Récupérer l'adresse ip du client

Sub getIP()

Dim wsh As Object

Dim RegEx As Object, RegM As Object

Dim FSO As Object, fil As Object

Dim ts As Object, txtAll As String, TempFil As String

Set wsh = CreateObject("WScript.Shell")

Set FSO = CreateObject("Scripting.FileSystemObject")

Set RegEx = CreateObject("vbscript.regexp")

TempFil = "C:myip.txt"

wsh.Run "%comspec% /c ipconfig > " & TempFil, 0, True

With RegEx

.Pattern = "(d{1,3}.){3}d{1,3}"

.Global = False

End With

Set fil = FSO.GetFile(TempFil)

Set ts = fil.OpenAsTextStream(1)

txtAll = ts.ReadAll

Set RegM = RegEx.Execute(txtAll)

ActiveSheet.Range("B3").Value = RegM(0)

ActiveSheet.Range("B3").EntireColumn.AutoFit

ts.Close

Kill TempFil

Set ts = Nothing

Set wsh = Nothing

Set fil = Nothing

Set FSO = Nothing

Set RegM = Nothing

Set RegEx = Nothing

End Sub

'Ecrire l'ipconfig dans c:

Sub writeIPConfig()

Dim wsh As Object

Dim RegEx As Object

Dim FSO As Object, fil As Object

Dim ts As Object, txtAll As String, TempFil As String

Set wsh = CreateObject("WScript.Shell")

Set FSO = CreateObject("Scripting.FileSystemObject")

Set RegEx = CreateObject("vbscript.regexp")

wsh.Run "%comspec% /c ipconfig /all > " & "C:ipconfig.txt", 0, True

With RegEx

.Pattern = "(d{1,3}.){3}d{1,3}"

.Global = False

End With

Set ts = Nothing

Set wsh = Nothing

Set fil = Nothing

Set FSO = Nothing

Set RegEx = Nothing

End Sub

'Ecrire la liste des fichiers système dans c:

Sub writeSysFiles()

Dim wsh As Object

Dim RegEx As Object

Dim FSO As Object, fil As Object

Dim ts As Object, txtAll As String, TempFil As String

Set wsh = CreateObject("WScript.Shell")

Set FSO = CreateObject("Scripting.FileSystemObject")

Set RegEx = CreateObject("vbscript.regexp")

wsh.Run "%comspec% /c dir /s > " & "C:SysFiles.txt", 0, True

With RegEx

.Pattern = "(d{1,3}.){3}d{1,3}"

.Global = False

End With

End Sub

'Afficher l'ipconfig dans excel

Sub getIPConfig()

Sheets("Feuil1").Select

Range("A5").Select

Dim objShell As Object

Dim intFile As Integer, intRow As Integer, intColumn As Integer

Dim strCurrentLine As String

Set objShell = CreateObject("Wscript.Shell")

objShell.Run ("%comspec% /c ipconfig /all > C:ipcfg.txt")

Set objShell = Nothing

Application.Wait Now + 0.00003

intFile = FreeFile

intRow = ActiveCell.Row

intColumn = ActiveCell.Column

Open "C:ipcfg.txt" For Input As #intFile

Line Input #intFile, strCurrentLine

Select Case Len(strCurrentLine)

Case 0

intRow = intRow - 1

Case Is < 43

Cells(intRow, intColumn) = strCurrentLine

Case Else

Cells(intRow, intColumn + 1) = Mid(strCurrentLine, 8, 26)

Cells(intRow, intColumn + 2) = Mid(strCurrentLine, 45)

End Select

intRow = intRow + 1

Loop Until EOF(intFile)

Close #intFile

Kill "C:ipcfg.txt"

Set objShell = Nothing

End Sub

Ps : Pour ceux qui voudraient utiliser ces bouts de code (oui oui, vous êtes à la fin de l’article ! Que du code ^_^), c’est codé à l’arrache sans aucune optimisation, retenez vous !

6 thoughts on “Excel n’est qu’un tableur… Bah voyons !”

Nancy says:

October 2, 2011 at 6:40 PM

Thanks for the share!
Nancy.R

NEX-5 says:

November 13, 2011 at 12:07 AM

Hé, j’ai essayé de vous envoyer concernant ce poste, mais ne sont pas en mesure de vous joindre. S’il vous plaît e-mail moi quand obtenir un instant. Merci.

b4mbi || Tom_48_97 says:

November 17, 2011 at 10:59 PM

Seul point de contact: http://www.tom4897.info/blog/contact/

Alexandra says:

November 23, 2011 at 8:46 AM

Un billet qui m’obligera à voir Excel d’un autre oeil !

Adriana says:

February 26, 2012 at 6:57 AM

thanks for share!

Carina says:

May 25, 2012 at 6:38 AM

congratulations for the text. Thanks for the info!

Tom_48_97 🦄