Discussion :

[anfernus]

Bonjour à tous
En fait j'ai un classeur ou il ya l'adresse de plusieurs fichiers que je désire ouvrir.Mon problème c'est que il m'ouvre seulement le premier classeur,voila le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Bouton1_QuandClic()
Dim i As Integer 'compteur
Dim a As String 'l'adresse
Dim Classeurcible1 As Workbook
While ThisWorkbook.Sheets(1).Cells(5 + i) <> Nill 'condition de fin de liste 
a = ThisWorkbook.Sheets(1).Cells(5 + i, 3) 'l'adresse et sa position dans le classeur courant
Set Classeurcible1 = Application.Workbooks.Open(a)
i = i + 1
Wend
End Sub

[anfernus]

le pb est résolu