Ouvrir un fichier qui commence par...
simonbaron
Messages postés
10
Statut
Membre
-
lermite222 Messages postés 9042 Statut Contributeur -
lermite222 Messages postés 9042 Statut Contributeur -
Bonjour,
j'utilise actuellement une macro qui me permet d'ouvrir plusieurs fichiers dont les noms sont, par exemple "janvier.xls","fevrier.xls", exc... Voici le texte:
Dim c As Range, chemin As String, r1 As Range, r2 As Range, r3 As Range, myMultiAreaRange As Range
chemin = Range("B2")
fichiers = Array("JANVIER.xls", "FEVRIER.xls", "MARS.xls")
Je voudrais maintenant la modifier en lui disant d'ouvrir les fichiers dont le nom COMMENCE par "janvier", "fevrier", "mars"...
Comment peux-je faire?
Merci
j'utilise actuellement une macro qui me permet d'ouvrir plusieurs fichiers dont les noms sont, par exemple "janvier.xls","fevrier.xls", exc... Voici le texte:
Dim c As Range, chemin As String, r1 As Range, r2 As Range, r3 As Range, myMultiAreaRange As Range
chemin = Range("B2")
fichiers = Array("JANVIER.xls", "FEVRIER.xls", "MARS.xls")
Je voudrais maintenant la modifier en lui disant d'ouvrir les fichiers dont le nom COMMENCE par "janvier", "fevrier", "mars"...
Comment peux-je faire?
Merci
1 réponse
-
Bonjour,
Une piste ..Option Explicit Option Compare Text Sub Ouvrir() Dim i As Integer, Chemin As String Dim Fichiers Chemin = [B2] & IIf(Right([B2], 1) <> "\", "\", "") Fichiers = Array("JANVIER", "FEVRIER", "MARS") For i = 0 To UBound(Fichiers) Workbooks.Open (Chemin & Fichiers(i) & ".xls") Next i End SubA+
