Ouvrir un fichier qui commence par...

simonbaron Messages postés 10 Statut Membre -  
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

1 réponse

Réponse 1 / 1
lermite222 Messages postés 9042 Statut Contributeur 1 191
 
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 Sub
A+

0