Générer PDF avec un nom de fichier lié au résultat d'une cellule
Bonjour,
Je cherche à générer des PDF s'intitulant selon des données présentes dans une cellule (cellule O5), elle-même regroupant des données de plusieurs cellules.
Or je n'arrive pas à écrire la macro... qui bugue...
voici ce que j'ai écrit :
Sub PDF()
'
' PDF Macro
'
'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
"/Volumes/1 - Commun/1- Clients/Conf éditées à envoyer et ranger/" & Range("O5").Value ".pdf" _
, Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End Sub
Pourriez-vous m'aider ?
Merci beaucoup, je m'arrache les cheveux....
Bonjour,
Tu ne précises pas l'endroit du bug ( la ligne)
A tester mais plus simple de déclarer le nom de fichier en variable :
Dim nomfichier As String
nomfichier = "C:\users\mesdocuments\" & Range("O5").Value & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"/Volumes/1 - Commun/1- Clients/Conf ?dit?es ? envoyer et ranger/nomfichier" _
, Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=FalseChemin de l'Adresse enregistrement à préciser avec tes paramètres
Merci pour ces conseils.
Cependant, la macro n'enregistre pas le fichier mais l'imprime 😅.
Une idée du bug ?...
En complément :
Erreur 1004 : erreur définie par l'application ou par l'objet...
Re je viens de tester avec cette macro
à adapter en fonction de l'adresse de ton fichier. j'ai bien un pdf
Dim nomfichier As String
nomfichier = "C:\Users\ton adresse\Desktop\" & Range("O5").Value & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
nomfichier, Quality:=xlQualityStandard, IncludeDocProperties _
:=True, IgnorePrintAreas:=True, OpenAfterPublish:=True
End SubMerci pour ton aide.
Malheureusement, rien ne fonctionne... J'ai toujours la même erreur...
Je suis au bord du craquage 😥
Tu peux joindre ton fichier que je vois si cela fonction de mon coté ?
en fait la macro fonctionne parfaitement sur excel 2016, mais je suis sur excel 2019 mac.
j'ai trouvé que des personnes avaient eu le même souci en passant de excel 2011 à excel 2016.
https://forum.excel-pratique.com/viewtopic.php?t=89753
une idée de quelque chose à paramétrer en amont pour que ce type de macro fonctionne à nouveau (je précise que certaines macros fonctionnent).
Merci beaucoup
Sylvie
BOnsoir a tous...
ce qui pose problème est donc l'arborescence des fichiers entre windows et mac....
sur windows c:\users\xxxx existe alors que sur mac cela n'existe pas... je me suis arrêter a office pour mac2011 mais ton problème vient de là... de plus a l'époque le séparateur de dossier sous windows était le "\" alors que sur mac c’était ":" mais je crois que maintenant on peut utilisé le "\" sur mac....
il faut récupérer le chemin d'enregistrement suivant la machine sur laquelle tu travailles....
un site de référence pour des macros mac :
https://www.rondebruin.nl/mac/mac005.htm
Fred
En fait non, rien ne marche plus...
pourtant cela me parait tellement simple :
La commande fonctionne parfaitement avec un nom fixe pour le fichier.
C'est dès que je rentre après le chemin un nom variable (soit avec range directement comme lors de mon premier essai, soit avec NomFichier comme variable que cela ne fonctionne pas).
Ci-dessous la commande avec comme variable le nom du fichier, qui vient d'une cellule excel elle même calculant son contenu à partir de plusieurs feuilles
' testPDF Macro
'
'
Sheets("cf client").Select
Dim NomFichier As String
NomFichier = Range("O5").Value & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
"/Users/macbook/Desktop/tests PDF/" & NomFichier,
Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:= _
False, OpenAfterPublish:=True
End Sub
BOnjour
sans fichier pour vérifier le contenu de la cellule O5 difficile de dire ce qui pourrait clocher... mais je persiste... a mon avis cela vient du chemin...
Fred