Discussion :

[scoobydoos]

Salut,

J'ai fait un bouton pour imprimer en PDF directement un onglet mais je n'arrive pas à enlever l'extension .xlsm du nom du fichier pdf :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Export_en_pdf()
Dim CheminPDF As Variant
 
CheminPDF = ThisWorkbook.Path & "\" & ThisWorkbook.Name & ".pdf"
 
Worksheets("Devis").ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=CheminPDF, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=True
 
End Sub

Et peut-on aussi lors de l'exportation en PDF, choisir les onglets que l'on veut ?

Merci par avance
@+

[Nain porte koi]

Hello,

ThisWorkbook.Name renvoi le nom du fichier AVEC l'extension

ce bout de code renvoi le nom du fichier SANS l'extension, mais il y a plusieurs autres solutions

Code :

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

CheminPDF = ThisWorkbook.Path & "\" & CreateObject("Scripting.FileSystemObject").GetBaseName(ThisWorkbook.Name) & ".pdf"

Pour imprimer plusieurs onglets il faut une boucle ou créer un groupe d'onglet

[Philippe Tulliez]

Bonjour,

Et peut-on aussi lors de l'exportation en PDF, choisir les onglets que l'on veut ?

Un exemple dans ce billet, VBA Excel : Copiez et personnalisez l'ordre de vos feuilles pour Imprimer et Exporter en PDF

[scoobydoos]

Merci à vous ! cela fonctionne parfaitement !

Autre dernière question :
J'ai 2 écrans. Peut-on faire en sorte que le Userform se mette la où est le bouton de commande sur la feuille excel ?

Merci par avance
@+

[patmeziere]

bonjour
pour afficher ton userform au niveau de l’écran ou se trouve l'application il te faut paramétrer le startupposition

[scoobydoos]

Salut,

J'ai fait ça et cela fonctionne bien :

Code :

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

1
2
3
4
5
6
7
Private Sub UserForm_Activate()
    Me.Top = Application.Top
    Me.Left = Application.Left
 
    Me.Top = Application.Top + (Application.UsableHeight / 2.5)
    Me.Left = Application.Left + (Application.UsableWidth / 2.5)
End Sub

Vous pouvez modifier les 2.5 pour être plus précis sur le centrage

Merci

@+