Bonjour le forum,
Je veux générer des fichier pdf et les sauvegarder dans des répertoires que je veux choisir à l'aide de macro.
Voici mon code et soucis:
Sub archiver()
Dim num As String
Dim frns As String
Dim Repertoire As FileDialog
Dim REP As String
frns = Range("B5").Value
num = InputBox("Numero de commande")
Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker)
Repertoire.Show
MsgBox (Repertoire.SelectedItems(1))
Repertoire.SelectedItems = REPSheets("" & frns & "").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"Repertoire.SelectedItems(1)\commande " & num & " " & frns & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End Sub
En fait, je veux exporter mon fichier dans le répertoire que la boîte de dialogue m'affiche mais je ne sais pas comment injecter le chemin dans la partie soulignée du code.
Pourriez-vous m'aider svp?
Si vous avez une autre méthode, je suis preneur...
Merci.
Je veux générer des fichier pdf et les sauvegarder dans des répertoires que je veux choisir à l'aide de macro.
Voici mon code et soucis:
Sub archiver()
Dim num As String
Dim frns As String
Dim Repertoire As FileDialog
Dim REP As String
frns = Range("B5").Value
num = InputBox("Numero de commande")
Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker)
Repertoire.Show
MsgBox (Repertoire.SelectedItems(1))
Repertoire.SelectedItems = REPSheets("" & frns & "").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"Repertoire.SelectedItems(1)\commande " & num & " " & frns & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End Sub
En fait, je veux exporter mon fichier dans le répertoire que la boîte de dialogue m'affiche mais je ne sais pas comment injecter le chemin dans la partie soulignée du code.
Pourriez-vous m'aider svp?
Si vous avez une autre méthode, je suis preneur...
Merci.