Transcrire en VBA

[Jean]

Bonjour,

En VBA, peut-on couper un fichier se trouvant dans un dossier pour le copier vers un autre dossier?
Merci

 

[STephane]

bonjour

pour déplacer un fichier, tu peux utiliser la méthode Name.
elle permet de nommer et/ou déplacer un fichier.


dim Oldname, Newname
Oldname = 'c:\\temp\\file2.txt'
Newname = 'c:\\file2.htm'

name Oldname as Newname 'renomme le fichier oldname en newname
debug.print dir(Oldname)
debug.print dir(Newname)

 

[Jean]

Merci STephane pour ta réponse mais...
...pour Oldname et Newname j'ai indiquer des chemins d'accès soit a5=\\\\BUREAU\\Mes documents\\Recolte05\\Import LBS par date\\2.xls
et a10=\\\\BUREAU\\Mes documents\\Recolte05\\Fichier déjà importé\\2.xls

En procédant de cette façon, la macro m'indique que les fichiers sont introuvables et me surligne 'Name Oldname As Newname'

Dim Oldname As String, Newname As String
Oldname = ('chemin!a5')
Newname = ('chemin!a10')
'renomme le fichier oldname en newname
Name Oldname As Newname
Debug.Print Dir(Oldname)
Debug.Print Dir(Newname)
End Sub

ai je tout faux?

 

[myDearFriend!]

Bonsoir Jean, STephane,

Jean, si j'ai bien compris, tes adresses sont stockées dans une feuille nommée 'chemin'... tu peux peut-être essayer comme ça :

Dim Oldname As String,Newname As String
      With Sheets('chemin')
            Oldname = .Range('A5').Value
            Newname = .Range('A10').Value
      End With
      'renomme le fichier oldname en newname
      Name Oldname As Newname

Cordialement,

 

[STephane]

bonjour



tes cellules doivent contenir le chemin complet.

question :
est-ce un chemin 'LOCAL' ou 'RESEAU' ??


du type :
c:\\temp\\fichier.xls

ou bien
\\\\tonpc\\tonrepertoirepartage\\tonfichier.xls

 

[Jean]

Excuxez moi, je n'avais pas vue vos messages. Merci pour votre investissement mais j'ai trouvé ma réponse en fouinant dans 'recherche'.

Cordialement
Jean

 

[Jean]

Excuxez moi, je n'avais pas vue vos messages. Merci pour votre investissement mais j'ai trouvé ma réponse en fouinant dans 'recherche'.

Cordialement
Jean