Vb6 Renommer une feuille excel

Résolu
Signaler
Messages postés
50
Date d'inscription
mercredi 27 avril 2005
Statut
Membre
Dernière intervention
15 mai 2006
-
Messages postés
809
Date d'inscription
mercredi 11 octobre 2000
Statut
Membre
Dernière intervention
29 septembre 2010
-
Bonjour à tout le monde !!!

Dans mon programme je voudrais renommer de feuilles excel pour plus de lisibilitée dans le traitement et la lecture

Pour cela je déclare une feuille

Dim sh As Excel.Worksheet
sh = ThisWorkbook.Worksheets.Add()

c'est un code que j'ai trouvé sur MSDN mais il ne marche pas

Si vou voyez pourquoi n'hésitez pas

Merci d'avance

batao

2 réponses

Messages postés
809
Date d'inscription
mercredi 11 octobre 2000
Statut
Membre
Dernière intervention
29 septembre 2010
9
Salut,

Au fait, j'ai oublié de rendre le classeur visible, mais je penses que tu as trouvé tous seul ... Au cas où



Dim My_XL As Excel.Application

Set My_XL = New Excel.Application



' Ajout d'un work book

My_XL.Workbooks.Add

My_XL.ActiveWorkbook.Sheets(1).Name = "Voici"

My_XL.Visible = True

++

Zlub
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci

Messages postés
809
Date d'inscription
mercredi 11 octobre 2000
Statut
Membre
Dernière intervention
29 septembre 2010
9
Salut,

Dim My_XL As Excel.Application
Set My_XL = New Excel.Application

' Ajout d'un work book
My_XL.Workbooks.Add
My_XL.ActiveWorkbook.Sheets(1).Name = "Voici"

++

Zlub