A voir également:
- Copier les fichiers d'un dossier vers un autre dossier (Sous VB4)
- Vba copier coller dans une autre feuille ✓ - Forum Visual Basic 6
- Python lister les fichiers d'un dossier ✓ - Forum Python
- Vba coller valeur cellule sur une autre cellule avec variable ✓ - Forum Visual Basic 6
- Vba ouvrir un dossier - Forum Visual Basic
- Copier cellule dans autre feuille (vba) - Forum Visual Basic
1 réponse
Dim RepSource As String
Dim RepDest As String
Dim NomCourant As String
RepSource = "X:\SALUT\*.*"
RepDest = "X:\YO"
NomCourant = Dir(RepSource) 'Prendre le premier nom
Do While NomCourant <> ""
Debug.Print NomCourant 'Pour tests
FileCopy RepSource & NomCourant, RepDest & NomCourant
NomCourant = Dir ' Entrée suivante
Loop
Attention! Si l'un des répertoires est absent, tu aura une erreur 76 "Path not Found"
Voici une piste ou deux: ChDir, MkDir et InStr
Dim RepDest As String
Dim NomCourant As String
RepSource = "X:\SALUT\*.*"
RepDest = "X:\YO"
NomCourant = Dir(RepSource) 'Prendre le premier nom
Do While NomCourant <> ""
Debug.Print NomCourant 'Pour tests
FileCopy RepSource & NomCourant, RepDest & NomCourant
NomCourant = Dir ' Entrée suivante
Loop
Attention! Si l'un des répertoires est absent, tu aura une erreur 76 "Path not Found"
Voici une piste ou deux: ChDir, MkDir et InStr
