Macro Export PDF

Bonsoir chers tous

je voudrais exporter ma plage A1:C10 au format PDF dans un sous dossier.

Ma macro doit:

• Créer un Dossier "Plage"
• Créer Un Sous dossier qui portera comme nom ma cellule E1 : (Cells(1,5).value)
• Stocker mon Fichier PDF "TRIS" dans le Sous Dossier qui porte le nom de E1 au format " mmm yyyy".

Merci de me guider

Sub SAVE()
Dim chemin As String
Dim fichier As String
             chemin = ThisWorkbook.Path & "\Plage\" & "\" & Cells(1, 5).Value & "\"
             If Dir(chemin, vbDirectory) = "" Then MkDir chemin
             With ActiveSheet

                .PageSetup.PrintArea = "$A$1:$C$10"
             fichier = .Range("A1")
                .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
             chemin & fichier, Quality:=xlQualityStandard, _
             IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

          End With
End Sub

Bonjour KTM le forum

dans ton test

chemin = ThisWorkbook.Path & "\Plage\" & "\" & Cells(1, 5).Value & "\"
             If Dir(chemin, vbDirectory) = "" Then MkDir chemin

si tu veux créer le dossier plage il faut d'abord tester

chemin = ThisWorkbook.Path & "\Plage\" et le créer s'il n'existe pas et ensuite tester chemin = ThisWorkbook.Path & "\Plage\"& Cells(1, 5).Value & "\" et le créer s'il n'existe pas

a+

Bon weekend

Papou

paritec a écrit :

Bonjour KTM le forum

dans ton test

chemin = ThisWorkbook.Path & "\Plage\" & "\" & Cells(1, 5).Value & "\"
             If Dir(chemin, vbDirectory) = "" Then MkDir chemin

si tu veux créer le dossier plage il faut d'abord tester

chemin = ThisWorkbook.Path & "\Plage\" et le créer s'il n'existe pas et ensuite tester chemin = ThisWorkbook.Path & "\Plage\"& Cells(1, 5).Value & "\" et le créer s'il n'existe pas

a+

Bon weekend

Papou

J'ai Procedé comme suit.

Le dossier "Plage" se créé mais la création du sous dossier pose problème

Sub SAVE()
Dim chemin, Dossier As String
Dim fichier As String

Dossier = ThisWorkbook.Path & "\Plage\"
If Dir(Dossier, vbDirectory) = "" Then MkDir Dossier
chemin = ThisWorkbook.Path & "\Plage\" & "\" & Cells(1, 5).Value & "\"
[b]If Dir(chemin, vbDirectory) = "" Then MkDir chemin[/b]
             With ActiveSheet

                .PageSetup.PrintArea = "$A$1:$C$10"
             fichier = .Range("A1")
                .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
             chemin & fichier, Quality:=xlQualityStandard, _
             IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

          End With
End Sub

Re KTM le forum

bah oui c'est normal que cela ne fonctionne pas, tu enregistres ce fichier tu ouvres et tu cliques sur sauvegarde et tu me redis

a+

Papou

paritec a écrit :

Re KTM le forum

bah oui c'est normal que cela ne fonctionne pas, tu enregistres ce fichier tu ouvres et tu cliques sur sauvegarde et tu me redis

a+

Papou

Merci Merci et Encore Merci.

Vous êtes un chef

Toujours Merci

Bonjour,

Le souci ne pouvait pas venir de ça ?

ThisWorkbook.Path & "\Plage\" & "\" 

Ca fait 2 slash à la suite, non?