Problème macro Résolu/Fermé

Question

Bonjour,


J'ai un problème avec une macro toute simple que j'ai créer. Elle fonctionnait très bien jusqu'à présent. Quand je souhaite l'exécuter le message " la méthode save as de l'objet
workbook a échoué" je lance le débogage et la ligne :

 ActiveWorkbook.SaveAs chemin & filename est en jaune. 

Quand je fais définition une fenêtre apparait et m'indique qu'il est impossible d'aller a "ActiveWorkbook" qui est caché.

Mon classeur n'est pas caché ni protégé je ne comprend donc pas se qui ne va pas.

Voici ce que j'ai créer si ça peut aider.

Sub impression_save()
    Dim chemin As String, filename As String
    chemin = ("\S\P\Com\A5- FACT\A1- factures provisoires\")
    filename = [M21].Value & ".xls"
    ActiveWorkbook.SaveAs chemin & filename
    Sheets("1ere Page FactureX").PrintOut copies:=3
End Sub

Aidez moi SVP !! merci d'avance.

Gyrus · Answer

Bonjour,

Tu indiques que le nom du classeur est dans la cellule M21 mais tu ne précises pas dans quelle feuille.
La procédure va donc chercher le nom dans la cellule M21 de la feuille active.
Reste à voir si c'est bien cette feuille qui contient nom du classeur.

A+

max bdrt · Answer

Bonjour,

Merci pour ta réponse!

La cellule M21 est sur la feuille active donc je ne pense pas que le problème vienne de là.
Ce qui m'intrigue c'est que lorsque je fais définition le message qui s'affiche m'indique qu'il est impossible d'aller à 'workbook' qui est caché.

Si tu as une autre piste je suis preuneur!

Gyrus · Answer

Après filename = [M21].Value & ".xls" 
essaie d'inclure la ligne de code  Debug.Print chemin & filename ou MsgBox chemin & filename afin de contrôler le chemin complet.

A+

max bdrt · Answer

Pas de changement la ligne "ActiveWorkbook.SaveAs chemin & filename" toujour en jaune et lorsque je fais définition "ActiveWorkbook" est toujour caché.

Merci de ton aide. Aurais tu une autre idée? (En espérant que tu ne soit pas à court)

max bdrt · Answer

Problème résolu !!!

Apriori l'erreur se trouvait sur la ligne "ActiveWorkbook.SaveAs chemin & filename"
où il fallait écrire non pas .SaveAs mais .SaveCopyAs !

Cela n'explique pas pourquoi cela fonctionnait avant et puis d'un coup plus rien mais l'essentiel est qu'à présent c'est bon!!

Je te remercie encore pour ton aide. 

A+

Problème macro

5 réponses

Discussions similaires