XL 2016 Boucle convertion PDF

[pika83]

Bonjour, je reviens sur mon sujet https://www.excel-downloads.com/threads/boucle-code-vba.20044423/.
j'ai réussi a créer un bout de code me permettant de remplir automatiquement une cellule afin que quand celle ci soit complétement renseignée elle m’édite un PDF. Celui ci a l'air de fonctionner mais ne m’édite que le PDF du 1er agent, alors qu'il devrait m'editer les PDF de l'agent en C5 a C50. Je ne vois pas ce qu'il manque. Voici mon code

Sub FdS_Dispo()

Dim i As Integer
    For i = [NomFdSD] = Sheets("CP-OM").[C5] To [NomFdSD] = Sheets("CP-OM").[C50]

nom_PDF = "mon PDF.pdf"
chemin_PDF = "C:\Users\Desktop\" & nom_PDF
Set onglet = Worksheets("Fds Dispo")
onglet.Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin_PDF, _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, _
     IgnorePrintAreas:=False, OpenAfterPublish:=False
    
     Next i
End Sub

Pourriez vous me dire ou cela coince SVP. Merci

 

[pika83]

je viens de remarquer que sur cet autre code que je vous joint, il prend bien la boucle, mais il ne m'édite que le dernier agent.
Il doit me manquer quelque chose , mais quoi

Sub FdS_Dispo()

Dim i As Integer

    [NomFdSD] = Sheets("CP-OM").[C5]

Dim onglet As Worksheet
Dim nom_PDF As String
Dim chemin_PDF As String

nom_PDF = "mon PDF.pdf"
chemin_PDF = "C:\Users\Desktop\" & nom_PDF
Set onglet = Worksheets("Fds Dispo")
onglet.Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin_PDF, _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, _
     IgnorePrintAreas:=False, OpenAfterPublish:=False
    
    [NomFdSD] = Sheets("CP-OM").[C50]

nom_PDF = "mon PDF.pdf"
chemin_PDF = "C:\Users\Desktop\" & nom_PDF
Set onglet = Worksheets("Fds Dispo")
onglet.Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin_PDF, _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, _
     IgnorePrintAreas:=False, OpenAfterPublish:=False
        
End Sub

Merci

 

[kiki29]

Salut, en adaptant à ton contexte : Impression des fichiers PDF d'un dossier

 

[dg62]

Bonjour,
sur le 2eme code je ne vois pas de boucle.

 

[pika83]

bonjour dg62, effectivement il n'a pas de boucle, et pourtant dans son déroulement il passe par le C5 mais n’édite que le C50.
Si je lui met la variable avec le code FOR NEXT il ne fonctionne plus, je pense surtout que je ne sais pas ou le mettre.