Recherche dans plusieurs onglets d'un autre fichier

Bonjour à tous,

Je sollicite votre aide pour le problème suivant :

J'aimerai récupérer des informations contenus dans un autre document Excel qui comporte plusieurs onglets et je n'arrive pas à faire ça ... Dans le fichier sur le share point contenant plusieurs onglets, j'ai besoin de savoir si la colonne "Q" est remplie et si oui je récupère des informations colonne C, D, R, Z et AA.

Si j'écris "à la main" le nom des onglets et que je duplique la macro ça fonctionne mais l'idée c'est d'automatiser encore plus la macro car le fichier va être amené à évoluer et avec 10-15 onglets ça ferait beaucoup de codes ...

J'ai déclaré une variable pour compter les onglets (et la message box m'indique bien le bon nombre d'onglets mais ça ne passe pas au suivant ...), j'ai l'impression de ne pas être loin mais peut-être pas en fait ...

Voilà la macro que j'ai pour l'instant :

Sub Bouton1_Cliquer()

Dim cat As String
Dim i As Integer
Dim Plage1 As String
Dim Plage2 As String
Dim Plage3 As String
Dim Plage4 As String
Dim Plage5 As String
Dim WS_Count As Integer
Dim J As Integer

Worksheets("Feuil1").Range("B2:J500").EntireRow.Delete
Workbooks.Open "https://Chemin_du_Doc_Dans_Le_SharePoint/Nom_Du_Doc.xlsx"

WS_Count = ActiveWorkbook.Worksheets.Count
For J = 1 To WS_Count
MsgBox (WS_Count)
FinalRow = Cells(Rows.Count, 1).End(xlUp).Row
    For i = 15 To FinalRow
cat = Range("Q" & i)
If cat <> "" Then

    Plage1 = ("C" & i)
    Plage2 = ("D" & i)
    Range("Z" & i) = "AC"
    Plage3 = ("Z" & i)
    Plage4 = ("R" & i)
    Range("AA" & i) = Right(Range("C6").Text, 5)
    Plage5 = ("AA" & i)
    Application.Union(Range(Plage5), Range(Plage4), Range(Plage3), Range(Plage2), Range(Plage1)).Copy
    ThisWorkbook.Activate
    Worksheets("Feuil1").Select
    NextRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
    Cells(NextRow, 1).Select
    ActiveSheet.Paste
    Sheets("Feuil1").Select

End If
    Next i
End If
Next J

End Sub

Merci de votre aide, j'espère avoir été clair sinon n'hésitez pas à me le signaler.

Hello,

a tester :

WS_Count = ActiveWorkbook.Worksheets.Count
For J = 1 To WS_Count
'MsgBox (WS_Count)
ActiveWorkbook.Worksheets(J).activate
FinalRow = Cells(Rows.Count, 1).End(xlUp).Row

Merci de ton retour !

Je viens de l'intégrer à la macro et j'ai une erreur d'exécution 9, à la 3e page ... Je vais y regarder de plus près.

Le problème est résolu : merci de ton aide Rag ! (je naviguais entre plusieurs feuilles et fallait que je réactive la feuille plus loin dans le code).

Sujet clos, encore merci.