VB6 : Ajout d'une feuille supplémentaire dans un fichier Excel (erreur d'executi [Résolu]

Signaler
Messages postés
123
Date d'inscription
vendredi 21 janvier 2005
Statut
Membre
Dernière intervention
25 juillet 2007
-
Messages postés
123
Date d'inscription
vendredi 21 janvier 2005
Statut
Membre
Dernière intervention
25 juillet 2007
-
Bonjour.

Depuis mon prog en VB6, je créé un fichier Excel en créant de nouvelles feuilles avec la commande suivante :

FichierExcel.Sheets.Add , FichierExcel.Sheets(FichierExcel.Sheets.Count)

Ca marche très bien sur mon poste, mais sur un autre poste, il ne créé pas les feuilles.

P.S. : J'ai besoin qu'elles soient créés dans l'ordre car apès je change le nom des feuilles.

Merci par avance pour vos réponses.

9 réponses

Messages postés
698
Date d'inscription
jeudi 16 janvier 2003
Statut
Membre
Dernière intervention
20 mai 2011
2
tu ouvre un fichier Excel vierge ?

es tu sur que le nombre de feuilles par défaut à l'ouverture d'un nouveau classeur le meme sur les deux postes ?
3
Merci

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

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

Messages postés
2375
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
21
Pag_Excel = i ? non ?

pour ajouter un nombre N de feuille tu as essayer la ligne en gras

Dim w As Workbook
Dim x as integer : x =7

Set w = Workbooks.Open("c:\c.xls")

w.Sheets.Add , , x

'met ton code pr renommer ici dans une boucle

w.Save
w.Close


Si la réponse te conviens merci de l'accepter
3
Merci

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

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

Messages postés
2375
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
21
Est-ce les memes version d'excel sur les 2 postes ?
Messages postés
123
Date d'inscription
vendredi 21 janvier 2005
Statut
Membre
Dernière intervention
25 juillet 2007
1
Oui : Excel 2003
Messages postés
698
Date d'inscription
jeudi 16 janvier 2003
Statut
Membre
Dernière intervention
20 mai 2011
2
salut

Tu as une erreur ???
as tu essayé le pas à pas pour voir ce qu'il se passe.
Messages postés
123
Date d'inscription
vendredi 21 janvier 2005
Statut
Membre
Dernière intervention
25 juillet 2007
1
Oui.

Je compte le nombre N de feuilles dont j'ai besoin.

Si N>3 alors je crée les feuilles supplémentaires en faisant :

For i=4 to N: FichierExcel.Sheets.Add , FichierExcel.Sheets(FichierExcel.Sheets.Count): Next i

Puis j'affecte un nom à chaque feuille en faisant :

FichierExcel.Worksheets(Pag_Excel).Name = rx0!NomObjet

Et ca plante quand Pag_Excel = 4 ce qui est normal puisque la feuille 4 n'a pas été créée.
Messages postés
123
Date d'inscription
vendredi 21 janvier 2005
Statut
Membre
Dernière intervention
25 juillet 2007
1
Oui : le nombre de feuilles est bien le meme sur les 2 postes (3). Et le problème est le même que le fichier n'existe pas ou que j'ecrase un ancien fichier.

En faisant : FeuilleExcel.Sheets.Add , , N (nétant le nombre de page manquante) , mes feuilles ne sont plus créées dans l'ordre et le nom de la 1ere ne change plus
Messages postés
698
Date d'inscription
jeudi 16 janvier 2003
Statut
Membre
Dernière intervention
20 mai 2011
2
c'est sur quelle ligne que ca plante exactement ?
essai de donner un max d'infos sur l'environnement qu'on puisse t'aider mieux :)
Messages postés
123
Date d'inscription
vendredi 21 janvier 2005
Statut
Membre
Dernière intervention
25 juillet 2007
1
Bonjour et merci à tous.

J'ai tenu compte de vos remarques concernant l'utilisation du code. Mais en fait, le vrai problème a été cerné par aieeeuuuu : mon collègue avait paramétrer les nouveaux fichiers avec 1 seule feuille.....

@+ et bonne continuation.