Creer sous dossier pour exportation PDF

Bonjour à vous tous ,

Voilà j'ai fait un petit fichier avec un graphique automatisé en fonction de coefficients qu'on entre dans un formulaire. Là n'est pas le soucis.

Ensuite il y a un bouton exportation, qui exporte en PDF la feuille de gauche dans un dossier nommé "Abaque PDF".

Cependant il est nécessaire que le dossier Abaque PDF soit contenu dans même dossier que notre fichier Excel.

Ce que je voudrai, c'est créer automatique le sous dossier "Abaque PDF" , à côté de mon fichier. Et si je ré-appuie sur exportation est que le dossier existe déjà, alors il ne se passe rien.

Quelqu'un peut-il m'aider ?

Est-ce clair ?

Je vous joint mon fichier, voir la macro "exportation".

Je vous remercie d'avance,

Thibaut.

103abaque.xlsm (38.54 Ko)

Salut Thibault68140

Voici le code qui va bien

Sub exportation()
  Dim Fso As Object
  Application.ScreenUpdating = True

  Sheets("courbe").Select
  Dim LaDate As String, LeNom As String, LeRep As String

  LaDate = Format(Date, "yyyy_mm_dd")
  LeNom = "Abaque"

  ' l'exportation à lieu ds un sous dossier du dossier dans lequel est ton fichier excel
  LeRep = ThisWorkbook.Path & "\Abaque PDF"
  '
  ' Créer un intance de FileSystemObject
  Set Fso = CreateObject("Scripting.FileSystemObject")
  ' Vérifier si le dossier existe ou on
  If Not (Fso.FolderExists(LeRep)) Then
    ' Sinon le créer
    MkDir LeRep
  End If
  ' Libérer la variable objet
  Set Fso = Nothing
  ' Exporter le graphique
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                                  LeRep & "\" & LeNom & "_" & LaDate & ".pdf", Quality:= _
                                  xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
                                  From:=1, To:=1, OpenAfterPublish:=False

  Application.ScreenUpdating = True
End Sub

A+

Bonjour,

merci beaucoup c'est super sympa et fonctionne à merveille !

Désolé pour les commentaire qui trainaient. J'avais filait mon code à un collègue et c'était des petites explications sur le ton de l'humour...

Bref encore merci, ça me servir pour plusieurs macro du coup !

bonne journée


Bonjour,

merci beaucoup c'est super sympa et fonctionne à merveille !

Désolé pour les commentaire qui trainaient. J'avais filait mon code à un collègue et c'était des petites explications sur le ton de l'humour...

Bref encore merci, ça me servir pour plusieurs macro du coup !

bonne journée

Re,

Je n'avais même pas fait attention aux commentaires

Du coup je les ai supprimés du code que j'ai posté

Au plaisir

Rechercher des sujets similaires à "creer dossier exportation pdf"