Discussion :

[Laura Maetz]

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.

[Laura Maetz]

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

[Philippe Tulliez]

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 :

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

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