Macro: enregistrer les documents sous un répertoire spécifique
Bonjour,
J'ai trouvé la macro suivante, que j'aimerais modifier légèrement:
Sub OngletsEnPDF()
Dim Ws As Worksheet, Fichier As String
'Boucle sur toutes les feuille de calcul du classeur.
For Each Ws In ThisWorkbook.Worksheets
Fichier = ThisWorkbook.Path & "\" & Ws.Name & ".pdf"
'Crée un pdf de chaque feuille
Ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Ws.Name & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
Next Ws
End Sub
Je souhaiterais que toutes les feuilles de mon classeur soient enregistrer au même endroit où la macro a été sauvegardé.
Sauriez-vous quel changement je dois apporter à mon VBA?
Merci et bonne journée.
Catherine
Bonjour CDixon et
Une petite présentation ICI serait la bienvenue
Si tu ne l'as pas encore fait, je t'invite à lire :
- La charte du forum et notamment comment mettre un code entre balises
- Quelques fonctionnalités du forum à connaître
qui t'aideront dans tes demandes et réponses sur ce forum.
Regardes aussi les petites icônes mises à ta disposition dans la barre de menu qui :
- te permette de poster un code (</>)
- ou de clôturer un fil lorsque tu as terminé (V)
Merci pour ta participation
Concernant votre demande, pour vous n'utilisez pas la variable crée
Ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fichier, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
Cordialement
Bonjour Bruno,
Merci pour ces précisions. J'ai modifié ma formule afin de refléter les changements proposés et j'obtiens un message d'erreur: "Erreur d'exécution '1004': Erreur définie par l'application ou par l'objet".
Voici ma formule entière:
Sub OngletsEnPDF()
Dim Ws As Worksheet, Fichier As String
'Boucle sur toutes les feuille de calcul du classeur.
For Each Ws In ThisWorkbook.Worksheets
Fichier = ThisWorkbook.Path & "\" & Ws.Name & ".pdf"
'Crée un pdf de chaque feuille
Ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fichier, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
Next Ws
End Sub
Merci à nouveau pour votre aide dans ce dossier
Catherine