Bonjour le forum
voici mon probleme
j aimerai copier toutes les feuilles du fichier 'miseajour' vers mon classeur 'Copie (2) de EVS.xls
j ai tester cette macro mais il ne me copie que la premiere feuille
Sub copy()
supFeuille 'supression des feuilles du classeur Copie (2) de EVS.xls
ChDir 'A:\\'
Workbooks.Open Filename:='A:\\miseajour.xls'
Application.DisplayAlerts = True
For I = Sheets.Count To 1 Step -1
If Sheets(I).Name = '1_Vierge' Or Sheets(I).Name = '1_agent' Or Sheets(I).Name = '1_Adresses' Then
Else
Sheets(I).copy after:=Workbooks('Copie (2) de EVS.xls').Worksheets('1_Vierge')
End If
Next
End Sub
J aimerai savoir comment faire pour les selectioner les une apres les autres etant donné que le nb de feuilles varies .
merci
fabrice
voici mon probleme
j aimerai copier toutes les feuilles du fichier 'miseajour' vers mon classeur 'Copie (2) de EVS.xls
j ai tester cette macro mais il ne me copie que la premiere feuille
Sub copy()
supFeuille 'supression des feuilles du classeur Copie (2) de EVS.xls
ChDir 'A:\\'
Workbooks.Open Filename:='A:\\miseajour.xls'
Application.DisplayAlerts = True
For I = Sheets.Count To 1 Step -1
If Sheets(I).Name = '1_Vierge' Or Sheets(I).Name = '1_agent' Or Sheets(I).Name = '1_Adresses' Then
Else
Sheets(I).copy after:=Workbooks('Copie (2) de EVS.xls').Worksheets('1_Vierge')
End If
Next
End Sub
J aimerai savoir comment faire pour les selectioner les une apres les autres etant donné que le nb de feuilles varies .
merci
fabrice