Code VBA erreur 400 : problème de langue ?

Bonjour,

J'ai réalisé un petit bout de code, dans lequel je copie le contenu d'un onglet vers un nouveau classeur.
Tout fonctionne bien sur mon PC. Mais quand j'installe cela sur un autre pc, un coup ça marche, un coup ça marche pas (ça dépend des pc).

En debuggant, j'ai trouvé la ligne qui me génère une erreur 400.

Si quelqu'un à une idée, je lui serait grandement reconnaissant :)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

nom_cct = dir_destination & "\" & fich_nom & ".xlsx" FichierOùCopier = ActiveWorkbook.Name Application.Workbooks.Add FichierOùColler = ActiveWorkbook.Name Sheets("Feuil3").Select   'ici ça marche pas partout Sheets("Feuil3").Copy Before:=Workbooks(FichierOùColler).Sheets(1)     Workbooks(FichierOùColler).Activate ActiveWorkbook.SaveAs nom_cct ActiveWorkbook.Close Workbooks(FichierOùCopier).Activate

---

Enlève l'accent sur les "Où".
Pour les noms de variables, il est conseiller de s'en tenir aux lettres, chiffres et "_".

Est-ce que la différence entre les postes "qui marchent" et ceux "qui ne marchent pas", ce ne serait pas l'affichage des extensions de fichiers dans l'explorateur Windows ?

Un petit conseil en passant pour simplifier ton code : définit tes variables FichierOùCopier et FichierOùColler en tant que type Workbook.
Tu pourras les utiliser ainsi :

Code:

---

1 2 3 4 5 6 7

Set FichierOùCopier = ActiveWorkbook Workbooks.Add Set FichierOùColler = ActiveWorkbook Sheets("Feuil3").Copy Before:=FichierOùColler.Sheets(1) FichierOùColler.SaveAs nom_cct FichierOùColler.Close FichierOùCopier.Activate

---

C'est plus simple que de passer par leur nom et de devoir chaque fois indiquer "Workbooks".

En plus, quand le nom du fichier change (comme après un SaveAs), la référence de la variable reste correcte puisqu'elle référence le fichier lui-même et non son nom.

Même chose pour les Worksheets.

Bonjour

Citation:

---

En debuggant, j'ai trouvé la ligne qui me génère une erreur 400

---

Je suppose que tant le numéro de cette ligne que le texte du message d'erreur sont des secrets à ne pas divulguer, hein ... :roll:

"En débuggant" ... j'ai simplement utilisé la fonction de deboggage pour constater que la macro plantait lors de l’exécution de
Sheets("Feuil3").Copy Before:=Workbooks(FichierOùColler).Sheets(1)
et le message d'erreur est juste ... erreur 400. A dire vrai, il dit même pas Erreur 400. Juste 400 dans un msgbox d'erreur :(

Rien de secret :)

J'ai mis en ouvre les recommandations de Menhir. Ca marche toujours sur mon pc ... mais pas sur d'autres :-(

J'ai testé avec et sans l'affichage des extensions de fichier dans l'explorateur ... mais malheureusement, sans plus de succès.
Quand je désactive l'affichage des extensions de fichier chez moi, ça marche toujours. Quand je l'active chez les autres, ça marche pas mieux.

Pour ceux qui suivent, la ligne de code qui pose problème est devenue maintenant :

Code:

---

Sheets("Feuil3").Copy Before:=FichierOuColler.Sheets(1)

---

Bonjour,

outre ta problématique qui est l'objet de la discussion, je ne comprend pas vraiment pourquoi tu fais ça :

1) création d'un nouveau classeur
2) sélection de "Feuil 3" de ce nouveau classeur (donc une feuille vierge)
3) déplacement de cette feuille en première position au sein du nouveau classeur

Code:

---

1 2 3 4

Application.Workbooks.Add ' 1) FichierOùColler = ActiveWorkbook.Name Sheets("Feuil3").Select ' 2) Sheets("Feuil3").Copy Before:=Workbooks(FichierOùColler).Sheets(1) ' 3)

---

A travailler à base d'objet actif, on en arrive là, est-ce bien ce que tu souhaites faire ?

si tu regardais de plus près ce que tu faisais hein

Set FichierOùCopier = ActiveWorkbook ' ca c'est le classeur actif je suppose même que c'est celui qui contient la macro
Workbooks.Add ' ici tu ouvre un nouveau classeur
Set FichierOùColler = ActiveWorkbook ' ici ce nouveau classeur devient "FichierOùColler"

Sheets("Feuil3").Copy Before:=FichierOùColler.Sheets(1) ' alors ici va savoir pourquoi tu copie la feuille(3) du nouveau classeur dans le nouveau classeur en le mettant avant la feuille 1

d'après toi que peut il se passer quand on essai d'ajouter ou de renommer une feuille du même nom que l'une du même classeur déjà présente

c'est bon tu la vois la lumière ?

perso je pense que c'est cela que tu voulais faire

Code:

---

FichierOùCopier.Sheets("Feuil3").Copy Before:=FichierOùColler.Sheets(1)

---

allons Joe :koi:

c'est quoi l'intérêt de copier une feuille(3) donc vierge du nouveau classeur dans ce meme classeur

y a pas worksheets.add pour ca ?

allons :mouarf:

Salut Patrick,

n'est-ce pas justement ce que je pointe du doigts dans mon message ?
Je ne propose rien, je pose une simple question.

La création d'un nouveau classeur le rend "Classeur actif" non ?
donc s'il travaille sur sa Sheet sans indiquer le classeur parent, il reste et réalise ses actions uniquement au sein du nouveau classeur.

