Bonjour,

Dans ma macro, j'ouvre un fichier en écrasant les données (ou je le crée), j'écris dedans et je le ferme dans le même répertoire où se trouve mon classeur.

Le problème est que le chemin d'accès au fichier est en adresse absolue, et que je n'arrive pas à le faire en adresse relative.

Voilà mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Dim oFSO As Scripting.FileSystemObject
Dim oTxt As Scripting.TextStream
 
Set oFSO = New Scripting.FileSystemObject
 
Set oTxt = oFSO.OpenTextFile("C:\Documents and Settings\All Users\Documents\Folder_For_Benjamin\cm4410_perl.scs", ForWriting, True, TristateFalse)
et je ferme mon fichier plus loin, après avoir écrit dedans.

J'ai déjà testé ça :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Set oTxt = oFSO.OpenTextFile(".\cm4410_perl2.scs", ForWriting, True, TristateFalse)
ça :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Set oTxt = oFSO.OpenTextFile(CurDir & "cm4410_perl2.scs", ForWriting, True, TristateFalse)
et ça :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Set oTxt = oFSO.OpenTextFile(CurDir & ".\cm4410_perl2.scs", ForWriting, True, TristateFalse)
mais à chaque fois il prend comme référence le dossier "Mes documents".
C'est gênant car cette macro ne sera pas utilisée tout le temps à partir du même répertoire.

Pouvez-vous m'aider ?
Merci d'avance.