Vb6 Renommer une feuille excel

Résolu
batao Messages postés 50 Date d'inscription mercredi 27 avril 2005 Statut Membre Dernière intervention 15 mai 2006 - 25 juil. 2005 à 11:54
Zlub Messages postés 809 Date d'inscription mercredi 11 octobre 2000 Statut Membre Dernière intervention 29 septembre 2010 - 25 juil. 2005 à 12:15
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

Zlub Messages postés 809 Date d'inscription mercredi 11 octobre 2000 Statut Membre Dernière intervention 29 septembre 2010 8
25 juil. 2005 à 12:15
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
Zlub Messages postés 809 Date d'inscription mercredi 11 octobre 2000 Statut Membre Dernière intervention 29 septembre 2010 8
25 juil. 2005 à 12:00
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
0
Rejoignez-nous