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