VBA Ouvrir tous les fichiers d'un dossier
Fermé
Megg
-
28 juil. 2011 à 21:32
melanie1324 Messages postés 1505 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 - 29 juil. 2011 à 09:37
melanie1324 Messages postés 1505 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 - 29 juil. 2011 à 09:37
A voir également:
- VBA Ouvrir tous les fichiers d'un dossier
- Comment ouvrir un fichier epub ? - Guide
- Ouvrir fichier .bin - Guide
- Comment ouvrir un fichier docx ? - Guide
- Ouvrir un fichier rar - Guide
- Mettre un mot de passe sur un dossier - Guide
1 réponse
melanie1324
Messages postés
1505
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
154
29 juil. 2011 à 09:37
29 juil. 2011 à 09:37
bonjour,
essaie ca :
Sub Ouvre_Tous_Fichiers()
'Ouvre tous les fichiers .xls dans la cellule G27
Dim File_Is As String
File_Is = Dir(Cells(27, 7) & "\*.XLS")
Do Until File_Is = ""
Workbooks.Open Cells(27, 7) & "\" & File_Is
' <<Vous pouvez insérer ici du code pour effecuer des traitements sur vos fichiers
File_Is = Dir
Loop
End Sub
essaie ca :
Sub Ouvre_Tous_Fichiers()
'Ouvre tous les fichiers .xls dans la cellule G27
Dim File_Is As String
File_Is = Dir(Cells(27, 7) & "\*.XLS")
Do Until File_Is = ""
Workbooks.Open Cells(27, 7) & "\" & File_Is
' <<Vous pouvez insérer ici du code pour effecuer des traitements sur vos fichiers
File_Is = Dir
Loop
End Sub