Modifier le lieu d'esportation de pdf générés

Bonjour à tous,

Pour ma fille j'ai créer il y a longtemps un petit module qui génère ses bulletins. Tout se passe bien sauf un détail, au lieu de les "mettre" dans le répertoire que j'aurais voulu (PDF bull de Cath), il va les mettre dans mon répertoire "Docs Excel" Ce n'est pas dramatique mais juste ennuyeux. Comment y remédier? Merci d'avance pour votre aide

Voici mon module :

Sub pdfcath()
'
' pdfcath Macro
'

Dim c As Range
Dim Derlig As Integer
Derlig = Worksheets("Elèves").Range("A" & Rows.Count).End(xlUp).Row
For Each c In Worksheets("Elèves").Range("A1:A" & Derlig)
Worksheets("BullDeBase").Cells(1, 9).Value = c.Value
Worksheets("BullDeBase").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\Document\Docs Excel\Bulletins de Cath\PDF bull de Cath" & c.Value & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:="True", IgnorePrintAreas _
:=False, OpenAfterPublish:=False

Next
End Sub

Bonjour

Ci_joint code à tester

Sub pdfcath()
'
' pdfcath Macro
'

Dim c As Range
Dim Derlig As Integer
Dim chemin As String

chemin = "D:\Document\Docs Excel\Bulletins de Cath\"

Derlig = Worksheets("Elèves").Range("A" & Rows.Count).End(xlUp).Row
For Each c In Worksheets("Elèves").Range("A1:A" & Derlig)
    Worksheets("BullDeBase").Cells(1, 9).Value = c.Value
    Worksheets("BullDeBase").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    chemin & "PDF bull de Cath " & c.Value & ".pdf", _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Next
End Sub

Oh, merci pour la rapidité de la réponse. Maintenant les pdf vont dans le répertoire :"D:\Document\Docs Excel\Bulletins de Cath" c'est bien et donc je me suis dit pourquoi ne pas les mettre dans un sous répertoire où il n'y aurait qu'eux.

Donc, naïvement je me suis dit remplaçons :
Dim chemin As String
chemin = "D:\Document\Docs Excel\Bulletins de Cath

par

Dim chemin As String
chemin = "D:\Document\Docs Excel\Bulletins de Cath\PDF bull de Cath"

hélas, le chemin vers ce nouveau répertoire ça ne fonctionne pas, ça les met toujours dans "D:\Document\Docs Excel\Bulletins de Cath

J'aurais peut-être du modifier autre chose

Mais ce n'est pas grave, je ne vais pas vous faire "travailler" par cette canicule.

Merci de toute façon pour le temps consacré

Bonsoir à tous.

mlem47, dans votre dossier "Bulletins de Cath" vous mettez un nouveau dossier que vous appelez "BullCat" et vous modifier le chemin :chemin = "D:\Document\Docs Excel\Bulletins de Cath\BullCat\

oh ! MERCI, c'est bien ce que je voulais !

Prenez soin de vous

Bonne soirée

De rien.

Cordalement