Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Arrêt de code VB après 10 utilisation

TETRAM

XLDnaute Nouveau
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
 

Bebere

XLDnaute Barbatruc
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
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…