Discussion :

[arctica]

Bonjour à tous,

Existe t-il un moyen par macro de copier tous fichier de forme .txt d'un dossier vers un autre sans utilser leurs noms ? si oui pouvez vous me guider ?

merci pour votre aide

[babaothe]

salut

une précision est ici nécessaire : tous les fichiers à copier sont-ils dans un même dossier ou peuvent-ils être répartis entre plusieurs sous-dossiers d'un dossier ?
Ce distinguo n'est pas sans incidence sur la manière de traiter cette copie

PS (et dans la foulée) : autre précision : quelle que soit le cas : doivent-ils garder leurs attributs d'origine ou voir, en plus, leurs attributs changer ?

[arctica]

Bonjour babaothe,

LE ou les fichiers sont tous dans le même dossier et ils devraient garder leur attributs d'origine

[babaothe]

c'est alors simple.

Exemple ici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim acopier As String, desti As String, fic As String
acopier = "E:\" '=====>> ici le chemin du dossier à copier
desti = "E:\toto\" '===>> ici le chemin du dossier de destination (doit exister - le créer d'abord si non)
fic = Dir(acopier & "*.txt", vbHidden Or vbNormal)
Do While fic <> ""
    FileCopy acopier & fic, desti & fic
    fic = Dir
Loop

[arctica]

Merci beaucoup pour ton aide je vais tester cela cette AM