Equivalent "Enregistrer sous"

[d0n32]

Bonjour à toutes et à tous,

Je souhaiterais donner la possibilité à l'utilisateur de mon classeur d'enregistrer une sélection prédéfinie des résultats obtenus après lancement de macros au format PDF.

J'arrive très bien à enregistrer une copie PDF dans le dossier où se trouve le classeur. J'aimerais que l'utilisateur puisse renseigner le chemin dans lequel il souhaite enregistrer le PDF (à la façon "Enregistrer sous"). La méthode que j'utilise pour le moment : lui faire renseigner le chemin EXACT à la main, pas très pratique.. Existerait-il un moyen de faire apparaitre les chemins à la façon d'enregistrer sous pour qu'il le sélectionne ?

Merci d'avance de votre aide

[kiki29]

Salut, voir dans la FAQ http://excel.developpez.com/faq/?page=FenetresExcel
, de plus l'usage de [F1] et de l'enregistreur de macros n'est pas prohibé

[d0n32]

Tout à fait, d'où le fait que j'ai (copieusement) abusé de l'enregistreur de macros avant de poster En revanche, il semblerait que j'ai mal orienté ma recherche sur le forum puisque je n'avais pas trouvé le lien que tu m'as transmis, merci beaucoup

Avec ma précédente méthode, j'arrivais à indiquer la sélection à enregistrer en PDF :

Code :

ActiveSheet.Range("A1:P" & 30 * i).ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & "\" & NomFichier & ".pdf"

En essayant de m'inspirer de ton lien, j'arrive au code suivant :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub TOPDF3(NomFichier As String)
 
    Dim objSaveBox As FileDialog
    Set objSaveBox = Application.FileDialog(msoFileDialogSaveAs)
    With objSaveBox
        .InitialFileName = NomFichier & ".pdf"
        '(la valeur 25 Permet de spécifier les classeurs "PDF" lorsque vous êtes dans Excel 2007)
        .FilterIndex = 25
 
        .Show
        .Execute
    End With
 
End Sub

Comment indiquer dans ce code la sélection que je souhaite enregistrer au format PDF ? En l'état, le code bugge puisqu'il comprend que je souhaite enregistrer l'ensemble du projetVB au format PDF, ce qui est bien sûr impossible..

Merci encore de ton aide

[d0n32]

Réponse à moi-même : J'ai raisonné en 2 temps. Dans un premier temps un userForm récupère le nom à donner au fichier à enregistrer. Ensuite s'ouvre un FileDialog pour récupérer le dossier sélectionné où enregistrer. Les 2 données sont enfin envoyées à la macro TOPDF2 qui enregistre au format PDF :

Code :

1
2
3
4
5
6
7
8
9
Sub Utilisation_FileDialog_SelectionDossier(NomFichier As String)
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Choix du dossier où enregistrer"
        .Show
        If .SelectedItems.Count > 0 Then
            Call TOPDF2(NomFichier, .SelectedItems(1), Worksheets(4).Range("B8").Value)          ' MsgBox .SelectedItems(1)
        End If
    End With
End Sub

Code :

1
2
3
Sub TOPDF2(NomFichier As String, Chemin As String, i As Integer)
ActiveSheet.Range("A1:P" & 13 + 2 + 14 * i + 1).ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & "\" & NomFichier & " - Dimensionnement des MALT.pdf"
End Sub

Cela fonctionne, à ceci près que la police semble changer entre le document Excel et le PDF généré. Comment expliquer cela ?
Si vous avez une piste, je suis preneur

Merci d'avance !