Je dis des bêtises ? 8O


Et d'ailleurs, pourrait rejoindre le problème de l'auteur.
Si son application Excel sur le poste numéro 2 est paramétré avec "une feuille par défaut lors d'un nouveau classeur", la feuil3 n'existe pas .... mais l'erreur n'aurait pas été la 400 je crois ?

Merci de tous vos commentaires et remarques. Je réactualise le code vba tel qu'il est :

Code:

---

1 2 3 4 5 6 7 8 9

nom_cct = dir_destination & "\" & fich_nom & ".xlsx" Set FichierOuCopier = ActiveWorkbook Workbooks.Add Set FichierOuColler = ActiveWorkbook FichierOuCopier.Sheets("Feuil3").Copy Before:=FichierOuColler.Sheets(1) FichierOuColler.SaveAs nom_cct FichierOuColler.Close FichierOuCopier.Activate

---

Malheureusement, toujours pareil. La ligne
FichierOuCopier.Sheets("Feuil3").Copy Before:=FichierOuColler.Sheets(1)
plante avec une erreur "400" sur d'autres postes, et fonctionne bien sur le mien.

Au sujet de l'utilité : oui, j'ai dans mon classeur de base, des données, et je veux en ressortir certaines pour les mettre dans un nouveau classeur.
Mettons que vous ayez le détail des articles vendus par tous vos commerciaux, et vous voulez faire un fichier à chaque commercial où il aura son détail.
Je prépare donc mon nouveau classeur en recopiant ce qui m'intéresse dans un onglet (Feuil3) du classeur actif, et une fois que je suis prêt, je créée le nouveau classeur, et j'y copie l'onglet feuil3.

J'ai fini par trouver une solution :

Code:

---

1 2 3 4 5 6 7 8 9

Set FichierOuCopier = ActiveWorkbook 'Workbooks.Add 'Set FichierOuColler = ActiveWorkbook FichierOuCopier.Sheets("Feuil3").Copy 'Before:=FichierOuColler.Sheets(1) Set FichierOuColler = ActiveWorkbook FichierOuColler.SaveAs nom_cct FichierOuColler.Close FichierOuCopier.Activate

---

si on enlève le "Before ..." excel créée un nouveau classeur.
J'utilise donc cela, et comme il devient actif, je le nomme comme je veux.

Et là, ca marche sur tous les PC que j'ai pu tester :)

Merci à tous de votre aide !

Bonjour,

ceux où ça plante ne serait pas avec excel >= 2013 des fois, ou bien que le classeur soit créé dans une nouvelle session excel ?
Sinon plus simplement

Code:

---

Sheets("Feuil3").Copy

---

te crée un nouveau classeur avec ta feuille.
eric

Citation:

---

Envoyé par breumtch

et le message d'erreur est juste ... erreur 400. A dire vrai, il dit même pas Erreur 400. Juste 400 dans un msgbox d'erreur :(

---

Ca ressemble fortement à ce que donnerait un On Error Goto placé en amont dans ton code.
On ne le répètera jamais assez : ces trucs sont une vraie plaie pour le développement.
A n'utiliser qu'avec une extrême modération sur des cas ponctuels avec un On Error Goto 0 placé maxi deux ou trois lignes plus loin, avec une idée très précise de l'erreur qu'on veut intercepter.

Le placer pour l'ensemble du code en espérant "effacer" n'importe quel problème, c'est coder en jouant l'autruche, une méthode qui a démontré son inefficacité en développement.

Vire ce On Error et peut-être pourras-tu avoir des messages d'erreur plus pertinents.

Citation:

---

Envoyé par breumtch

J'ai fini par trouver une solution :

Code:

---

1 2 3 4 5 6 7 8

Set FichierOuCopier = ActiveWorkbook 'Workbooks.Add 'Set FichierOuColler = ActiveWorkbook FichierOuCopier.Sheets("Feuil3").Copy 'Before:=FichierOuColler.Sheets(1) Set FichierOuColler = ActiveWorkbook FichierOuColler.SaveAs nom_cct FichierOuColler.Close FichierOuCopier.Activate

---

---

Encore plus simple :

Code:

---

1 2 3

Sheets("Feuil3").Copy ActiveWorkbook.SaveAs nom_cct ActiveWorkbook.Close

---

Pas besoin de variables.

Citation:

---

Envoyé par Menhir

Ca ressemble fortement à ce que donnerait un On Error Goto placé en amont dans ton code.

---

Je fais du vba juste en bidouilleur... je gère pas les erreurs , et donc, n'utilise pas de truc du genre "on error goto".
Je fait mon p'tit bout d'code, je lance, ça plante, je corrige, ça replante, etc, jusqu'à ce que ça marche.
Donc dans mes machins vba, moi y a pas d'erreurs... une fois qu'ils sont corrigés :)

Mais j’apprécie Menhir tes conseils ;)

Citation:

---

Envoyé par eriiic

ceux où ça plante ne serait pas avec excel >= 2013 des fois,

---

Si, c'est bien Excel 2013. Mais ceux où ça marche aussi :)

Mais bon en codant un peu différemment, plus de problème... :)

Citation:

---

Envoyé par breumtch

Je gère pas les erreurs , et donc, n'utilise pas de truc du genre "on error goto".

---

Malheureusement, une partie de ceux qui utilisent cette commande ne gèrent pas non plus les erreurs.
Ils l'utilisent simplement comme une sorte de baguette magique en imaginant que ça fait disparaitre les bugs sans avoir à les corriger. :lol:
Mais comme le disait Pierre Dac, "si la fortune vient en dormant, les emmerdements reviennent au réveil". :mrgreen: