bjr,
dans une boucle do loop j'ai un test à l'intérieur de cette boucle si le test est vrai je souhaite passer à l'élément suivant (Fichier)
Sub Test01()
Do while Fichier<>""
Set Wb = Workbooks.Open(Chemin & Fichier)
...instructions qui ouvre un fichier
'test s'il y a une feuille "centralisation" sinon ferme le fichier
Dim Compteur As Integer, l As Integer
Compteur = 0
For l = 1 To Sheets.Count
If Sheets(l).Name = "centralisation" Then
Sheets("centralisation").Select
Compteur = 1
Exit For
End If
Next l
If Compteur <> 1 Then
Wb.Close True
Set Wb = Nothing
Fichier = Dir
***mon pb est ici : si compteur =1 comment ne pas faire le reste du Do loop mais passer au fichier suivant ???
End If
...j'ai à la suite plein d'instruction à faire s'il y a bien une feuille "centralisation"
plein de code...
Loop
end sub
Avez-vous une idée svp ?
a+
Bob
dans une boucle do loop j'ai un test à l'intérieur de cette boucle si le test est vrai je souhaite passer à l'élément suivant (Fichier)
Sub Test01()
Do while Fichier<>""
Set Wb = Workbooks.Open(Chemin & Fichier)
...instructions qui ouvre un fichier
'test s'il y a une feuille "centralisation" sinon ferme le fichier
Dim Compteur As Integer, l As Integer
Compteur = 0
For l = 1 To Sheets.Count
If Sheets(l).Name = "centralisation" Then
Sheets("centralisation").Select
Compteur = 1
Exit For
End If
Next l
If Compteur <> 1 Then
Wb.Close True
Set Wb = Nothing
Fichier = Dir
***mon pb est ici : si compteur =1 comment ne pas faire le reste du Do loop mais passer au fichier suivant ???
End If
...j'ai à la suite plein d'instruction à faire s'il y a bien une feuille "centralisation"
plein de code...
Loop
end sub
Avez-vous une idée svp ?
a+
Bob