Publication PDF

bonjour

je souhaiterai publier une feuille au format PDF, j'ai repris un ancien code qui fonctionnait et j'ai modifié une foi modifié il bug.

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"G:\la petite boule Saint-victurniaude\GESTION DU CLUB\LICENCES\publication PDF\ Cells(2, 5).Value & " " & Cells(2, 7).Value & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True

Ci joint le fichier

merci par avance de vos réponse.

philippe

Bonjour,

Pour commencer, je pense que vous confondez Cells(Ligne, Colonne)

Ensuite il est préférable de passer par des variables pour le nom du chemin et créer le nom du fichier

sPath = "G:\la petite boule Saint-victurniaude\GESTION DU CLUB\LICENCES\publication PDF\"
sNomFic = Cells(2, 5).Value & " " & Cells(2, 7).Value & ".pdf"
Debug.Print sNomFic
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sPath & sNomFic, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

Cela permet de voir quelle valeur à le nom du fichier

A+

Bonjour BrunoM45

merci pour ton aide, mais j'ai toujours le bug sur cet partie du code

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sPath & sNomFic, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

Ci joint le fichier ou j'ai modifié le VBA

merci votre aide

philippe

Bonjour Philippe

Comme je vous l'ai dis, mais j'ai répété l'erreur vous confondez ligne et colonne ce qui fait que le nom de fichier est vide

Il faut mettre

sNomFic = Cells(5, 2).Value & " " & Cells(7, 2).Value & ".pdf"

Et on peut optimiser le code par

With Sheets("fiche renseignement cdc")
  sPath = "G:\la petite boule Saint-victurniaude\GESTION DU CLUB\LICENCES\publication PDF\"
  sNomFic = .Cells(5, 2).Value & " " & .Cells(7, 2).Value & ".pdf"
  .ExportAsFixedFormat Type:=xlTypePDF, Filename:=sPath & sNomFic, Quality:=xlQualityStandard, _
  IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End With

A vérifier que le chemin d'accès existe bien

A+

bonjour BrunoM45

Merci pour ton retour, je vien de mettre en place le code dans ma macro, ça fonctionne bien.

merci