Sauvegarder PDF par macro Résolu/Fermé

Question

Bonjour
J'importe des données dans un modèle EXCEL, lequel je sauvegarde sous un nom de classeur, disons GESTION.  Ce classeur possède 3 onglets: TRAVAIL, RAPPORT PAGE 1, et RAPPORT PAGE 2.  Seulement les 2 pages de RAPPORT doivent être sauvegardées en PDF

J'ai créé une macro pour créer un fichier PDF qui va sauvegarder ce PDF sur le bureau, sous le nom de fichier GESTION que je viens de nommer.

Cela fonctionne. Mais lorsque je veux réouvrir mon modèle pour importer d'autres données et créer un autre nom de fichier, cela ne fonctionne pas, en ce sens qu'il fait le travail, mais conserve l'ancien nom de classeur (STATISTIQUES FORMATIONS)  dans le cas présent).  
Je voudrais qu'il prenne toujours le nom du classeur que je sauvegarde à chaque opération au lieu de prendre STATISTIQUES FORMATIONS par défaut.

À la rigueur, il pourrait prendre le référence de cellule G2 de l'onglet TRAVAIL

Voici mes données:

 Sheets(Array("RAPPORT PAGE 1", "RAPPORT PAGE 2")).Select
    Sheets("RAPPORT PAGE 1").Activate
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\Ordi8\Desktop\STATISTIQUES FORMATIONS.pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
    Sheets("RAPPORT PAGE 2").Select
    ChDir "C:\Users\Ordi8\Desktop"

Merci beaucoup de votre aide

Le Pingou · Answer

Bonjour,
J'ai réalisé un test selon vos informations en utilisant le code fourni.
Une feuille PDF est bien enregistrée sur le bureau, mais pas la deuxième... !
Votre classeur de sauvegarde (ou modèle) reste bien enregistrer avec son nom GESTION.... 
Alors ou est votre problème. ?

RobiQc · Answer

Bonjour Le Pingou et merci beaucoup pour ta réponse rapide.
Je m'aperçois que ma question n'était pas très claire. Et je comprends ta réponse en relation avec ce que tu as probablement compris.

Voici donc quelques autres informations.
- J'ouvre mon fichier modèle vide
- J'y importe les données venant d'un autre fichier dans mon modèle vide (mon classeur de travail)
- La cellule F2 de mon classeur contient la date du travail, et la cellule G2 contient le titre de la formation
- Je sauvegarde immédiatement ce fichier selon les informations contenues dans lesdites cellules, sous le format  "20220221 Pouvoirs"
- À chaque nouveau fichier, ce nom change selon le contenu de F2 et G2.
- Ensuite, j'ai une macro qui vient compléter les informations manquantes dans mon classeur.  
- Puis, j'ai alors créé une macro pour PDF

MACRO CRÉER PDF

La macro sauvegardée lors de la construction du fichier modèle vide contient nécessairement le nom d'un fichier (F2 et G2).

Je crois que mon problème se situe là:  lors de la construction de la macro, j'ai demandé d'aller chercher le nom du fichier que j'avais sauvegardé.  Il garde donc ce nom en mémoire dans son instruction de macro (voir mon énoncé ci-haut, ou le nom STATISTIQUES FORMATION était le nom du fichier utilisé pour la génération de la macro)

Voici ma ligne de code que je voudrais modifier:

"C:\Users\Ordi8\Desktop\STATISTIQUES FORMATIONS.pdf", 

Ma question serait donc plutôt: quelle instruction dois-je donner dans cette ligne pour que STATISTIQUES FORMATIONS.pdf soit plutôt remplacé par le nom du fichier que je viens de sauvegarder. 

Il me semble avoir vu un VBA  quelque part qui allait soit chercher le nom d'un classeur pour l'insérer dans une vba, ou chercher un adresse de cellule au lieu d'une réponse tapée au clavier.  

J'espère être un peu plus clair.  Merci encore et bonne journée.

RobiQc

cs_Le Pivert · Answer

Bonjour,

voir ceci:

