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

  1. #1
    Nouveau Candidat au Club
    Homme Profil pro
    Cadre
    Inscrit en
    décembre 2018
    Messages
    1
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 35
    Localisation : France, Essonne (Île de France)

    Informations professionnelles :
    Activité : Cadre

    Informations forums :
    Inscription : décembre 2018
    Messages : 1
    Points : 1
    Points
    1

    Par défaut Création pdf depuis xls avec nom selon valeur d'une cellule

    Bonjour le forum.
    Je souhaite depuis un fichier excel créer un PDF dans un dossier bien particulier.
    Une première macro me permet de tester si le dossier existe et sinon de le créer avec un nom qui varie selon la valeur d'une cellule :

    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
    Option Explicit
     
    Function RépertoireExiste(Chemin As String) As Boolean
    On Error Resume Next
    RépertoireExiste = GetAttr(Chemin) And vbDirectory
        If RépertoireExiste = True Then
            Exit Function
        Else
            MkDir (Chemin)
        End If
    End Function
    Sub tester()
    Call RépertoireExiste("Z:\CGU\THOMAS\Reporting BUS\SEPA\2018\")
    Call RépertoireExiste("Z:\CGU\THOMAS\Reporting BUS\SEPA\2018\" & Sheets(2).[K1].Value & " " & Year(Date))
    End Sub

    Jusque là tout va bien.
    Puis je souhaites créer un pdf selon cet excel, pdf qui devra s'enregistrer dans le dossier précédemment créer et avec un nom selon une autre valeur de cellule et là ça plante systématiquement avec erreur d'execution 9 :
    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
    18
    19
    20
    21
    Option Explicit
     
     
        Sheets("SEPA").Select
    Call tester
        Range(Selection, Selection.End(xlDown)).Select
     
        ActiveSheet.Range("$A$4:$FI$1003").AutoFilter Field:=4, Criteria1:= _
            Sheets("paramètres").Range("A2").Value
     
     
    Dim Ar(2) As String
     
        Ar(0) = Feuil1.Name
        Application.ScreenUpdating = False
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="Z:\CGU\THOMAS\Reporting BUS\SEPA\2018\" & Sheets(4).[K1].Value & " " & Year(Date) & "\" & Sheets(4).[A2].Value & " " & Sheets(4).[I1].Value & " " & Year(Date) & ".pdf" _
            , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
     
        Sheets("SEPA").Select
        Application.ScreenUpdating = True
     End Sub
    C'est la ligne 16 qui plante toujours. J'ai changé beaucoup de choses mais ça ne fonctionne toujours pas. Pouvez vous m'aider ? Merci beaucoup à vous
    Fichiers attachés Fichiers attachés

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