Salut Jean Luc,
voici un article que je viens de trouver, peut etre pourra t'il t'aider...
(et hop ! un super copier/coller)
Ouvrir Notepad
Sub DDEtoBlocNotes()
dim Datarange As range
chan = application.DDEInitiate(app:="NOTEPAD", topic:="C:\abcédaire\test.txt")
Set Datarange = thisworkbook.worksheets("Accueil").range("a1:m1")
Datarange.Copy
application.DDEExecute chan, "[EDITIONCOLLER]"
application.DDETerminate chan
end Sub
Ecrire un fichier texte
Sub WriteTextFile()
Open "c:\windows\desktop\myfile.txt" for Output As #1
Print #1, "This is a line of text."
Print #1, "And here is another."
Close #1
end Sub
Voila, je ne pense pas que ca resoudra ton probleme mais c'est, a monavis, un bon debut.
A++, Sylsyl.
P.S.: c'etait sur le site http://xlbysteph.free.fr/aideinformatique/, site que l'on m'a conseille sur ce forum.