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
- VB6 : Ajout d'une feuille supplémentaire dans un fichier Excel (erreur d'executi
- [déplacé VB6 -> VBA] Selection de feuille excel avec une macro [Résolu] (Résolu) » Forum - Visual Basic 6
- Question subsidiaire à VB6 et ajouter une feuille à un classeur. [Résolu] (Résolu) » Forum - Visual Basic 6
- VB6 et ajouter une feuille à un classeur Excel. [Résolu] (Résolu) » Forum - Visual Basic 6
- Ajout d'une fenetre supplémentaire en plus de la fenetre principale dans un prog [Résolu] (Résolu) » Forum - C++ & C++ .NET
- VB6.0 => ajouter une feuille Excel [Résolu] (Résolu) » Forum - Visual Basic
9 réponses
Meilleure réponse
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 ?
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 92 internautes ce mois-ci
Meilleure réponse
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
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 92 internautes ce mois-ci
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.
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
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.