Problème au niveau du langage de programmation

Pierre · 18 Janvier 2006

Bonjour le forum.

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

john · 18 Janvier 2006

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 · 18 Janvier 2006

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

ActiveWorkbook.sheets(1)

Pierre · 18 Janvier 2006

Merci pour vos réponse.

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

Code:

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

Avez vous d'autres solutions.

David

Pierre · 18 Janvier 2006

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

Merci beaucoup à tous les deux

Pierre

Problème au niveau du langage de programmation

Pierre

Guest

john

XLDnaute Impliqué

xtor

XLDnaute Nouveau

Pierre

Guest

Pierre

Guest

Discussions similaires

Problème au niveau du langage de programmation

Pierre

Guest

john

XLDnaute Impliqué

xtor

XLDnaute Nouveau

Pierre

Guest

Pierre

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency