Discussion :

[ahmedSel]

Bonjour ,

J'ai crée un bouton sous VBA qui permet de séléection une partie de la feuille et la mettre en PDF . Mon problème c'est que je souhaite que l'emplacement du fichier pdf soit choisi et nommé par l'utilisateur . Actuellement le chemin est statique comme le montre le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub Button1_Click()
Dim Rng As Range, sNomFichier As String
 
  Set Rng = Worksheets("Tableau de Bord").Range("a1:aa48")
  sNomFichier = "C:\Users\Desktop\test.pdf"
  With Worksheets("Tableau de Bord").PageSetup
 .Zoom = False
 .FitToPagesTall = 1
 .FitToPagesWide = 1
End With
Rng.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
  sNomFichier, _
  Quality:=xlQualityStandard, _
  IncludeDocProperties:=True, _
  IgnorePrintAreas:=False, _
  OpenAfterPublish:=False
End Sub

[Wololol]

Bonjour,

Je te conseille d'utiliser le GetSaveAsFilename, cela permet d'afficher la fenêtre "enregistrer sous", ainsi l'utilisateur peut choisir l'emplacement ainsi que le nom.

Tu peux utiliser l'exemple de cette page.

Bonne journée

[kiki29]

Salut, voir dans la FAQ Excel

[ahmedSel]

Merci pour les liens mais malheureusement ça ne répond pas au besoin .

[Wololol]

Merci pour les liens mais malheureusement ça ne répond pas au besoin .

Dans ce cas il va falloir que tu détailles un peu plus ta demande.

Comment souhaites-tu que l'utilisateur renseigne le chemin ?

Tu peux le récupérer via un TextBox par exemple, avec par défaut ThisWorkbook.Path comme chemin.

[ahmedSel]

je cherche à intègrer un outil comme Application.FileDialog mais j'ai pas su comment l'intégrer pour récupérer le chemin souhaité .

[Wololol]

Re,

Je ne comprend pas, c'est exactement ce que fais :

Code :

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

1
2
3
4
5
fileSaveName = Application.GetSaveAsFilename( _ 
 fileFilter:="Text Files (*.txt), *.txt") 
If fileSaveName <> False Then 
 MsgBox "Save as " & fileSaveName 
End If

Sinon tu peux essayer comme cela :

Code :

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

Application.FileDialog(msoFileDialogSaveAs).Show