Macro copy feuille

[Ice]

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

 

[porcinet82]

Salut Ice,

je ne sais pas si je vais pouvoir faire avancer ton problème mais il me semble qu'il y ai des erreurs dans ta macro. dans tout a fait au pifomètre, moi je verrai ca comme ca. A tester

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
    Sheets(I).copy after:=Workbooks('Copie (2) de EVS.xls'Â'Â').Worksheets('1_Vierge'Â'Â')
    End If
Next I
End Sub

bon courage
@+

Message édité par: porcinet82, à: 16/05/2005 12:36