Arrêt de code VB après 10 utilisation

[TETRAM]

Bonjour à tous,

Je reviens vers vous au sujet de l'arrêt de mon code.
Voilà le sert sert à faire mes factures soit environ 60 par mois.
Aujourd'hui toute les 10-12 factures mon codes s'arrête avec le message suivant:
Erreur 1004 "La méthode move de la classe Worksheet a échoué"

Workbooks.Open Filename:="Q:\AC_Archives Facturation.xls"
Workbooks("AC_Facturation.xls").Activate
Sheets("Model (2)").Select
Sheets("Model (2)").Move Before:=Workbooks("AC_Archives Facturation.xls").Sheets(1)
'c'est la ligne qui bloque après une dizaine de facture et je ne comprends car les premières passent bien. Alors si je ferme excel 'et que je rouvre cela remarche mais pour dix factures.
Windows("AC_Archives Facturation.xls").Activate

Et c'est toujours au même endroit alors en fermant Excel et en redémarrant je repart pour 10 factures. vous comprendrez que je ne peux pas travailler comme ça...

Merci de votre temps et de vos suggestions.
Téträm

 

[PascalXLD]

Re : Arrêt de code VB après 10 utilisation

Bonjour

J'ai l'impression que c'est la même erreur que lors d'une copie de feuille modèle

Voir un fil pas trop vieux sur le sujet

 

[PascalXLD]

Re : Arrêt de code VB après 10 utilisation

re

tiens le fil retrouvé

https://www.excel-downloads.com/threads/probleme-avec-copy.67183/

 

[TETRAM]

Re : Arrêt de code VB après 10 utilisation

Merci Pascal76
Je vais explorer la piste du .add
le truc c'est que ma facture comporte des formules mais je vais gérer...
Enfin j'espère.

 

[Bebere]

Re : Arrêt de code VB après 10 utilisation

bonjour le fil
Dim NewSheet as WorkSheet

ActiveWorkbook.Sheets.Add after:=Sheets(Sheets.Count)

ou bien

set NewSheet=ActiveWorkbook.Sheets.Add

NewSheet.Move after:=Sheets(Sheets.Count)

à bientôt