Macro trouver solution plus simple

Salut,
Ta solution ici :
Boucler sur tous les classeurs ouverts et dans chaque classeur boucler sur toutes les feuilles.

Sub BouclePlagesCellules() 
    'Définit une variable qui va représenter un classeur 
    Dim Wb As Workbook 
    'Définit une variable qui va représenter une feuille de calcul 
    Dim Ws As Worksheet 
    'Définit une variable qui va représenter une cellule 
    Dim Cell As Range 
     
    'Boucle sur chaque classeur de l'application Excel 
    For Each Wb In Application.Workbooks 
        'Boucle sur chaque feuille de chaque classeur 
        For Each Ws In Wb.Worksheets 
            'Boucle sur chaque cellule de la plage A1:A10 
            For Each Cell In Ws.Range("A1:A10") 
                'Si la cellule contient la valeur 3, on multiplie la valeur par 2 
                'ici ça n'est qu'un exemple. Tu remplaces par .copy vers Classeur(4)... 
                If Cell.Value = 3 Then Cell.Value = Cell.Value * 2 
            Next Cell 
        Next Ws 
    Next Wb 
End Sub

Cordialement,
-- Tout problème à sa solution. S'il n'y a pas de solution, ou est le problème? --

Bonjour PIjaku,

Je viens d'essayer avec cela

Sub mo()

'Définit une variable qui va représenter un classeur
Dim Wb As Workbook
'Définit une variable qui va représenter une feuille de calcul
Dim Ws As Worksheet

'Boucle sur chaque classeur de l'application Excel
For Each Wb In Application.Workbooks
'Boucle sur chaque feuille de chaque classeur
For Each Ws In Wb.Worksheets
'Boucle sur chaque cellule de la plage A1:A10
Range("A1:U400").Copy
Windows("synthèse.xls").Activate
Sheets("Feuil3").Select
Range("A15").Activate
Selection.Paste
Next Ws
Next Wb

End Sub

et cela ne fonctionne pas (je ne suis pas très fort en excel). la question que je me pose, c'est est ce qu'avec cette macro, le contenue de mes onglet (pour les cellules A1 U400) vont bien se coller les uns à la suite de l'autre sur mon onglet Feuil3??

Merci pour ton aide,

James

d'accord je vais essayer comme ca, juste pour l'info

End(xlUp).Offset(1, 0) a quoi servent ces deux mots ?

Merci encore pijaku !!

méthode non géré par cet objet .. J'ai bien vérifier les noms et a l'endroit mis en gras ici, il me met erreur execution 138 :

Sub mo()
Dim Wb As Workbook
Dim Ws As Worksheet
Dim cell As Range
For Each Wb In Application.Workbooks
For Each Ws In Wb.Worksheets
Range("A7:U200").Copy Windows("synthèse.xls").Sheets("Feuil3").Range("A65536").End(xlUp).Offset(1, 0)
Next Ws
Next Wb

End Sub

Me serais je trompé autre part?

Cette fois pas d'erreur, mais ca ne fait absolument rien. calcul 1 seconde et fini la macro sans rien faire. pas de .paste manquant?

HuHu ca marche !!!

deux petites questions : - Si par la suite je protèle certaine feuille ou un copier/coller sera a faire , cela posera t il un problème?

- Existe t il un moyen d'exclure certains onglet des classeurs??

Merci pour tout Pijaku

Enfin je pense plus par exemple a copier uniquement les onglets qui contiennet la lettre A par exemple