XL 2013 Macro. Créer un dossier et ensuite en PDF

[SERRANO]

Bonjour à tous,

J’espère que vous allez tous bien ?

Je sèche complétement !!!! Dans la feuille formulaire. Je souhaiterai qu'en cliquant sur le bouton,qu'une macro me crée un dossier dans

M:\O_DIP\6_Execution_comptable\liquidation_lyon\Bons_commande\Demande\Fiches liaisons et devis

Avec le nom de la cellule K1 soit (FL 1)

Et qu'ensuite mon formulaire soit enregistré en PDF dans le dossier crée (FL 1 ) Et que celui ce dernier aussi se nomme pareil.

Merci à vous

 

[fanch55]

Bonjour,
Qu'appelez-vous feuille formulaire ?
La feuille active sur laquelle se trouve le bouton ?

Si c'est le cas, le code ci-dessous devrait fonctionner :

Sub ExportPdf()
Dim Fso As Object, Source_Folder As String, Source_Cell As Range
    Set Source_Cell = ActiveSheet.[K1]
    Source_Folder = "M:\O_DIP\6_Execution_comptable\liquidation_lyon\Bons_commande\Demande\Fiches liaisons et devis\" & Source_Cell & "\"
    Set Fso = CreateObject("Scripting.FileSystemObject")
        If Not Fso.FolderExists(Source_Folder) Then Fso.CreateFolder Source_Folder
        If Fso.FolderExists(Source_Folder) Then
           ActiveSheet.ExportAsFixedFormat xlTypePDF, Source_Folder & Source_Cell & ".pdf"
        End If
    Set Fso = Nothing
End Sub

 

[kiki29]

Re, elle a déjà reçu une réponse via ce post

Bonjour kiki29, Ça fonctionne merci merci merci. Par contre je l'ai copier sans comprendre !!!!