copier/coller de classeur sans ouvrir

[Christophe]

Bonjour a tous,

J'aimerais savoir comment faire en VBA pour copier un classeur qui est sous G:/classeur_cycles et le coller dans c:/ je gère cette operation depuis une feuille sous c:/, je clique sur un bouton et le calsseur se deplacerais tout seul en fait.

Merci, bonne matinée.

 

[Hervé]

bonjour christophe

Voir du coté de la méthode movefile :

Sub Bouton1_QuandClic()
Dim toto As Object
Set toto = CreateObject('Scripting.FileSystemObject')
toto.movefile ('f:\\vev.xls'), ('c:\\vev.xls')


End Sub

chemin et nom à adapter bien sur.

salut

Edition : il me semble que l'on peut faire cette manip sans passer par un objet filesystem... et en une seule ligne, mais je sais pas faire.

Message édité par: Hervé, à: 18/11/2005 10:35

 

[christophe]

Merci Hervé, de ta réponse je ne connaissais pas movefile en plus. Pour l'instant ça ne fonctionne pas mais je continue a tester.

Merci.

 

[christophe]

Rebonjour a tous,

Ce code marche

Sub CopyFile()
Dim fso
Dim file As String, sfol As String, dfol As String
file = '\\Trésorerie.xls' ' change to match the file name
sfol = 'G:\\Classeur_cycle' ' change to match the source folder path
dfol = 'C:\\' ' change to match the destination folder path
Set fso = CreateObject('Scripting.FileSystemObject')
If Not fso.FileExists(sfol & file) Then
MsgBox sfol & file & 'n'existe pas!', vbExclamation, 'Source File Missing'
ElseIf Not fso.FileExists(dfol & file) Then
MsgBox (sfol & file)
MsgBox dfol
fso.CopyFile (sfol & file), dfol ', True
Else
MsgBox dfol & file & ' Le classeur existe déjà!', vbExclamation, 'Destination File Exists'
End If
End Sub

Merci beaucoup, bon wk.

 

[Hervé]

re christophe

Sous entendrait-tu que mon code précédent ne marcherait pas :angry:

Ce qui ne pourrait qu'apporter confusion dans l'esprit dans visiteur avenir. Donc, si si mon code fonctionne.

désolé christophe que tu ne sois pas parvenu à le mettre en place.

salut

 

[christophe]

RE re , c'est vraie que mon dernier post n'est pas vraiment habile donc je n'ai pas testé ton code jusqu'au bout et je me suis servie de l'autre désolé 😱 , bonne fin de journée et bon week end