VB6 : Ajout d'une feuille supplémentaire dans un fichier Excel (erreur d'executiRésolu

Question

Bonjour.

Depuis mon prog en VB6, je cr&#233;&#233; un fichier Excel en cr&#233;ant de nouvelles feuilles avec la commande suivante :

      FichierExcel.Sheets.Add , FichierExcel.Sheets(FichierExcel.Sheets.Count)

Ca marche tr&#232;s bien sur mon poste, mais sur un autre poste, il ne cr&#233;&#233; pas les feuilles.

P.S. : J'ai besoin qu'elles soient cr&#233;&#233;s dans l'ordre car ap&#232;s je change le nom des feuilles.

Merci par avance pour vos r&#233;ponses.

aieeeuuuuu · Accepted Answer

tu ouvre un fichier Excel vierge ?

es tu sur que le nombre de feuilles par d&#233;faut &#224; l'ouverture d'un nouveau classeur le meme sur les deux postes ?

cs_Willi · Answer

Est-ce les memes version d'excel sur les 2 postes ?

cs_pcvesoul · Answer

Oui : Excel 2003

aieeeuuuuu · Answer

salut

Tu as une erreur ???
as tu essay&#233; le pas &#224; pas pour voir ce qu'il se passe.

cs_pcvesoul · Answer

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_Willi · Answer

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&#233;ponse te conviens merci de l'accepter

cs_pcvesoul · Answer

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 · Answer

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 · Answer

Bonjour et merci &#224; tous.

J'ai tenu compte de vos remarques concernant l'utilisation du code. Mais en fait, le vrai probl&#232;me a &#233;t&#233; cern&#233; par aieeeuuuu : mon coll&#232;gue avait param&#233;trer les nouveaux fichiers avec 1 seule feuille.....

@+ et bonne continuation.