Recopie de feuilles vers un autre classeur

[petitmateo]

Bonjour à tous,

Tout d'abord merci à tous pour ce formidable forum dans lequel j'ai appris déjà beaucoup de choses...
Je me suis d'ailleurs inspiré très très largement de discussions et de fichiers trouvés ici pour écrire la macro ci-après qui fonctionne très bien lorsqu'elle tourne dans un seul et même classeur.

Sauf que dès que je partage le classeur voulu (qui doit être utilisée simultanément par plusieurs utilisateurs), la macro ne fonctionne plus. C'est comme ça dans Excel semble-t-il.
Je dois donc travailler sur deux fichier.
Je ne parviens pas - et c'est sûrement tout bête - à aller chercher le contenu désiré dans un classeur séparé.

Ce que je cherche à faire :
À partir du classeur B, lancer la macro qui ouvre le classeur A (ou qui se place dessus s'il est déjà ouvert), copie le contenu de toutes les feuilles désirées (sauf les lignes de titre) du classeur A puis les rassemble à la queue-leu-leu dans la feuille "Reporting" du classeur B.

Merci à tous pour votre aide.
mateo

Sub ReportingRIGP()
Dim WS As Worksheet
Dim L As Integer, C As Integer
Dim Lcible As Integer
Dim Plage As Range
Dim Rw As Range
Dim Ligne As Long

'Effacement de la feuille de Reporting
    Worksheets("Reporting").Select
    Worksheets("Reporting").Rows("3:65536").Select
    Selection.Delete Shift:=xlUp


For Each WS In Worksheets
Lcible = Worksheets("Reporting").Range("A65536").End(xlUp).Row + 1
'Boucle sur les feuilles
If WS.Name <> "Reporting" And WS.Name <> "Listes" And WS.Name <> "ACCUEIL" Then
    With WS
    L = .Range("A65536").End(xlUp).Row
    C = .Range("A3").End(xlToRight).Column
    
    Set Plage = .Range("A3", Cells(L, C).Address)
    If .Range("A3").Value <> "" Then 'si quelque chose a été saisi dans la feuille
        Plage.Copy Destination:=Worksheets("Reporting").Range("A" & Lcible)
    End If
    End With
End If
Next WS

'Écriture de la date d'actualisation
Range("D1").Select
Selection.Value = Now()
Range("A2").Select

End Sub

 

[petitmateo]

Re : Recopie de feuilles vers un autre classeur

bon ben super !
je vais retouner voir ma maman, qui elle, est gentille
elle va me faire un petit flan je pense