Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

A

Arnold35

XLDnaute Junior
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
 

Pièces jointes

  • Main Courante Essai 2.zip
    180.5 KB · Affichages: 46
Trier par date Trier par votes

cathodique

XLDnaute Barbatruc
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.
 
Dernière édition:
Vote positif 0 Vote négatif
A

Arnold35

XLDnaute Junior
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
 

Pièces jointes

  • Main Courante Essai 3.zip
    181.8 KB · Affichages: 43
Vote positif 0 Vote négatif

cathodique

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

VB: 
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
 
Vote positif 0 Vote négatif
A

Arnold35

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

Je viens d'essayer mais cela ne fonctionne pas.

Code: 
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
 
Vote positif 0 Vote négatif

cathodique

XLDnaute Barbatruc
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
VB: 
Nom = Range("C1") & "-" & Range("H2")
Chemin = "C:\Users\arnold.daviau\Desktop"
CheminComplet = Chemin & "\" & Nom & ".pdf"
Rep = Dir(Chemin & "\" & Fich & ".pdf")
à tester
 
Vote positif 0 Vote négatif
A

Arnold35

XLDnaute Junior
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?
 
Vote positif 0 Vote négatif

cathodique

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

Bingo, t'as trouvé. Dans quelle cellule se trouve la date?
VB: 
Nom = Range("C1") & "-" & Replace(Range("H2"),"/","_")
à adapter
 
Dernière édition:
Vote positif 0 Vote négatif
A

Arnold35

XLDnaute Junior
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.

Code: 
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
 
Vote positif 0 Vote négatif

cathodique

XLDnaute Barbatruc
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, ...)?

à+
 
Dernière édition:
Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc
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.
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

EXCEL :: Exporter un onglet/plage de cellules dans un fichier PDF
Réponses
0
Affichages
334
oguruma
M
  • Résolu(e)
Microsoft 365 Gestion numéros de pages du classeur dans une cellule
2
Réponses
16
Affichages
1 K
sousou
A
  • Résolu(e)
XL 2021 Céer un fichier (.text) avec VBA pour enregistrer les évènements dans un journal
Réponses
4
Affichages
427
arnoldbrice19
A
L
  • Résolu(e)
XL 2016 enregistrer une zone d'impression en pdf
Réponses
7
Affichages
2 K
Linda42
L
E
  • Question
Power Query Index TP de l'INSEE - Ajuster une formule à chaque mise à jour d'un tableau généré avec PQ
2
Réponses
21
Affichages
742
laurent950
  • Question
Récupération des méta-donnée d'un livre à partir de son ISBN
Réponses
0
Affichages
361
Pyros2536
  • Résolu(e)
XL 2019 Aide pour un module d'archivage de feuille en pdf dans répertoire
Réponses
5
Affichages
508
Nico2978
A
  • Résolu(e)
XL 2016 VBA pour sélectionner une plage de cellule à la dernière cellule vide
Réponses
2
Affichages
603
Anto35200
A
C
  • Question
XL 2019 Attribuer un % en fonction de la place d'un ingrédient dans la compo de la formule
Réponses
7
Affichages
326
TooFatBoy
P
  • Question
XL 2021 Code VBA pour copier coller des données de cellules d'une feuille a une autre
Réponses
4
Affichages
546
phoceenjo
P
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…