Nommer et enregistrer un fichier PDF

Question

Je sais lancer une macro pour enregistrer un fichier via PDF creator, mais je dois saisir manuellement le nom du fichier et indiquer manuellement aussi l'emplacement de l'enregistrement. Voici ma macro actuelle Range("L3").Select Selection.Copy 'copie du nom de fichier Application.ActivePrinter = "PDFCreator sur Ne00:" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False Peut-on automatiser ces commandes ? Merci d'avance, et bonne journée Ciboulette...

Tonher · Answer

Bonjour ciboulette05;

Pour ma part, je fonctionne avec cette macro:

Sub EnregFichTechPdf()

    Dim Sauvegarde As Variant

     'a adapter si besoin d' une selection d' impression    
    ActiveSheet.PageSetup.PrintArea = "$A$1:$J$31"
    Sauvegarde = Application.GetSaveAsFilename(FileFilter:=" PDF Files (*.pdf), *.pdf")

  'Si, dans la boite de dialogue d' enregistrement, j' annule, je quitte la macro
    If Sauvegarde = False Then
    Exit Sub
    Else

'Sinon, si le nom de fichier que je donne dans la boite de dialogue n' existe pas, j' enregistre       
       If Dir(Sauvegarde) = "" Then

            ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:=Sauvegarde, Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, _
            OpenAfterPublish:=False

            'Si le nom de fichier existe déjà:
            Else
             If MsgBox("Un fichier existant porte déjà ce nom, voulez-vous le remplacer?", vbYesNo + vbExclamation, "demande de confirmation") = vbYes Then

                ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
                Filename:=Sauvegarde, Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, IgnorePrintAreas:=False, _
                OpenAfterPublish:=False

                Else: MsgBox ("Veuillez renommer le fichier")

                Exit Sub

            End If

     End If

   End If

MsgBox ("Ficher enregistré avec succès")

End Sub

Par cette méthode d' enregistrement par exportation, Excel ne prévient pas si un fichier portant ce nom existe déjà .

Il est important de vérifier si le fichier existe pour éviter un écrasement sauvage, par la ligne If Dir(Sauvegarde) = "" Then)

@++

Tonher · Answer

Ok, j'ai degainé un peu vite, laisse tomber celle la, j'en ai une autre sous le coude qui fait exactement ce que tu veux,

J'ai zappé le fait que tu voulais un enregistrement automatique avec remplissage du nom et chemin.

Dès que je rentre chez moi, je l'envoie.

Tonher · Answer

Sub EnregistrerPdf()

Dim Chemin As String
Dim NomFichier As String

    Chemin = "C:\" ' A adapter
    NomFichier = Range("O9") ' Range à adapter

    'Message Box non obligatoire, mais confirme l' emplacement et le nom
    If MsgBox("Ce fichier sera enregistré sous le nom:" & Chr(10) & NomFichier & Chr(10) & Chr(10) & "Dans le dossier:" & Chr(10) & Chemin, vbOKCancel, "confirmation de l' enregistrement") = vbOK Then

    ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & NomFichier & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

    'Message Box non obligatoire,
    MsgBox ("Fichier enregistré avec succés")

    Else: Exit Sub

    End If

End Sub

Je confirme, du moins sur ma configuration, qu ' avec la procédure d' enregistrement par "export"( obligatoire pour le Pdf), qu' il n' y a pas de message d' alerte de risque d 'écrasement fichier.

Pour avoir un message d' avertissement, insérer la ligne

 If Dir(Sauvegarde) = "" Then

Tonher · Answer

Si tu peux envoyer le fichier excel en pièce jointe, débarrassé de données confidentiel, ce sera plus clair selon nombre de feuille etc etc...

Tonher · Answer

Voilà, c' est OK comme ça quand tu as plusieurs feuilles sur le classeur. @++...