bonjour
J'ai un petit soussi avec cette macro.
Je souhaite copier le fichier ping.bat a la racine C:\
J'ai la proccedure suivante mais il me dit une erreur d'execution 53
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim BatFile As String
If Not Application.Intersect(Target, Range("B8")) Is Nothing Then
Shell "xcopy /Y F:\recensement\ping.bat C:\"
IP = Range("B8")
BatFile = "C:\ping.bat"
ChDir "C:\"
Open BatFile For Append Shared As #2
Print #2, "ping " & IP
Close #2
Shell "C:\ping.bat", vbMaximizedFocus
Shell "del /Y C:\ping.bat"
End If
Cordialement
J'ai un petit soussi avec cette macro.
Je souhaite copier le fichier ping.bat a la racine C:\
J'ai la proccedure suivante mais il me dit une erreur d'execution 53
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim BatFile As String
If Not Application.Intersect(Target, Range("B8")) Is Nothing Then
Shell "xcopy /Y F:\recensement\ping.bat C:\"
IP = Range("B8")
BatFile = "C:\ping.bat"
ChDir "C:\"
Open BatFile For Append Shared As #2
Print #2, "ping " & IP
Close #2
Shell "C:\ping.bat", vbMaximizedFocus
Shell "del /Y C:\ping.bat"
End If
Cordialement