Erreur Code Sauvegarde

Bonjour le forum

J' ai un formulaire, avec une zone de texte txt_sauve, et un bouton parcourir, et un module OuvrirDossier et lle code suivant associé à l' evenemt sur clic du bonton parcourir

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub SSlect_Rep_Click() Dim fso As Object Dim strchemin As String Dim strDest As String strchemin = SelectFolder("Sélectionnez un répertoire :", Me.hWnd) If strchemin <> "" Then txt_sauv = strchemin   Set fso = CreateObject("Scripting.FileSystemObject") fso.CopyFile CurrentProject.FullName, strchemin Set fso = Nothing End Sub

---

Lorsque je clique sur le bouton Parcourir, je selectionne un lecteur, la zone de texte se rempli avec la lettre du lecteur choisi et la sauvegarde de la bse s' effectue correctement.
Mais si je selectionne un Dossier, la j' ai un plantage vba sur

Code:

---

fso.CopyFile CurrentProject.FullName, strchemin

---

Comment puis je amelioré mon code an ayant una autre bouton pour lancer la sauvegarde en recupérant le nom inscrit dans la zone de texte et aussi corrigé cette erreur vba

Merci d' avance pour toute aide
Aladin

Je m'y connais pas vraiment dans cette "partie" de code mais déja le premier truc qui me choque c'est que tu as pas de endif.

Bonjour,

Que contient strChemin ?
Que contient la fonction SelectFolder ? Utilises-tu FileDialog dans cette fonction ?