Bonjour toutes et tous,
un léger coup de pouce (aucune idée si cela va t'aidé sorry)
Tu peux essayer déjà de mettre en place une boîte à message dans quel répertoire sera déposé l"exportation ? de ton .pdf par exemple.
vu ici dans le forum
1/ Demande de confirmation pour exporter le .pdf
2/ voir si le fichier .pdf existe déjà
cela donne ceci à peu près :
Option Explicit
'Dim cpt_i , ligne_depart, ligne_fin, x As Long
'Dim Chemin, msg As String
Sub Exporter()
Dim msg As String
msg = MsgBox("Souhaitez-vous enregistrer cette feuille en PDF ?", vbQuestion + vbYesNo, "Exporter en PDF")
If msg = vbNo Then
Exit Sub
End If
Dim cpt_i , ligne_depart, ligne_fin, x As Long
Dim Chemin As String
With Application.FileDialog(msoFileDialogFolderPicker)
'Définit un titre pour la boîte de dialogue
.Title = "Sélectionnez le répertoire dans lequel exporter"
'Affiche la boîte de dialogue
.Show
'Affiche le nom du dossier sélectionné et si je clic sur Annuler
If .SelectedItems.Count > 0 Then
Chemin = .SelectedItems(1)
Else
MsgBox "Aucun Dossier sélectionné"
Exit Sub
End If
' si un fichier existe avec le même nom
Txt = Dir(Chemin & "\" & ".pdf")
If Txt = "" Then
MsgBox "Le fichier n'existe pas"
Else
MsgBox "Le fichier " & Txt & " Existe"
End If
End With
End Sub