Problème macro
Résolu
max bdrt
-
max bdrt -
max bdrt -
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.
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.
A voir également:
- Problème macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Macro maker - Télécharger - Divers Utilitaires
- Macro word - Guide
5 réponses
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+
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+
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!
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!
Après
A+
filename = [M21].Value & ".xls"essaie d'inclure la ligne de code
Debug.Print chemin & filenameou
MsgBox chemin & filenameafin de contrôler le chemin complet.
A+
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)
Merci de ton aide. Aurais tu une autre idée? (En espérant que tu ne soit pas à court)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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+
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+
