Bonjour,
J'ai un code VBA qui me permet de tracker les modifications sur un fichiers excel, le souci c'est que le fichier de suivi se crée dans le même répertoire que le fichier tracké.
Pourriez vous m'aider à améliorer le code pour spécifier un répertoire différent s'il vous plaît ?
Voici le code en question :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim f As Integer
Dim Fichier As String
Dim ligne As String
'Saved: renvoie Vrai si le classeur spécifié n'a pas été modifié depuis son dernier enregistrement
Fichier = ThisWorkbook.Path & "\suivimodifs.txt"
ligne = Format(Now, "dd/mm/yyyy hh:mm:ss") & " " & Environ("USERNAME") & " Modifié: " & IIf(ThisWorkbook.Saved, "False", "True")
f = FreeFile()
Open Fichier For Append As #f
Print #f, ligne
Close #f
End Sub
Merci à vous
J'ai un code VBA qui me permet de tracker les modifications sur un fichiers excel, le souci c'est que le fichier de suivi se crée dans le même répertoire que le fichier tracké.
Pourriez vous m'aider à améliorer le code pour spécifier un répertoire différent s'il vous plaît ?
Voici le code en question :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim f As Integer
Dim Fichier As String
Dim ligne As String
'Saved: renvoie Vrai si le classeur spécifié n'a pas été modifié depuis son dernier enregistrement
Fichier = ThisWorkbook.Path & "\suivimodifs.txt"
ligne = Format(Now, "dd/mm/yyyy hh:mm:ss") & " " & Environ("USERNAME") & " Modifié: " & IIf(ThisWorkbook.Saved, "False", "True")
f = FreeFile()
Open Fichier For Append As #f
Print #f, ligne
Close #f
End Sub
Merci à vous