boite de dialogue enregistrez sous PDF

[dedel74]

Bonjour à vous tous,
J'ai encore besoin d'aide concernant la création de mon devis sur EXCEL
J'ai créé un bouton "Transformer en PDF", je voudrais que la boite de dialogue "Enregistrez sous' apparaissent quand je clique dessus, j'ai donc créé le code ;
Application.Dialogs(xlDialogSaveAs).Show
Mais je voudrais indiquer le type de fichier "PDF", qu'il faut imprimer tout le classeur, la taille minimale et ouvrir le fichier après publication
J'ai essayé ceci mais cela ne fonctionne pas :
Application.Dialogs(xlDialogSaveAs).Show ("NomClasseur.pdf")("Type=PDF")
Nous sommes plusieurs personnes à utiliser ce fichier, il faut donc que chaque personne puis mettre le nom qu'il souhaite

Merci d'avance

Dedel74

 

[Dranreb]

Re : boite de dialogue enregistrez sous PDF

Bonjour,
Utilisez plutôt:

VRép = Application.GetSaveAsFilename(NomF, Title:="Création PDF")

Renvoit en variant une chaîne du nom complet choisi ou le boolean False si l'utilisateur a renoncé.
N'effectue en soit aucune sauvegarde.
Cordialement

 

[dedel74]

Re : boite de dialogue enregistrez sous PDF

merci pour votre réponse aussi rapide
c'est OK
dedel74