https://excelcorpo.com/determiner-le-nom-du-classeur-actif-dans-excel-vba/#:~:text=Vous%20pouvez%20utiliser%20l'instruction,le%20nom%20du%20classeur%20actif.&text=Entrez%20la%20fonction%20d%C3%A9finie%20par,dans%20n'importe%20quelle%20cellule.

Le Pingou · Answer

Bonjour,
Petit oubli, ou se trouve votre macro ( ou les deux!) , dans quel classeur ?
Et si possible le code complet!
Merci

RobiQc · Answer

Bonjour et merci Le Pivert.
Mon fichier modèle se trouve dans le répertoire des modèles personnalisés sous le nom "ModèleStatsFormation", accessible via un raccourci sur le Bureau
Mon fichier contient 4 onglets: DIRECTIVES, TRAVAIL, RAPPORT PAGE 1 et RAPPORT PAGE 2.
La macro est initiée par un bouton qui se trouve dans RAPPORT PAGE 2, dans le répertoire des macros, pour"Tous les classeurs ouverts".
Le code complet de cette macro se trouve tout en haut de ce message.
Merci

cs_Le Pivert · Answer

Voici ma ligne de code que je voudrais modifier:

"C:\Users\Ordi8\Desktop\STATISTIQUES FORMATIONS.pdf"

mettre le nom du fichier dans une cellule comme ceci:

"C:\Users\Ordi8\Desktop\" & Range("A1") & ".pdf"

Le Pingou · Answer

Bonjour,
Modifier votre code comme suit:
Sheets("RAPPORT PAGE 1").Activate
NomFiche = Format(Sheets("TRAVAIL").Range("F2"), "ddmmyyyy") & " " & Sheets("TRAVAIL").Range("G2")

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Ordi8\Desktop\" & NomFiche & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True 

Salutations.
Le Pingou

RobiQc · Answer

Bonjour et merci pour votre réponse
J'ai un message qui me dit que la macro ne fonctionne pas car le fichier n'a pas été sauvegardé.  Vous serait-il possible de créer une nouvelle macro pour sauvegarder le fichier selon les directives ci-haut.  Merci beaucoup encore une fois.
RobiQc

Le Pingou · Answer

Bonjour,
Quelle est le message exact ....?
Je viens de faire un test sur mon fichier d'essai et tout fonctionne correctement, le fichier en PDF est bien enregistré avec le nom correct.
Avec votre fichier modèle se serait plus profitable pour vous donnez la bonne réponse..
Merci de le mettre sur https://www.cjoint.com/ et poster le  lien!

RobiQc · Answer

Bonjour et merci
Malheureusement, je n'ai pas réussi à placer le fichier sur CJoint.com
Désolé.

Le Pingou · Answer

Bonjour,
Ci dessous la marche à suivre  de Raymond Pentier (salutations)
 1) Aller dans https://www.cjoint.com/  2) Cliquer sur [Parcourir] pour sélectionner le fichier (15 Mo maxi) 3) Défiler vers le bas pour cliquer sur le bouton bleu [Créer le lien Cjoint]  4) Au bout de quelques secondes la deuxième page s'affiche, avec le lien en gras ; faire un clic-droit dessus et choisir "Copier le lien" 5) Revenir dans la discussion sur CCM, et dans votre message faire "Coller".=>Voir la fiche https://www.commentcamarche.net/faq/29493-utiliser-cjoint-pour-heberger-des-fichiers

RobiQc · Answer

Bonjour et merci pour votre attention.
Voici le fichier joint.  Enfin !!!  
Petite remarque: "Copier le lien" est plutôt "Copier l'adresse du lien"

https://cjoint.com/c/LCcoHF8Jb4o

J'attends vos commentaires et merci encore!
RobiQc

Le Pingou · Answer

