- VB6 - Modifier l'ordre et changer le nom des feuilles d'un fichier Excel [Résolu]
- Vb6 ajouter une colonne dans un tableau excel [Résolu]
- VB6 joindre dossier a feuille [Résolu]
- Manipuler des fichiers excel sous vb6 sans référencer excel et sans laisser de processus dans le ges
- Visual Basic / VB.NET : Génération de fichier excel et ajout de pièce jointe !
VB6 : Ajout d'une feuille supplémentaire dans un fichier Excel (erreur d'executi [Résolu]
Signaler
cs_pcvesoul
cs_pcvesoul
- Messages postés
- 123
- Date d'inscription
- vendredi 21 janvier 2005
- Statut
- Membre
- Dernière intervention
- 25 juillet 2007
cs_pcvesoul
- Messages postés
- 123
- Date d'inscription
- vendredi 21 janvier 2005
- Statut
- Membre
- Dernière intervention
- 25 juillet 2007
A voir également:
- VB6 : Ajout d'une feuille supplémentaire dans un fichier Excel (erreur d'executi
- Addin VB6 Ajouter une Textbox Ou une Command1 ou une Listbox ✓ - Forum - Visual Basic 6
- [déplacé VB6 -> VBA] Selection de feuille excel avec une macro ✓ - Forum - Visual Basic 6
- Ajout d'une fenetre supplémentaire en plus de la fenetre principale dans un prog ✓ - Forum - C++ & C++ .NET
- VB6 : Ajout d'un champ dans une table ACCESS ✓ - Forum - Visual Basic
- VB6 - Modifier l'ordre et changer le nom des feuilles d'un fichier Excel ✓ - Forum - Visual Basic
9 réponses
aieeeuuuuu
- Messages postés
- 698
- Date d'inscription
- jeudi 16 janvier 2003
- Statut
- Membre
- Dernière intervention
- 20 mai 2011
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
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
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
Oui : Excel 2003
aieeeuuuuu
- Messages postés
- 698
- Date d'inscription
- jeudi 16 janvier 2003
- Statut
- Membre
- Dernière intervention
- 20 mai 2011
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
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
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
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
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.