Modification code

[Gix]

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.

Private Sub Workbook_Open()


'**************************************
'Mouchard
'**************************************
Open ThisWorkbook.Path & "\Mouchard.txt" For Append As #1
    Print #1, Application.UserName, Now
    Close #1
    
End Sub

 

[JNP]

Re : Modification code

Bonjour Gix 🙂,
C'est pas beau d'avoir un mouchard 😀...
L'instruction ThisWorkbook.Path lis le chemin de ton classeur, donc si tu l'utilises, il faut forcément que ton fichier txt soit dans le même dossier. Pour pouvoir le mettre ailleurs, il faut que tu définisses le chemin complet, du type

Open "F:\Renseignements généraux\Vie privée\Couleur de la culotte\Mouchard.txt" For Append As #1

Bonne soirée 😎

 

[Gix]

Re : Modification code

Bonsoir JNP,

Je te remercie de m'avoir donné le tuyau , je suis arrivé de mettre en place.
PS: j'aime bien m'espionner moi même voir si je n'ai rien oublié 😱
Bonne soirée et merci encore de ton aide
Gix.