Problème au niveau du langage de programmation

[Pierre]

Bonjour le forum.

On m'a passé hier un code (Merci au passage à myDearFriend! )

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

 

[john]

Salut,

Pourquoi ne récupéres-tu pas le nom de la feuille et de mettre le nom de cette feuille à la place de 'feuil1' ???

Pour récupérer le nom de la feuille voici comment faire : nom = ActiveSheet.Name

et ensuite tu écris comme ceci :
ActiveWorkbook.Sheets(nom).Cells.Copy....

J'espère que ça résoudra ton problème !!!

Bonne journée.

John

 

[xtor]

Et en remplaçant le nom par le numéro de la feuille ... Est ce une solution ?

ActiveWorkbook.sheets(1)

 

[Pierre]

Merci pour vos réponse.

Mais pour les deux solutions il me marque une erreur sur la ligne

'Remplacer par vos solutions'.Cells.Copy Destination:=

Avez vous d'autres solutions.

David

 

[Pierre]

Ca fonctionne parfaitement. J'avais mis deux fois ActiveWorkbook lol

Merci beaucoup à tous les deux

Pierre