Bonsoir,
Votre fichier modèle (ModeleStatsFormation1.xltm) avec la macro (ancienne sous (Sub CréerPDF_OLD())
Le fichier: https://www.cjoint.com/c/LCcvNIkLQun

RobiQc · Answer

Bonjour et merci beaucoup !  Tout a marché, excepté la sauvegarde à la fin: ce fichier doit se sauvegarder sous le format Classeur excel prenant en charge les macros. j'ai eu un message d'erreur disant que le fichier de sauvegarde n'avait pas la bonne extension.

Copie message erreur envoyé dans Cjoint
Merci
RobiQc

RobiQc · Answer

désolé; voici le lien du fichier.
https://cjoint.com/c/LCcwBKKzW1o

Le Pingou · Answer

Bonjour,
D'après l'image le problème est avec le fichier pdf.... est-ce que lien est correct pour vousC:\Users\Ordi8\Documents\ (pour moi tout fonctionne) 
Note le classeur vient sauvegarder après.

Le Pingou · Answer

Bonsoir,
Suite à une petite recherche sur le code d'erreur qui ressort du poste 17 c’est bien le lien C:\Users\Ordi8\Documents\ qui n'est pas correcte

Le Pingou · Answer

Bonjour RobiQc,
J’ai relu les directives pour l’utilisation du modèle et j’ai adapté la macro en conséquence voir module (lepingou).
Votre fichier : https://www.cjoint.com/c/LCeiXjyN3gn

RobiQc · Answer

Bonjour et merci, le Pingou.  C'est du beau travail.

Puis-je me permettre certaines petites remarques:

1.  J'aimerais que l'instruction CRÉER PDF contienne au début le code nécessaire pour sauvegarder le fichier sous le format Xlsm, avec les instructions formatées en F2 et G2 de TRAVAIL.  Cela éviterait de demander à l'utilisateur de devoir sauvegarder le fichier, avec les possibilités d'erreur.  Les connaissances des utilisateurs potentiels de ce fichier sont très limitées...

2. Je me suis permis de petits changements dans le fichier, que j'ai notés en couleur pour votre approbation ou commentaire de votre part.

3. La date devrait avoir le format yyyymmdd

4. Le 2e mot classeur prend 2 s .

Enfin, voici le lien du fichier Cjoint qui contient le code de la macro CRÉER PDF ()

https://cjoint.com/c/LCeqkJ2Edco

Merci encore de votre attention.  C'est un bon travail

RobiQc

Le Pingou · Answer

Bonjour,
Vous avez des directives pour utiliser le fichier modèle qui précise la SAUVEGARDE DU FICHIER MODÈLE SOUS UN AUTRE NOM.
Ce qui est parfait et qui est le b à ba pour un utilisateur.
Selon votre demande vous voulez automatiser cette opération lorsque toutes les données seront renseignées, donc les directives pour la sauvegarde sont inutiles.
Dans ce cas il est nécessaire que vous fixé l’endroit exacte (répertoire [ C:\........\........\ ] ou doit être enregistré le classeur avec le nom selon F2 et G2 de TRAVAIL.
Si le répertoire n’existe pas vous devez le créer et non pas laisser le choix à l’utilisateur.
Merci de votre réponse.

RobiQc · Answer

Bonjour Le Pingou
J'espère que vous avez passé un bon week-end dans ce monde bouleversé de toutes manières !!!  Enfin, nous sommes là et c'est ce qui importe.
Je me permets de revenir avec quelques petites précisions.
Selon les informations contenues dans votre courrier ci-haut, j'ai remanié mes informations dans la feuille DIRECTIVES (chronologie du déroulement des actions)
Tout va bien jusqu'au moment ou je clique sur CRÉER LE FICHIER PDF : le système me demande alors de sauvegarder le fichier, ce que je tente de faire manuellement.  J'ai alors un message sauvegarder le fichier avant de continuer.  Je clique sur OK.  Là, je n'ai pas le temps de créer le message; j'ai un pop-up me disant: Erreur d'exécution 1004: document non enregistré; le document est peut-être ouvert ou une erreur s'est produite lors de l'enregistrement".
Je clique sur Débogage, et j'ai alors l'écran apparaissant dans le fichier Word inclus dans le présent courriel. Le nom du classeur est toujours "ModeleStatsFormation1".  Je sauvegarde donc le fichier.  Je reclique sur CRÉER LE FICHIER PDF, et le travail se fait parfaitement cette fois, avec la mention montrant le nom du fichier et le répertoire dans lequel le classeur est sauvegardé.
J'ai inscrit dans l'onglet DIRECTIVES, dans mon classeur, que je désirerais que le fichier se sauvegarde automatiquement selon les indications des cellules F2 et G2 de TRAVAIL, avec la date de la formation sous le format yyyymmdd suivi d'un espace et du titre de la formation abrégé, genre premier mot jusqu'à l'espace suivant.  Si vous avez le goût... Sinon, le texte des DIRECTIVES est clair et suffisant pour l'opérateur.
Je vous remercie beaucoup encore une fois pour votre aide précieuse.  Je scrute vos informations à la loupe, dans le but de parfaire mes connaissances en VBA / Macro.  J'en suis au stade très débutant.  J'ai bien regardé des vidéos sur YouTube mais ce n'est pas toujours évident à suivre.
Passez une belle journée.

RobiQc

Fichier WORD: copie de Macro PDF:  https://cjoint.com/c/LChoWGcS4mo
Fichier complet: https://cjoint.com/c/LChoZW7kKlo

Le Pingou · Answer

Bonjour,
J'ai lu jusqu'à DEBOGAGE et je vous fais ma remarque : c'est tout à fait normal car vous avez modifié mon code en supprimant l’instruction [Exit sub] qui est nécessaire pour sortir du programme et permettre de sauvegarder le classeur comme le demande la directive. 

Merci de me communiquer la différence entre les 2 fichiers mis à disposition, car je n’en trouve pas !!!!

Dans le cas ou vous voulez imposer la sauvegarde du fichier selon vos critère ["C:\Users\Ordi8\Documents\StatsFormation»] il est nécessaire que le chemin du répertoire existe sur chaque ordinateur et si manquant il faut le créer… 
J’attend votre réponse avent de poursuivre l’élaboration du code.

Le Pingou · Answer

Bonjour,
Vous m'expliquez à quoi servent les instructions que vous avez ajouté à la fin de la macro  
 ' Place le curseur en AI de la feuille TRAVAIL pour enlever la dernière sélection (TITRE DE LA FORMATION)    Sheets("TRAVAIL").Activate    Range("A1").Select    ' Remet le curseur sur RAPPORT PAGE 2    Sheets("RAPPORT PAGE 2").Activate    Range("A1").Select

Le Pingou · Answer

Bonjour,
Merci, donc sous point 2 de votre réponse c'est bien 2 fois le même fichier...Oui / Non ¨¨¨¨¨
Pour le répertoire : il est impératif que  la racine : "C:\Users\Ordi8" existe (pas possible de le créer par vba , doit être fait sur le/les ordinateur/s utilisé/s.

Merci de votre réponse selon poste 25....!

RobiQc · Answer

Bonjour Le Pingou. 

Désolé pour les fichiers: vous avez raison, les 2 références ouvrent le même fichier. Oublions ces 2 fichiers.  J'ai refait "mes devoirs" ce matin et voici le résultat: nous semblons très près du résultat final

Il faut se rappeler que l'objectif ultime de cette démarche est que l'utilisateur n'aie pas à intervenir dans quoi que ce soit, excepté de copier les données du fichier Excel créé par Microsoft Forms, d'ouvrir le fichier TRAVAIL, et d'y copier les données.  Le reste devrait idéalement se faire tout seul.  Grands espoirs !!!  et merci à vous !

Pour tenter d'en terminer avec cette saga, je vous ajoute un fichier Cjoint:  j'ai créé 2 scénarios: 

1- le premier est ce qui arrive si je ne sauvegarde pas le classeur au début de l'opération,  

2- et en 2e, si je sauvegarde le classeur immédiatement après avoir généré les données.

J'ai ajouté les PrtScr des 2 scénarios dans le répertoire.  Dans les 2 cas, j'ai volontaire nommé les classeurs différemment lorsque je devais les nommer moi-même: on voit donc bien que le système fait son travail en nommant correctement les fichiers .Xlsm et .PDF

Voici la référence du fichier Cjoint:

https://cjoint.com/c/LCipS6tuz4o

Encore une fois, mille mercis

RobiQc

Le Pingou · Answer

Bonjour,
Merci, avant de poursuivre je désire votre réponse selon poste 25 !

Je vous redis que la racine du répertoire :  "C:\Users\Ordi8 doit être présente sur tous les ordinateurs qui seront utilisés .
Remarque: sur votre document  à aucune place vous mentionnez le nom du répertoire complet  ,....!

Le Pingou · Answer

Bonjour,
Ma proposition, je ne suis pas certain que le répertoire de base "C:\Users\Ordi8" existe sur chacun des ordinateurs utilisés ; je réalise un contrôle à l’ouverture du classeur modèle et enregistre un classeur provisoire nommé (Date du jour yyyymmdd + Provisoire) sera supprimé dès la création du PDF et suite.
Note : sera enregistré sur le répertoire normal, sinon sur répertoire par défaut créer par le code ("C:\Ordi8\Documents\StatsFormation").
Ma proposition : https://www.cjoint.com/c/LCkpk4OV74n

Petite note; faire l'essai en utilisant mon classeur modèle...!

RobiQc · Answer

Bonjour Le Pingou.  Merci !!!

Question répertoire: seulement 1 ou 2 ordinateurs maximum utiliseront ce fichier; donc, je vais configurer moi-même le répertoire C:\Users\Ordi8\Documents\StatsFormation pour m'assurer qu'il existe sur chacun des ordinateurs concernés.

Le répertoire nécessaire existe sur mon ordinateur.  J'ai téléchargé votre fichier, accepté les messages de sécurité et l'ai utilisé immédiatement sans modifier quoi que ce soit dans ce fichier.  Après avoir copié et généré les données, tout fonctionne normalement, mais lorsque je clique sur Créer le fichier PDF, j'ai un message d'erreur de la macro:  

                                                   Erreur d'exécution  99999999  ;  document non enregistré.   

Sur débogage, j'obtiens le listing de la macro tel que dans le lien ci-bas.

Par contre, le fichier StatsFormation contient bien un fichier yyyymmddProvisoire,  bien enregistré comme classeur Excel prenant en charge les macros. Par contre, le PDF n'est pas créé.

Voir le listing de la macro dans le lien qui suit:

https://cjoint.com/c/LCksRxxSWOo

Merci encore et encore pour votre travail et désolé de ne pouvoir sortir le champagne immédiatement !!!

RobiQc

Le Pingou · Answer

Bonjour,
Etrange car il semble qu'il y a blocage au niveau du PDF....!
Merci de me donner le répertoire complet ou enregistré le fichier [20220310 Provisoire] ...!
En plus les 2 valeurs des cellules F2 et G2 de la feuille TRAVAIL !

Tout est correct chez moi

RobiQc · Answer

Bonjour

Le répertoire ou sauvegarder les fichiers est  C:\Users\Ordi8\Documents\StatsFormation + NomFichier

Je vous inclus via CJoint le fichier références des données que je copie dans mon fichier.  

Je copie les lignes de données en regard de la formation désirée; j'exporte ces données dans la feuille TRAVAIL de mon fichier, dans la cellule A2; c'est ainsi que se complètent les colonnes F2 (date) et G2 (titre de formation), lesquelles cellules sont employées pour générer le nom du fichier à sauvegarder, autant Excel que PDF.  

Donc, évidemment, ces valeurs changent à chaque nouvelle tâche de comptabilité.

Si vous avez besoin d'autres informations, je suis aussi près que mes touches !  Merci encore.

RobiQc, dans le belle neige de Québec, CANADA

ps: je regarde l'heure d'envoi de votre message:  prenez le temps d'aller dormir, c'est pas si urgent que ça !!!  :)

RobiQc · Answer

Oups, le lien.  Désolé

https://cjoint.com/c/LCkvIqU1g2o

Le Pingou · Answer

Bonjour,
Merci pour le retour, le fichier joint n'est pas utile.
Je veux la réponse pour ceci : En plus les 2 valeurs des cellules F2 et G2 de la feuille TRAVAIL !

RobiQc · Answer

Bonjour Le Pingou
Je ne comprends pas ce que tu désires exactement: dans mon message no 33 ci-haut, je t'expliquais que ces données varient à chaque nouvelle comptabilité, soit que la date F2 et le titre de la formation G2 de la feuille TRAVAIL sont générés par l'intrant du fichier que je t'ai envoyé hier.  Je prends la valeur de la ligne 2 de TRAVAIL car lorsque généré, ce fichier contient la même date et le même titre dans toutes les lignes.
Quand je génère une autre formation, ces données changent sur la feuille TRAVAIL.  
Donc, je ne saisis pas ce que tu veux dire... 
Désolé de ne pouvoir t'en dire plus.
RobiQc

Le Pingou · Answer

Bonjour,
Vous avez indiquez  une erreur lors de l'enregistrement du PDF alors je veux savoir quelles sont les 2 valeurs qui se trouvaient dans F2 et G2  ,   lors de l'erreur.. 
Ma demande du poste 26 est pourtant clair et en plus avec image...!

Le Pingou · Answer

Bonjour,
Je vous demande de faire un essai avec ce fichier:  https://www.cjoint.com/c/LClrT5kGDpn
 Merci.

RobiQc · Answer

Bonjour

Voici le contenu de F2 et G2 de TRAVAIL:

Cellule F2:  2-17-2022	
Cellule G2:  Gestion de conflits : un art plutôt qu’une science…

Bonne journée et merci
RobiQc

RobiQc · Answer

Bonjour
Essai fait avec votre fichier Cjoint:  même problème:
Message:  "Document non enregistré"
Accès à la macro:  en jaune:  Débute à "ActiveSheet.export..." et finit à "True"
En refermant la macro, message = "Cette commande va arrêter le débogueur"

1- Le fichier PDF n'est pas sauvegardé  
2- Le nom du classeur dans la barre des titres en haut est toujours celui que vous m'avez envoyé
3- Le fichier xlsm a bien été sauvegardé dans le bon répertoire, sous le nom  "20220311Provisoire"
4- Les données de F2 et G2 de TRAVAIL sont  "2-17-2022"	et "Gestion de conflits : un art plutôt qu’une science…"

Merci
RobiQc

Le Pingou · Answer

Bonjour,
Si vous avez bien fait les choses , sur votre disque C vous devriez avoir un dossier [Ordi18 .......] et la suite puis le classeur [20220311Provisoire]....!
Le problème est donc avec la valeur se trouvant en G2 ... !!!! voir ceci : http://www.windows8facile.fr/liste-noms-caracteres-interdits-windows/
Bonne suite.

RobiQc · Answer

Bonsoir Le Pingou

Effectivement, j'ai un fichier 20220311Provisoire dans le bon répertoire

Par ailleurs, voici les 2 titres de formation utilisées dans la colonne G2 :

Pouvoirs, rôles et responsabilités des administrateurs
Gestion de conflits : un art plutôt qu’une science…

Le premier (pouvoirs, ) me semble correct car je crois que la virgule est acceptée.  Mais pour le 2e (Gestion), il y a bien un 2 points (:) et ... à la fin

Comme nous sommes en fin de semaine, je vais référer à mon supérieur et discuter avec lui sur une possibilité de réduire certaines fonctions qui somme toute, ne seraient pas nécessaires.  

À première vue, les sauvegardes seraient inutiles pour le fichier Xlsm.  En effet, seulement le fichier PDF est envoyé au formateur, et le fichier source, issu d'un MS Forms en provenance du Web est toujours disponible si l'on devait refaire un PDF plus tard.

Donc, en fin de semaine, on dort là-dessus, et je vous reviens la semaine prochaine.  Merci encore de votre précieuse collaboration.

Bon WE

RobiQc

Le Pingou · Answer

Bonjour,
Eh bien si c'est pas bon pour le PDF il en va de même pour le classeur Excel. 
 Voici ma proposition: https://www.cjoint.com/c/LCmkS344min

RobiQc · Answer

EH BIEN:  C'EST UN SUCCÈS !!!!   :)   :)

Bonjour Le Pingou

Tout fonctionne très bien, rapide, exact.  Vous y avez mis beaucoup de temps et de patience :  MERCI mille fois.

J'espère ne pas avoir des problèmes pour vous comme ça dans mes prochaines communications avec CCM !!!  

Entre temps, prenez soin de vous et au grand plaisir de vous revoir !

RobiQc

Le Pingou · Answer

Merci, content pour vous. 
Pensez de marquer comme résolu si c'est le cas.

RobiQc · Answer

Bonjour,
Le problème est résolu.