Gix
XLDnaute Occasionnel
Bonsoir à tous et à toute,
J'ai trouvé ce code sur notre XLD, et j'aimerai adapté ce code à mes besoins mais le problème est que je n'arrive pas à le faire sans votre aide.
C'est pour cela que je me tourne vers vous .
En effet j'aimerai que ça fonctionne de la cette manière:
Dans un dossier nommé XLD, je possède un classeur nommé test sur mon disque C, alors que le fichier mouchard.txt se trouve lui dans un dossier nommé Gix sur le disque F.
Comment faire pour que cela fonctionne car à l'heure actuelle cela marche uniquement si le classeur excel et fichier txt se trouvent dans le même dossier.
Je remercie de votre aide par avance.
Gix.
J'ai trouvé ce code sur notre XLD, et j'aimerai adapté ce code à mes besoins mais le problème est que je n'arrive pas à le faire sans votre aide.
C'est pour cela que je me tourne vers vous .
En effet j'aimerai que ça fonctionne de la cette manière:
Dans un dossier nommé XLD, je possède un classeur nommé test sur mon disque C, alors que le fichier mouchard.txt se trouve lui dans un dossier nommé Gix sur le disque F.
Comment faire pour que cela fonctionne car à l'heure actuelle cela marche uniquement si le classeur excel et fichier txt se trouvent dans le même dossier.
Je remercie de votre aide par avance.
Gix.
Code:
Private Sub Workbook_Open()
'**************************************
'Mouchard
'**************************************
Open ThisWorkbook.Path & "\Mouchard.txt" For Append As #1
Print #1, Application.UserName, Now
Close #1
End Sub