Je cherche =E0 faire inscrire dans un fichier txt le n=B0=20
d'une cellule qui a =E9t=E9 modifi=E9e, ainsi que la date et=20
l'heure de l'op=E9ration, j'ai r=E9ussi mais =E0 cahque nouvelle=20
modifications de cellule, il m'=E9crase la premi=E8re ligne...=20
comment faire???
Merci d'avance
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MiB
Bonjour,
Suggestion :
Utiliser le VBS à l'intérieur du VBA ... Rapide/Simple/Efficace
Voir exemple ici : http://www.microsoft.com/technet/treeview/default.asp? url=/technet/scriptcenter/filefolder/ScrFF77.asp
Tester ici: ********************************* Sub TestScript()
Const ForAppending = 8
Dim objFSO Dim objTextFile Dim colServices Dim objService
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _ ("C:ServiceLog.txt", ForAppending, True)
Set colServices = GetObject("winmgmts:").ExecQuery _ ("SELECT * FROM Win32_Service")
For Each objService In colServices objTextFile.WriteLine (objService.DisplayName & vbTab & objService.State) Next
objTextFile.Close
End Sub *****************************************
Cordialement Michel
-----Message d'origine----- Je cherche à faire inscrire dans un fichier txt le n° d'une cellule qui a été modifiée, ainsi que la date et l'heure de l'opération, j'ai réussi mais à cahque nouvelle
modifications de cellule, il m'écrase la première ligne...
comment faire??? Merci d'avance .
Bonjour,
Suggestion :
Utiliser le VBS à l'intérieur du VBA ...
Rapide/Simple/Efficace
Voir exemple ici :
http://www.microsoft.com/technet/treeview/default.asp?
url=/technet/scriptcenter/filefolder/ScrFF77.asp
Tester ici:
*********************************
Sub TestScript()
Const ForAppending = 8
Dim objFSO
Dim objTextFile
Dim colServices
Dim objService
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
("C:ServiceLog.txt", ForAppending, True)
Set colServices = GetObject("winmgmts:").ExecQuery _
("SELECT * FROM Win32_Service")
For Each objService In colServices
objTextFile.WriteLine (objService.DisplayName & vbTab
& objService.State)
Next
objTextFile.Close
End Sub
*****************************************
Cordialement
Michel
-----Message d'origine-----
Je cherche à faire inscrire dans un fichier txt le n°
d'une cellule qui a été modifiée, ainsi que la date et
l'heure de l'opération, j'ai réussi mais à cahque
nouvelle
modifications de cellule, il m'écrase la première
ligne...
Utiliser le VBS à l'intérieur du VBA ... Rapide/Simple/Efficace
Voir exemple ici : http://www.microsoft.com/technet/treeview/default.asp? url=/technet/scriptcenter/filefolder/ScrFF77.asp
Tester ici: ********************************* Sub TestScript()
Const ForAppending = 8
Dim objFSO Dim objTextFile Dim colServices Dim objService
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _ ("C:ServiceLog.txt", ForAppending, True)
Set colServices = GetObject("winmgmts:").ExecQuery _ ("SELECT * FROM Win32_Service")
For Each objService In colServices objTextFile.WriteLine (objService.DisplayName & vbTab & objService.State) Next
objTextFile.Close
End Sub *****************************************
Cordialement Michel
-----Message d'origine----- Je cherche à faire inscrire dans un fichier txt le n° d'une cellule qui a été modifiée, ainsi que la date et l'heure de l'opération, j'ai réussi mais à cahque nouvelle
modifications de cellule, il m'écrase la première ligne...
