Discussion :

[Aladin_23]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[gordono]

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.

[helas]

Bonjour,

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