Bonjour,
je souhaiterais copier/coller les cellules (A7:N32) de l'onglet fiche type du fichier 2 sur toutes les feuilles de mon fichier 1 sauf sur les onglets "1 Récapitulatif" et "1 récapitulatif par client".
J'ai essayé de faire une macro mais ca ne fonctionne pas...
Sub Reporter()
Dim ws As Worksheet
Dim LastLig As Long
Application.ScreenUpdating = False
With Windows("fichier2.xls").Activate
Sheets("fiche type").Select
Range("A7:N32").Select
For Each ws In ThisWorkbook.Worksheets
If Left(ws.Name, 15) <> "1 Récapitulatif" Then
Range("A8:N32").Copy ws.Range("A8:N32")
Next ws
End With
End Sub
Pouvez-vous m'aider?
Merci d'avance
Anaïs
je souhaiterais copier/coller les cellules (A7:N32) de l'onglet fiche type du fichier 2 sur toutes les feuilles de mon fichier 1 sauf sur les onglets "1 Récapitulatif" et "1 récapitulatif par client".
J'ai essayé de faire une macro mais ca ne fonctionne pas...
Sub Reporter()
Dim ws As Worksheet
Dim LastLig As Long
Application.ScreenUpdating = False
With Windows("fichier2.xls").Activate
Sheets("fiche type").Select
Range("A7:N32").Select
For Each ws In ThisWorkbook.Worksheets
If Left(ws.Name, 15) <> "1 Récapitulatif" Then
Range("A8:N32").Copy ws.Range("A8:N32")
Next ws
End With
End Sub
Pouvez-vous m'aider?
Merci d'avance
Anaïs