Discussion :

[breumtch]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[unparia]

Bonjour

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 ...

[breumtch]

"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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[joe.levrai]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[patricktoulon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patricktoulon]

allons Joe

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

[joe.levrai]

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 ?


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 ?

[breumtch]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[breumtch]

J'ai fini par trouver une solution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[eriiic]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Feuil3").Copy

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

[Menhir]

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.

J'ai fini par trouver une solution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    Sheets("Feuil3").Copy
    ActiveWorkbook.SaveAs nom_cct
    ActiveWorkbook.Close

Pas besoin de variables.

[breumtch]

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

[breumtch]

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...

[Menhir]

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.
Mais comme le disait Pierre Dac, "si la fortune vient en dormant, les emmerdements reviennent au réveil".