Discussion :

[gudulffe]

Bonjour,

Cela fait une semaine que je cherche une solution pour enregistrer un Excel en PDF en cliquant sur un bouton et que le Titre soit "Bon + [valeur cellule F3]".

J'y suis arrivé mais j'aimerais rajouter une étape; le fait que le PDF s'ouvre après avoir cliqué sur mon bouton


Voila le code que j'ai:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Bouton1_Cliquer()
 
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\HP\Desktop\Bon\Bon " & Range("F3")
 
 
End Sub

Est-ce que vous savez ce que je dois rajouter pour ouvrir le fichier PDF ?




PS: je n'y connais absolument rien en VBA, du coup si vous saviez reprendre le code complet pour me donner la solution ça serait parfait

[Menhir]

Est-ce que vous savez ce que je dois rajouter pour ouvrir le fichier PDF ?

Mettre à True l'option OpenAfterPublish dans la méthode ExportAsFixedFormat.
Lire ça : https://docs.microsoft.com/fr-FR/off...tasfixedformat

[halaster08]

Bonjour,
essaye ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Bouton1_Cliquer()
 
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\HP\Desktop\Bon\Bon " & Range("F3")
ThisWorkbook.FollowHyperlink "C:\Users\HP\Desktop\Bon\Bon " & Range("F3") &".pdf"  
 
End Sub

edit: la proposition de Menhir est plus adaptée

[gudulffe]

@Menhir, j'ai déjà essayé cette solution mais alors mon code ne se compilait plus et il me mettait une erreur à la première ligne "Sub Bouton1_Cliquer()"

@halaster08, MERCIIIIII ça fonctionne

Je clôture

[Menhir]

@Menhir, j'ai déjà essayé cette solution mais alors mon code ne se compilait plus et il me mettait une erreur à la première ligne "Sub Bouton1_Cliquer()"

J'ai déjà utilisé cette méthode et ça fonctionne.
Si tu ne montres pas ton code, difficile de dire où tu as fait une erreur.

[gudulffe]

Mon code je l'ai mis en premier post.
je rajoutais simplement la ligne OpenAfterPublish:=True avant mon End sub.

Et la ça n'allait pas.

Si j'utilise cette méthode,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF 
FileName:="sales.pdf" 
Quality:=xlQualityStandard 
OpenAfterPublish:=True

il ne me propose pas de dossier de sortie ni de tenir compte de la cellule F3 pour le nom de fichier

[Menhir]

Mon code je l'ai mis en premier post.
je rajoutais simplement la ligne OpenAfterPublish:=True avant mon End sub.

Et la ça n'allait pas.

Si j'utilise cette méthode,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF 
FileName:="sales.pdf" 
Quality:=xlQualityStandard 
OpenAfterPublish:=True

Dans le code de ton premier post, il n'y a pas l'option OpenAfterPublish.
Si tu as rajouté ce paramètre sans le lier à sa méthode (comme le montre le code ci-dessus), il est normal que ça ne fonctionne pas.
Pour qu'une instruction soit fractionnée sur plusieurs lignes, il faut mettre un _ en fin de ligne pour la lier à la suivante.

Essaye ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, FileName:="sales.pdf", OpenAfterPublish:=True