VB6 : Ajout d'une feuille supplémentaire dans un fichier Excel (erreur d'executi
Résolu
cs_pcvesoul
Messages postés
123
Date d'inscription
vendredi 21 janvier 2005
Statut
Membre
Dernière intervention
25 juillet 2007
-
26 sept. 2005 à 10:31
cs_pcvesoul Messages postés 123 Date d'inscription vendredi 21 janvier 2005 Statut Membre Dernière intervention 25 juillet 2007 - 27 sept. 2005 à 08:11
cs_pcvesoul Messages postés 123 Date d'inscription vendredi 21 janvier 2005 Statut Membre Dernière intervention 25 juillet 2007 - 27 sept. 2005 à 08:11
A voir également:
- VB6 : Ajout d'une feuille supplémentaire dans un fichier Excel (erreur d'executi
- Vb6 mid ✓ - Forum Visual Basic
- Vb6 split ✓ - Forum Visual Basic 6
- Datediff vb6 ✓ - Forum Visual Basic 6
- Vb6 decompiler - Forum Visual Basic 6
- Vb6 else if - Conseils pratiques -Visual Basic / VB.NET
9 réponses
aieeeuuuuu
Messages postés
698
Date d'inscription
jeudi 16 janvier 2003
Statut
Membre
Dernière intervention
20 mai 2011
3
26 sept. 2005 à 11:43
26 sept. 2005 à 11:43
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 ?
es tu sur que le nombre de feuilles par défaut à l'ouverture d'un nouveau classeur le meme sur les deux postes ?
cs_Willi
Messages postés
2375
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
22
26 sept. 2005 à 11:45
26 sept. 2005 à 11:45
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
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
cs_Willi
Messages postés
2375
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
22
26 sept. 2005 à 10:59
26 sept. 2005 à 10:59
Est-ce les memes version d'excel sur les 2 postes ?
cs_pcvesoul
Messages postés
123
Date d'inscription
vendredi 21 janvier 2005
Statut
Membre
Dernière intervention
25 juillet 2007
1
26 sept. 2005 à 11:01
26 sept. 2005 à 11:01
Oui : Excel 2003
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
aieeeuuuuu
Messages postés
698
Date d'inscription
jeudi 16 janvier 2003
Statut
Membre
Dernière intervention
20 mai 2011
3
26 sept. 2005 à 11:16
26 sept. 2005 à 11:16
salut
Tu as une erreur ???
as tu essayé le pas à pas pour voir ce qu'il se passe.
Tu as une erreur ???
as tu essayé le pas à pas pour voir ce qu'il se passe.
cs_pcvesoul
Messages postés
123
Date d'inscription
vendredi 21 janvier 2005
Statut
Membre
Dernière intervention
25 juillet 2007
1
26 sept. 2005 à 11:22
26 sept. 2005 à 11:22
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.
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
Messages postés
123
Date d'inscription
vendredi 21 janvier 2005
Statut
Membre
Dernière intervention
25 juillet 2007
1
26 sept. 2005 à 12:03
26 sept. 2005 à 12:03
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
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
Messages postés
698
Date d'inscription
jeudi 16 janvier 2003
Statut
Membre
Dernière intervention
20 mai 2011
3
26 sept. 2005 à 15:11
26 sept. 2005 à 15:11
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 :)
essai de donner un max d'infos sur l'environnement qu'on puisse t'aider mieux :)
cs_pcvesoul
Messages postés
123
Date d'inscription
vendredi 21 janvier 2005
Statut
Membre
Dernière intervention
25 juillet 2007
1
27 sept. 2005 à 08:11
27 sept. 2005 à 08:11
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.
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.
