La méthode SaveAs de l'objet _Workbook a échoué

Bonjour

J'ai un classeur principal qui créé un nouveau classeur par une méthode worksheet("mafeuille").move

Ce nouveau classeur/feuille est modifié (son nom est sauvé dans la variable 'mafacture') et génère un fichier PDF + une rédaction de mail (le .send reste manuel jusque là)

Puis je cherche à sauvegarder ce classeur/feuille et récolte l'erreur en objet. Si manuellement je clique sur la feuille du classeur et continue ma macro, ça fonctionne (donc c'est pas une erreur d'emplacement de sauvegarde).

J'ai essayé d'appliquer des activate sur le classeur, sur l'application et sur les 2 mais rien n'y fait.

Quelqu'un a-t-il un idée??

AppActivate mafacture
Workbooks(mafacture).Activate
Workbooks(mafacture).SaveAs Filename:=savelocation & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

Merci par avance pour vos aides précieuses.

Bon

J'ai finalement placé ma commande SaveAs avant l'ouverture du pdf généré (ThisWorkbook.FollowHyperlink savelocation & ".pdf") et du coup ça fonctionne comme ça.

Pas de vrai problème aussi donc, hormis de la cu5riosité intellectuelle : pourquoi ça ne marche pas après ce lien..?

Bonjour,
Sans visualiser l'entièreté du code que vous avez utilisé, il est difficile de se prononcer mais voici une procédure qui fonctionne parfaitement et qui fait exactement ce que vous avez décrit

• Transfert de la feuille nommée "Ma facture", présente dans le classeur où se trouve le code VBA, vers un nouveau classeur
• Conversion de la feuille nouvelle transférée en fichier pdf
• Sauvetage du nouveau classeur avec pour nom "Ma facture" dans le même répertoire que le classeur source avec comme suffixe xlsx
• Fermeture du nouveau classeur

Code de la procédure

Code:

---

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

Sub MoveSheet() Const NewName As String = "Ma Facture" Dim wkb_New As Workbook Dim FullName As String Dim CurrentFolder As String CurrentFolder = ThisWorkbook.Path FullName = CurrentFolder & "\" & NewName ThisWorkbook.Worksheets(NewName).Move Set wkb_New = ActiveWorkbook ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FullName & ".pdf" With wkb_New .SaveAs Filename:=FullName & ".xlsx" .Close End With Set wkb_New = Nothing End Sub

---