[VBA-A] Ajouter une feuille Excel

Bonjour à tous :roll:
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:

---

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

vb ou VBA ?

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

Premièrement il est écrit VBA dans mon titre :roll:

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

maryse

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

bon rajoute le prefixe alors... ou utilise With

Code:

---

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

---

ou

Code:

---

1 2 3

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

---

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 ;)