Ouverture à la suite

[Mike]

Bonjour,

J'ai dans une feuille A en colonne B, une série de chemin de fichiers, j'aimerais en appuyant sur un bouton en feuille B que tous les fichiers repris en colonne B de la feuille A s'ouvrent automatiquement l'un à la suite de l'autre tant que la boucle ne trouve pas de cellule vide en colonne A de la feuille A.

Merci d'avance.

 

[bqtr]

Re : Ouverture à la suite

Bonjour Mike

Teste ce code à adapter :

Sub OuvreFichier()

Dim k As Long

k = 1
With Sheets("A")
    Do While .Range("A" & k) <> ""
        Workbooks.Open .Range("B" & k)
        k = k + 1
    Loop
End With

End Sub

La première valeur de K doit correspondre au N° de la ligne où doit commencer la recherche. Ici la boucle commence par la cellule A1 (K=1).

A+