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

cs_pcvesoul 123 Messages postés vendredi 21 janvier 2005Date d'inscription 25 juillet 2007 Dernière intervention - 26 sept. 2005 à 10:31 - Dernière réponse : cs_pcvesoul 123 Messages postés vendredi 21 janvier 2005Date d'inscription 25 juillet 2007 Dernière intervention
- 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
aieeeuuuuu 698 Messages postés jeudi 16 janvier 2003Date d'inscription 20 mai 2011 Dernière intervention - 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é 84 internautes ce mois-ci

Meilleure réponse
cs_Willi 2381 Messages postés jeudi 12 juillet 2001Date d'inscription 13 février 2015 Dernière intervention - 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é 84 internautes ce mois-ci

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