Ouvrir un fichier texte précis et y copier des données

Bonjour le forum,

Je souhaite ouvrir un fichier existant via VBA avec le chemin suivant :

C:\Users\maradm01\AppData\Roaming\IBM\Client Access\Emulator\private\LancementCommandes.mac

(A noter que ce fichier est déja enregistrer sous la forme d'un document texte)

Pour ensuite y copier et enregistre les données de ma feuille active (A1 : E17000).

Avez-vous des pistes ?

Merci d'avance :)

J'ai réussi a ouvrir le fichier que je souhaite avec ce bout de code :

Dim Chemin_Fichier As String

Chemin_Fichier = "C:\Users\maradm01\AppData\Roaming\IBM\Client Access\Emulator\private\LancementCommandes.mac"

Range("A1:E17000").Copy

ActiveWorkbook.FollowHyperlink Chemin_Fichier

(Je suis bloqué ensuite...)

** Comment puis-je faire pour copier les données de la Range ("A1:E17000") dans celui-ci ?

Qu'il les enregistre et qu'il ferme le fichier

bonjour,

https://analystcave.com/vba-write-file-vba/

Dim fileName As String, textData As String, textRow As String, fileNo As Integer
fileName = "C:\test.txt"
fileNo = FreeFile 'Get first free file number
textData = "Hello World!"

Open fileName For Append As #fileNo  'Open file for overwriting! Replace Output with Append to append
Write #fileNo, textData
Close #fileNo

Bonjour,

Qu'est ce que je dois mettre dans fileNo ?

Ensuite dans le fichier texte, il m'écrit ("Vrai") alors que j'ai bien mis la range à copier dans le fichier.

Dim fileName As String, textData As String, textRow As String, fileNo As Integer
fileName = "C:\Users\maradm01\AppData\Roaming\IBM\Client Access\Emulator\private\LancementCommandes.mac"
fileNo = ??
textData = Range("A1:E17000").Copy

Open fileName For Append As #fileNo 'Open file for overwriting! Replace Output with Append to append
Write #fileNo, textData
Close #fileNo