TETRAM
XLDnaute Nouveau
Bonjour,
je crée une base de facturation sur Excel et pour cela j'utilise du code VB mais je ne comprend pas pourquoi mon code s'exécute deux fois.
Vous pourrez tester je l'ai jointe. donc dans l'onglet Facturation si je rentre un code de deal à facturer en A4 il lance un Userform pour sélectionner un mois de Fac mais il me l'exécute 2 fois.
Si vous avez une idée...
Et deuxième pb:
mon code qui édite la facture plante quand je le fais tourner plusieurs fois environ dix fois. et il plante toujours au même endroit, le code me renvoie une erreur 1004 et me dit que "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
Voilà mes problème si quelqu'un pouvait m'aider d'avance merci
je crée une base de facturation sur Excel et pour cela j'utilise du code VB mais je ne comprend pas pourquoi mon code s'exécute deux fois.
Vous pourrez tester je l'ai jointe. donc dans l'onglet Facturation si je rentre un code de deal à facturer en A4 il lance un Userform pour sélectionner un mois de Fac mais il me l'exécute 2 fois.
Si vous avez une idée...
Et deuxième pb:
mon code qui édite la facture plante quand je le fais tourner plusieurs fois environ dix fois. et il plante toujours au même endroit, le code me renvoie une erreur 1004 et me dit que "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
Voilà mes problème si quelqu'un pouvait m'aider d'avance merci