IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Macro enregistrement automatique au format PDF


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Femme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    Décembre 2016
    Messages
    100
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Essonne (Île de France)

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : Décembre 2016
    Messages : 100
    Par défaut Macro enregistrement automatique au format PDF
    Bonjour,

    Je travaille sur une macro permettant l'enregistrement automatique de feuille au format PDF. Tout fonctionne.

    J'ai tout de même besoin d'ajouter un code/MsgBox pour vérifier si le fichier existe déjà et proposer de le remplacer.

    Merci pour votre aide

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    Sub Enregistrer_pdf()
    Dim nompdf As String
    Dim Chemin As String
     
    On Error GoTo erreur
     
        Chemin = ActiveSheet.Range("K1").Value
        nompdf = Chemin & "\" & Range("G1").Value
     
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nompdf & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
     
    Exit Sub
     
    erreur:
     
        MsgBox "Erreur : " & Err.Number & vbLf & Err.Description
    End Sub
    Merci pour votre aide et bonne journée

  2. #2
    Expert éminent Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    Juin 2007
    Messages
    16 037
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2007
    Messages : 16 037
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    Sub Enregistrer_pdf()
        Dim nompdf As String
        nompdf = ActiveSheet.Range("K1").Value & "\" & Range("G1").Value & ".pdf"
     
        If Len(Dir(nompdf)) > 0 Then
            If MsgBox("Voulez-vous écraser le fichier existant ?", vbYesNo + vbCritical + vbDefaultButton2) = vbNo Then Exit Sub
        End If    
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nompdf & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
     Exit Sub

  3. #3
    Membre confirmé
    Femme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    Décembre 2016
    Messages
    100
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Essonne (Île de France)

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : Décembre 2016
    Messages : 100
    Par défaut
    Bonjour et Merci Menhir, cela a bien fonctionné la première fois, mais ensuite impossible de la faire fonctionner.
    Très bonne journée

    Menhir, si je peux me permettre, j'aimerai mettre comme MsbBox "Le fichier [nom du fichier] existe ...... comment faire pour automatiser le nom du fichier, j'ai essayé d'utiliser le Range("G1").Value & ".pdf, mais cela ne fonctionne pas

  4. #4
    Expert éminent Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    Juin 2007
    Messages
    16 037
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2007
    Messages : 16 037
    Par défaut
    Citation Envoyé par Kaytilou Voir le message
    Bonjour et Merci Menhir, cela a bien fonctionné la première fois, mais ensuite impossible de la faire fonctionner.
    Il faut insister.

    Bin, oui. Si tu ne prends pas la peine d'être plus descriptive sur ton dysfonctionnement, je ne vois pas pourquoi je me donnerai du mal.

    Citation Envoyé par Kaytilou Voir le message
    Menhir, si je peux me permettre, j'aimerai mettre comme MsbBox "Le fichier [nom du fichier] existe ...... comment faire pour automatiser le nom du fichier, j'ai essayé d'utiliser le Range("G1").Value & ".pdf, mais cela ne fonctionne pas
    Montre la ligne de code que tu as essayée.

  5. #5
    Membre confirmé
    Femme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    Décembre 2016
    Messages
    100
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Essonne (Île de France)

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : Décembre 2016
    Messages : 100
    Par défaut
    Citation Envoyé par Menhir Voir le message
    Il faut insister.

    Bin, oui. Si tu ne prends pas la peine d'être plus descriptive sur ton dysfonctionnement, je ne vois pas pourquoi je me donnerai du mal.


    Montre la ligne de code que tu as essayée.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    If Len(Dir(nompdf)) > 0 Then
            If MsgBox("Voulez-vous écraser le fichier" & Filename:=nompdf & ".pdf" &"existant ?", vbYesNo + vbCritical + vbDefaultButton2) = vbNo Then Exit Sub
        End If

  6. #6
    Expert éminent Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    Juin 2007
    Messages
    16 037
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2007
    Messages : 16 037
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
            If MsgBox("Voulez-vous écraser le fichier" & nompdf & "existant ?", vbYesNo + vbCritical + vbDefaultButton2) = vbNo Then Exit Sub

  7. #7
    Membre confirmé
    Femme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    Décembre 2016
    Messages
    100
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Essonne (Île de France)

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : Décembre 2016
    Messages : 100
    Par défaut
    Citation Envoyé par Menhir Voir le message
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    Sub Enregistrer_pdf()
        Dim nompdf As String
        nompdf = ActiveSheet.Range("K1").Value & "\" & Range("G1").Value & ".pdf"
     
        If Len(Dir(nompdf)) > 0 Then
            If MsgBox("Voulez-vous écraser le fichier existant ?", vbYesNo + vbCritical + vbDefaultButton2) = vbNo Then Exit Sub
        End If    
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nompdf & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
     Exit Sub
    Merci Menhir, tout fonctionne parfaitement
    Je te souhaite une excellente journée et un très bon été

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-2007] Macro enregistrement fichier excel en pdf avec nom variable
    Par catetesse dans le forum Macros et VBA Excel
    Réponses: 11
    Dernier message: 23/01/2018, 14h03
  2. Macro enregistrement fichier excel en pdf avec nom variable
    Par splog dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 16/08/2013, 16h08
  3. Macro enregistrement automatique pièces jointes
    Par Tigris dans le forum VBA Outlook
    Réponses: 1
    Dernier message: 23/03/2011, 17h40
  4. Problème enregistrer sous le format PDF
    Par dinier dans le forum Macros et VBA Excel
    Réponses: 21
    Dernier message: 17/05/2009, 23h23

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo