Posez votre question Signaler

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

Messages postés
123
Date d'inscription
vendredi 21 janvier 2005
Dernière intervention
25 juillet 2007
 - - Dernière réponse : cs_pcvesoul
Messages postés
123
Date d'inscription
vendredi 21 janvier 2005
Dernière intervention
25 juillet 2007
 - 27 sept. 2005 à 08:11
Visual Basic Posez votre question Signaler
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.
Afficher la suite 

9 réponses

Meilleure réponse
Signaler Commenter la réponse de aieeeuuuuu
Messages postés
698
Date d'inscription
jeudi 16 janvier 2003
Dernière intervention
20 mai 2011
 2
3
Merci
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 ?

Dire « Merci » 3

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

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

Signaler Commenter la réponse de cs_Willi
Messages postés
2382
Date d'inscription
jeudi 12 juillet 2001
Dernière intervention
15 décembre 2018
 17
3
Merci
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

Dire « Merci » 3

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

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

Signaler Commenter la réponse de cs_Willi
Messages postés
2382
Date d'inscription
jeudi 12 juillet 2001
Dernière intervention
15 décembre 2018
 17
0
Merci
Est-ce les memes version d'excel sur les 2 postes ?
Signaler Commenter la réponse de cs_pcvesoul
Messages postés
123
Date d'inscription
vendredi 21 janvier 2005
Dernière intervention
25 juillet 2007
 1
0
Merci
Oui : Excel 2003
Signaler Commenter la réponse de aieeeuuuuu
Messages postés
698
Date d'inscription
jeudi 16 janvier 2003
Dernière intervention
20 mai 2011
 2
0
Merci
salut

Tu as une erreur ???
as tu essayé le pas à pas pour voir ce qu'il se passe.
Signaler Commenter la réponse de cs_pcvesoul
Messages postés
123
Date d'inscription
vendredi 21 janvier 2005
Dernière intervention
25 juillet 2007
 1
0
Merci
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.
Signaler Commenter la réponse de cs_pcvesoul
Messages postés
123
Date d'inscription
vendredi 21 janvier 2005
Dernière intervention
25 juillet 2007
 1
0
Merci
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
Signaler Commenter la réponse de aieeeuuuuu
Messages postés
698
Date d'inscription
jeudi 16 janvier 2003
Dernière intervention
20 mai 2011
 2
0
Merci
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 :)
Signaler Commenter la réponse de cs_pcvesoul
Messages postés
123
Date d'inscription
vendredi 21 janvier 2005
Dernière intervention
25 juillet 2007
 1
0
Merci
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.
Posez votre question
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.