Déplacer en même temps des classeurs xls

Question

Bonjour, 


J'aimerai savoir si on peut déplacer en même temps plusieurs classeurs xls d'un répertoire à un autre.
Je pensais à l'instruction "sendkeys" dont je ne suis pas trop familier. En répliquant les instruction clavier on peut surement simuler le ctrl + shift + flèche bas (pour la sélection multiple) puis simuler le copier enfin simuler le coller dans le répertoire voulu.

Si vous avez des pistes plus solides, n'hésitez pas....

Merci

f894009 · Answer

Bonjour,

Si c'est en VBA, FileCopy(SourceFile, DestinationFile) devrait aller!!

Fethi93 · Answer

Bonjour, 

Ce que je cherche à faire c'est vraiment de les coller en même temps dans un autre répertoire. 

Si sourceFile accepte plusieurs sources c'est génial.

du type :

SourceFile(1,1) = chemin & "\" & classeur1.xls
SourceFile(2,1) = chemin & "\" & classeur2.xls
SourceFile(3,1) = chemin & "\" & classeur3.xls

Est le cas ?


Merci

f894009 · Answer

Bonjour,

si tous vos fichiers sont dans le meme repertoire et a copier dans le meme repertoire de sauvegarde, uilisez ceci:

adaptez les repetoires

Commande = Environ("comspec") & " /c XCOPY c:\mon repertoire\*.xls c:\mon repertoire de sauvegarde /s/e"
Shell Commande, 0

A+

Fethi93 · Answer

Bonjour F894009 ?

Alors la !!  chapeau l'artiste !! 

Comment as-tu appris cette instruction ?


Fethi

f894009 · Answer

Bonjour,

Je dirais que c'est presque aussi vieux que le monde, c'est plus connu sous cette forme:

retval = Shell("cmd /c XCOPY d:\_cles\*.gif d:\alice_res /s/e", vbHide)


Bonne suite

Déplacer en même temps des classeurs xls

5 réponses

Discussions similaires

Newsletters