Enregistrer une plage de cellules en PDF à la fermeture d'un fichier

[Arnold35]

Bonjour à tous,

Débutant en VBA, je cherche à sélectionner une plage de cellules en fonction d'une date (macro réussie), puis la définir en tant que zone d'impression mise en forme sur 1 page. Lorsque la personne fermera le fichier, je souhaiterai qu'une macro se déclenche afin d'enregistrer la sélection sous format PDF puis la stocker dans un répertoire (afin de conserver une trace non modifiable de la sélection en question).

Après plusieurs recherches sur Développez.com j'ai trouvé des bouts de macro pour la selection mais je n'arrive pas à définir la zone d'impression et la mise en page ainsi que l'enregistrement au format PDF dans un dossier tiers.

Avez vous des conseils pour m'aider?

Merci d'avance à vous

 

[cathodique]

Re : Enregistrer une plage de cellules en PDF à la fermeture d'un fichier

Bonjour,

Pour la zone d'impression et la mise en page, utilise l'enregistreur de macro.

Pour l'enregistrement à la fermeture du fichier, clique sur ThisWorkbook, dans la liste déroulante de gauche sélectionne workbook, et dans la liste déroulante de gauche sélectionne "Workbook_BeforeClose" d'où Tu feras appel à la macro qui crée le pdf.

Pour le pdf, tu trouveras cette discussion. Pas beaucoup de temps pour t'aider.

J'ai ouvert ton fichier, tu utilises pdfcreator. personnellement, je travaille avec un complément de Microsoft 'SaveAsPDFandXPS' que tu trouveras en téléchargement.

 

[Arnold35]

Re : Enregistrer une plage de cellules en PDF à la fermeture d'un fichier

Super.

Je crois que ça fonctionne.

J'ai juste un souci qui est que je souhaiterais nommer le pdf avec le contenu de la cellule C1 et la de la cellule H2 (date du jour).

Or on ne peut pas avoir de format date dans le nom d'un fichier.

Avez vous une astuce?

Merci

 

[cathodique]

Re : Enregistrer une plage de cellules en PDF à la fermeture d'un fichier

nom du fichier=Sheets("nomFeuille").Range("C1") & "-" & Sheets("nomFeuille").Range("H2")

 

[cathodique]

Re : Enregistrer une plage de cellules en PDF à la fermeture d'un fichier

Dim Nom As String
Nom = Sheets("nomFeuille").Range("C1") & "-" & Sheets("nomFeuille").Range("H2")
Chemin = "C:\Users\arnold.daviau\Desktop"
Fich = CreateObject("Scripting.FileSystemObject").GetBaseName(Nom)
CheminComplet = Chemin & "\" & Fich & ".pdf"
Rep = Dir(Chemin & "\" & Fich & ".pdf")

Comme ça à tester, je ne travaille pas avec pdfCreator

 

[Arnold35]

Re : Enregistrer une plage de cellules en PDF à la fermeture d'un fichier

Je viens d'essayer mais cela ne fonctionne pas.

Sub ImprimPdf()

Dim Nom As String
Dim Chemin As String
Dim Fich As String
Dim Rep As String
Dim CheminComplet As String

Call Selection


Nom = Range("C1") & "-" & Range("H2")
Chemin = "C:\Users\arnold.daviau\Desktop"
Fich = CreateObject("Scripting.FileSystemObject").GetBaseName(Nom)
'Fich = CreateObject("Scripting.FileSystemObject").GetBaseName(ThisWorkbook.Name)
CheminComplet = Chemin & "\" & Fich & ".pdf"
Rep = Dir(Chemin & "\" & Fich & ".pdf")
 
If Rep = "" Then
    réponse = MsgBox("Le fichier n'existe pas, création du fichier PDFCreator", vbYesNo)
    If réponse = vbYes Then
Impression:
       ChDir Chemin
       ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Rep, _
       Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
       :=False, OpenAfterPublish:=False 'n'affiche pas le fichier PDF
    Else
        MsgBox "Sortie de la procédure"
        Exit Sub
    End If

 

[cathodique]

Re : Enregistrer une plage de cellules en PDF à la fermeture d'un fichier

Désolé, je n'ai pas testé car je travaille avec SaveAsPDFandXPS.

peut-être comme ceci

Nom = Range("C1") & "-" & Range("H2")
Chemin = "C:\Users\arnold.daviau\Desktop"
CheminComplet = Chemin & "\" & Nom & ".pdf"
Rep = Dir(Chemin & "\" & Fich & ".pdf")

à tester

 

[Arnold35]

Re : Enregistrer une plage de cellules en PDF à la fermeture d'un fichier

A mon avis, le souci provient du fait qu'un nom de fichier ne peut contenir de format date avec des séparateurs "/" non?

 

[cathodique]

Re : Enregistrer une plage de cellules en PDF à la fermeture d'un fichier

Bingo, t'as trouvé. Dans quelle cellule se trouve la date?

Nom = Range("C1") & "-" & Replace(Range("H2"),"/","_")

à adapter

 

[Arnold35]

Re : Enregistrer une plage de cellules en PDF à la fermeture d'un fichier

Merci, j'ai inséré le code mais cela ne fonctionne toujours pas.

Je pense que cela provient du code pdf mais je ne suis pas sur.

Nom = Range("C1") & "-" & Replace(Range("H2"), "/", "_")
Chemin = "C:\Users\arnold.daviau\Desktop"
Fich = CreateObject("Scripting.FileSystemObject").GetBaseName(Nom)
'Fich = CreateObject("Scripting.FileSystemObject").GetBaseName(ThisWorkbook.Name)
CheminComplet = Chemin & "\" & Fich & ".pdf"
Rep = Dir(Chemin & "\" & Fich & ".pdf")
 
If Rep = "" Then
    réponse = MsgBox("Le fichier n'existe pas, création du fichier PDFCreator", vbYesNo)
    If réponse = vbYes Then
Impression:
       ChDir Chemin
       ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, [COLOR="#FF0000"]Filename:=Rep[/COLOR], _
       Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
       :=False, OpenAfterPublish:=False 'n'affiche pas le fichier PDF
    Else
        MsgBox "Sortie de la procédure"
        Exit Sub
    End If

 

[cathodique]

Re : Enregistrer une plage de cellules en PDF à la fermeture d'un fichier

Bonjour,

Désolé, je ne peux pas t'aider. Installe le complément SaveAsPDFandXPS que tu trouveras sur le site de Microsoft. Ensuite, reviens pour la solution.

Pour le nom du fichier tu as mis-----> Nom = Range("C1") & "-" & Range("H2") mais tu ne spécifies pas la feuille alors que tu en as 2.

De plus comment est-ce que tu exécutes la macro (raccourci, bouton, ...)?

à+

 

[kiki29]

Re : Enregistrer une plage de cellules en PDF à la fermeture d'un fichier

Salut, le PDF est intégré en natif dans Office à partir d'Office 2007 SP2 ( plus de plugin à télécharger )

Une solution testée avec 2007 SP3.

 

[Arnold35]

Re : Enregistrer une plage de cellules en PDF à la fermeture d'un fichier

Merci à vous, c'est bon j'ai trouvé mon erreur.

La macro s’exécute à la fermeture du fichier.

 

[cathodique]

Re : Enregistrer une plage de cellules en PDF à la fermeture d'un fichier

et on savoir quelle était ton erreur? Juste pour ne pas mourir idiot. Merci.