opier et renommer 1 fichier non microsoft

[daniel]

Bonsoir le Forum,

En vadrouillant sur le net, j'ai réussi à me débrouiller pour copier via VBA un fichier non microsoft (en l'occurence, c'est un document adobe framemaker, extension : .fm). Voici mon code (j'ai copié de mon disque dur sur le bureau) :


Sub CopierFichier()
Dim fso As Object, Src$, Dest$

Set fso = CreateObject('Scripting.FileSystemObject')
Src = 'C:\\document.fm'
Dest = 'C:\\Bureau\\'
fso.CopyFile Src, Dest
End Sub

Mon problème est le suivant...Comment faire pour renommer ce fichier. Je voudrais que son nom sur le bureau soit, par exemple : 'nouveaudocument.fm'

Quelqu'un(e) a t il une idée ?

Merci pour votre aide et bonne soirée

Daniel

 

[Bernard_XLD]

Bonsoir Daniel, le forum

tu peux utiliser l'instruction name

Name 'C : \\Bureau\\document.fm' As 'C : \\Bureau\\nouveaudocument.fm'

cette instruction peut aussi déplacer et renommer ton fichier en même temps

Name 'C : \\document.fm' As 'C : \\Bureau\\nouveaudocument.fm'

Cordialement, A+

 

[daniel]

Un grand merci !

Ca marche parfaitement et c'est beaucoup plus léger que mon code !

Bonne soirée

Daniel