bonjour
ci dessous une fonction qui demande a l'utilisateur de choisir un dossier
Function ChoixDossier()
If Val(Application.Version) >= 10 Then
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Choisir le dossier de destination"
.InitialFileName = ActiveWorkbook.Path & "\"
.Show
If .SelectedItems.Count > 0 Then
ChoixDossier = .SelectedItems(1)
Else
ChoixDossier = ""
End If
End With
Else
ChoixDossier = InputBox("Répertoire?")
End If
End Function
appel de la fonction
chemin = choixDossier
et pour le nom de fichier date-heure :
Sub nomfichierdate_heure()
Dim fic$
fic = Replace(Now(), "/", "")
fic = Replace(fic, ":", "")
fic = Replace(fic, " ", "-") & ".pdf"
End Sub
fred