Discussion :

[kissmytoe]

Bonjour à tous
Je possède le code pour ajouter une feuille, mais le problème c'est que le code "Plante" souvent à cet endroit.
C'est à dire que des fois le code fonctionne parfaitement sans problème, et d'autres fois il m'affiche ("La méthode add de l'objet sheet a échoué")

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
While (Not regions.EOF)
        ligne = ligneDebut
        If (nbRegion > 3) Then
            appExcel.Sheets.Add After:=Sheets(Sheets.Count) <--ICI
        End If
        appExcel.Sheets(nbRegion).Name = regions("nomPROVINCE")
        appExcel.Sheets(nbRegion).Activate
        ...

Si vous avez un bout de code qui pourrait remplacer celui-ci, et ou si vous savez quel est le problème avec celui-ci écrivez moi le

Maryse

[SfJ5Rpw8]

vb ou VBA ?

pourquoi préfixe tu par appExcel. ... et tu ne le fais pas la : :=Sheets(Sheets.Count) ?

[kissmytoe]

Premièrement il est écrit VBA dans mon titre

Deuxièmement appExcel parce que je travaille a partir de Access et que j'ouvre un fichier excel a distance

maryse

[SfJ5Rpw8]

oui .. j'ai oublié un cas ... VBA sous Excel ou ailleurs..?

bon rajoute le prefixe alors... ou utilise With

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

appExcel.Sheets.Add After:=appExcel.Sheets(appExcel.Sheets.Count)

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With appExcel
.Sheets.Add After:=.Sheets(.Sheets.Count)
end With

[kissmytoe]

ohhhhh! c'est vrai il faut que je précice appExcel la deuxième fois c'est là qu'il plante

Merci infiniment pour ton aide