P
Pierre
Guest
Bonjour le forum.
On m'a passé hier un code (Merci au passage à myDearFriend! )
Ce code fonctionne parfaitement mais j'aimerai ne pas me servir du name des feuilles (Sheets('Feuil1')) mais plutot de son codename.
J'ai donc essayé de remplacer Sheets('Feuil1').par Feuil1 mais il me marque une erreur .
Pouvez vous m'aider svp?
Pierre
On m'a passé hier un code (Merci au passage à myDearFriend! )
Code:
Sub Traitement()
If Not Application.Dialogs(xlDialogOpen).Show Then Exit Sub
ActiveWorkbook.Sheets('Feuil1').Cells.Copy Destination:= _
ThisWorkbook.Sheets('Feuil2').Cells
ActiveWorkbook.Close SaveChanges:=False
End Sub
Ce code fonctionne parfaitement mais j'aimerai ne pas me servir du name des feuilles (Sheets('Feuil1')) mais plutot de son codename.
J'ai donc essayé de remplacer Sheets('Feuil1').par Feuil1 mais il me marque une erreur .
Pouvez vous m'aider svp?
Pierre