Créer un PDF: OK, l'enregistrer sous: NOK

Bonjour,

Après maintes recherches, j'ai réussi à me faire une macro qui génère un PDF avec comme nom, le nom de l'onglet de la page active mais je n'arrive pas à faire un "enregistrer sous" du dit PDF et le mettre sur le bureau.

Donc comme d'hab, je compte sur vous, les pros d'Excel.

Bonne journée

Merci à vous

Salut,

Dans le nom du fichier il faut intégrer le chemin du répertoire ou tu veux l'enregistrer.

Ci-joint ton fichier modifié.

Cdlt,

Je te remercie, ça marche tout bien

C'est vrai qu'il ne manquait pas grand chose, je l'aurais un jour, je l'aurais

Je déterre le sujet car l'impression PDF me passionne également

Points à prendre en compte:

Fichier en partage sur réseau, il est copié à chaque début de projet par plusieurs personnes puis renommé les champs internes au fichier sont ensuite renseignés.

Il faut donc que la macro suive

Demande:

Extraire les 3 onglets P GARDE + Offre FR et Fiche prix à l'aide d'un bouton (macro).

L'extraction laissera un PDF à coté du XLS et ouvrira la visionneuse PDF

J'ai tenté la macro suivante mais sans grand succès notamment les macros se perdent à chaque copie du fichier:

Sub CreerPDF()

Dim sRep As String

Dim sFilename As String

Sheets(Array("P GARDE", "Offre FR", "Fiche prix")).Select

sRep = ThisWorkbook.Path

sFilename = ThisWorkbook.Name

sFilename = Left(sFilename, InStr(1, sFilename, ".")) & "pdf"

ActiveSheet.ExportAsFixedFormat _

Type:=xlTypePDF, _

Filename:=sRep & sFilename, _

Quality:=xlQualityStandard, _

IncludeDocProperties:=True, _

IgnorePrintAreas:=False, _

OpenAfterPublish:=True

End Sub

Je pense que la base est bonne j'aimerais avoir un nom de fichier PDF identique à celui du fichier XLS (il changera à la copie du fichier XLS au début du projet.

Merci de m'aider. Pour plus d'infos n'hésitez pas!