Discussion :

[neiluj26]

Bonjour le forum,

Je voudrais laisser à mes utilisateurs le choix de choisir le fichier vers lequel ils veulent exporter des formulaires. En fouinant un peu, j'ai trouvé ce code (mille excuses à l'auteur dont j'ai effacé le nom et que je ne retrouve pas).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function ChoisirDossierDeSauvegarde()
 
'------ Cette fonction demande à l'utilisateur de choisir le répertoire dans lequel il veut sauvegarder son exportation.
 
Dim ObjShell As Object, ObjFolder As Object
Dim Message As String, strChemin As String
 
Message = "Choisissez le répertoire dans lequel vous voulez sauvegarder le fichier:"
 
Set ObjShell = CreateObject("Shell.Application")
Set ObjFolder = ObjShell.BrowseForFolder(&H0&, Message, 1)
 
On Error Resume Next 'Si on sort sans sélection
strChemin = ObjFolder.ParentFolder.ParseName(ObjFolder.Title).Path & ""
ChoisirDossierDeSauvegarde = strChemin
 
End Function

Au clic sur un bouton, j'obtiens cette fenêtre et l'utilisateur choisit son répertoire, puis le reste de mon code fait l'exportation.
Le problème est que si mon utilisateur clique sur "Mes Documents", la fonction renvoie une variable strChemin vide, et que je ne comprends pas pourquoi.
Est-ce que ça vous est déjà arrivé? Ou est-ce que vous avez un autre code qui me permettrait en plus de laisser à l'utilisateur de choisir le nom de l'exportation (Dossier machin.xls, par exemple)?