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
- 26 sept. 2005 à 10:31 - Dernière réponse :
Messages postés
123
Date d'inscription
vendredi 21 janvier 2005
Dernière intervention
25 juillet 2007
- 27 sept. 2005 à 08:11
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
Messages postés
698
Date d'inscription
jeudi 16 janvier 2003
Dernière intervention
20 mai 2011
- 26 sept. 2005 à 11:43
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 ?

Merci aieeeuuuuu 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 90 internautes ce mois-ci

Meilleure réponse
Messages postés
2381
Date d'inscription
jeudi 12 juillet 2001
Dernière intervention
13 février 2015
- 26 sept. 2005 à 11:45
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

Merci cs_Willi 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 90 internautes ce mois-ci

Messages postés
2381
Date d'inscription
jeudi 12 juillet 2001
Dernière intervention
13 février 2015
- 26 sept. 2005 à 10:59
0
Merci
Est-ce les memes version d'excel sur les 2 postes ?
Messages postés
123
Date d'inscription
vendredi 21 janvier 2005
Dernière intervention
25 juillet 2007
- 26 sept. 2005 à 11:01
0
Merci
Oui : Excel 2003
Messages postés
698
Date d'inscription
jeudi 16 janvier 2003
Dernière intervention
20 mai 2011
- 26 sept. 2005 à 11:16
0
Merci
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
Dernière intervention
25 juillet 2007
- 26 sept. 2005 à 11:22
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.
Messages postés
123
Date d'inscription
vendredi 21 janvier 2005
Dernière intervention
25 juillet 2007
- 26 sept. 2005 à 12:03
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
Messages postés
698
Date d'inscription
jeudi 16 janvier 2003
Dernière intervention
20 mai 2011
- 26 sept. 2005 à 15:11
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 :)
Messages postés
123
Date d'inscription
vendredi 21 janvier 2005
Dernière intervention
25 juillet 2007
- 27 sept. 2005 à 08:11
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.

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.