Hello le forum
Voici ma macro mais elle ne fonctionnepas correctement. Quelqu un pourrait il m aider.
Mon but est de copier seulement les feuille du classeur 'miseajour' dans le classeur 'Copie de EVS' mais uniquement celle qui porte le meme nom.
Sub CopyFeuilles()
Dim i As Byte
Dim j As Byte
Application.DisplayAlerts = True
For j = 1 To ActiveWorkbook.Worksheets.Count
If ActiveWorkbook.Sheets(j).Name = Workbooks('Copie de Evs.xls').Sheets(j).Name Then
Windows('Copie de EVS.xls').Activate
Sheets(j).Delete
Windows('miseajour.xls').Activate
Sheets(j).Copy Before:=Workbooks('Copie de EVS.xls').Sheets('1_agent')
Windows('miseajour.xls').Activate
End If
Next j
End Sub
Merci pour votre aide
Fabrice
Voici ma macro mais elle ne fonctionnepas correctement. Quelqu un pourrait il m aider.
Mon but est de copier seulement les feuille du classeur 'miseajour' dans le classeur 'Copie de EVS' mais uniquement celle qui porte le meme nom.
Sub CopyFeuilles()
Dim i As Byte
Dim j As Byte
Application.DisplayAlerts = True
For j = 1 To ActiveWorkbook.Worksheets.Count
If ActiveWorkbook.Sheets(j).Name = Workbooks('Copie de Evs.xls').Sheets(j).Name Then
Windows('Copie de EVS.xls').Activate
Sheets(j).Delete
Windows('miseajour.xls').Activate
Sheets(j).Copy Before:=Workbooks('Copie de EVS.xls').Sheets('1_agent')
Windows('miseajour.xls').Activate
End If
Next j
End Sub
Merci pour votre aide
Fabrice