Erreur 1004 VBA
Bonjour,
Cela fait plusieurs jours que je bute sur une erreur 1004. Ma macro tourne sur Windows XP et sur Windows 8 mais plante sur Windows 7 !!
Cela plante lorsque je lui demande de déplacer une feuille d'un classeur vers un autre.
Voici la commande sur laquelle cela plante :
Sheets(nbfeuilles2).Move After:=Workbooks(vclas & ".xlsx").Sheets(nbfeuilles)
Voici ma macro :
Windows("SuiviSDGRegie.xlsm").Activate
Sheets(nbfeuilles2).Move After:=Workbooks(vclas & ".xlsx").Sheets(nbfeuilles)
Windows("SuiviSDGRegie.xlsm").Activate
Sheets("Modèle").Select
Sheets("Modèle").Copy After:=Sheets(2)
Sheets("Modèle (2)").Select
Sheets("Modèle (2)").Name = vsdg
Range("A3").Value = vclas
Sheets(3).Move After:=ActiveWorkbook.Sheets(nbfeuilles2)
Je n'en mets qu'un petit morceau car sinon elle est beaucoup plus longue....
Pourriez-vous me dépanner svp ?
Merci beaucoup
Bonjour
Pas facile
Vérifies si toutes tes variables sont bien initialisées, ton classeur de réception est il ouvert etc ....
Si tu n'obtiens pas la solution, tes fichiers vont être vite indispensables pour tester
Quand tu dis d'initialiser les variables tu veux dire les déclarer ?
Dim nblignes
Dim vclas
Dim vsdg
Dim vlig
Dim i
nblignes = Range("A2", [A2].End(xlDown)).Count
vclas = Range("AF" & i).Value
vsdg = "sdg" & Range("L" & i).Value
Merci mille fois pour ton aide....
Je joins le fichier au cas où quelqu'un pourrait m'aider ....
Il s'agit de la macro Traitement. Il faudrait modifier le dossier d'enregistrement en fin de macro.
Merci
Bonjour
Énorme cette macro
En plus des instructions qui ne passent pas avec XL 2003
Un truc que j'ai vu (peut-être fichier trop simplifié) tu récupères ta variable vclas à partir de la colonne AF, or celle-ci est vide
A vérifier
Si ce n'est pas la solution : il faut que tu indiques la marche à suivre pour arriver au bug
Bonjour
Ben la colonne AF est créée dans la macro ! Normalement elle tourne mais le bug se fait sur la commande
Sheets(nbfeuilles2).Move After:=Workbooks(vclas & ".xlsx").Sheets(nbfeuilles)
qui permet de déplacer la feuille sur un autre classeur.
Parfois cela bugge et parfois non !!
Je désespère un peu de trouver la solution mais bon...