Bonjour,
Je souhaiterais copier tous les fichiers à extension xls se trouvant dans
des sous dossiers ( dont les noms sont variables) d'un lecteur E vers un
dossier TEMP se trouvant sous mon répertoire C
avec FSO et le code suivant tous les fichiers sous dossiers et dossier sont
copiés mais je ne voudrais copier que les classeurs
Dim fso As Object
Set fso = CreateObject("scripting.filesystemobject")
fso.CopyFolder "E:TOTO SOUS-DOSSIER1 classeur1.xls, classeur2.xls
SOUS-DOSSIER2classeur3.xls, classeur4.xls SOUS-DOSSIER3classeur5.xls,
classeur6.xls", "C:TEMP"
MsgBox " les fichiers Excel ont été transférés sur votre micro"
Merci de votre aide
Bonjour,
Je souhaiterais copier tous les fichiers à extension xls se trouvant dans
des sous dossiers ( dont les noms sont variables) d'un lecteur E vers un
dossier TEMP se trouvant sous mon répertoire C
avec FSO et le code suivant tous les fichiers sous dossiers et dossier sont
copiés mais je ne voudrais copier que les classeurs
Dim fso As Object
Set fso = CreateObject("scripting.filesystemobject")
fso.CopyFolder "E:TOTO SOUS-DOSSIER1 classeur1.xls, classeur2.xls
SOUS-DOSSIER2classeur3.xls, classeur4.xls SOUS-DOSSIER3classeur5.xls,
classeur6.xls", "C:TEMP"
MsgBox " les fichiers Excel ont été transférés sur votre micro"
Merci de votre aide
Bonjour,
Je souhaiterais copier tous les fichiers à extension xls se trouvant dans
des sous dossiers ( dont les noms sont variables) d'un lecteur E vers un
dossier TEMP se trouvant sous mon répertoire C
avec FSO et le code suivant tous les fichiers sous dossiers et dossier sont
copiés mais je ne voudrais copier que les classeurs
Dim fso As Object
Set fso = CreateObject("scripting.filesystemobject")
fso.CopyFolder "E:TOTO SOUS-DOSSIER1 classeur1.xls, classeur2.xls
SOUS-DOSSIER2classeur3.xls, classeur4.xls SOUS-DOSSIER3classeur5.xls,
classeur6.xls", "C:TEMP"
MsgBox " les fichiers Excel ont été transférés sur votre micro"
Merci de votre aide