Changer le nom du chemin d'un fichier à importé [Résolu]

Signaler
-
 Maland_1969 -
Bonsoir,
J'ai un FileDialog qui s'ouvre pour sélectionner un dossier voici le code:

Private Sub cmdChemDossier_Click()
'---
'SELECTION D'UN DOSSIER
'---
Dim fd As Office.FileDialog

'Créer un objet FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)

'Titre de la boîte
fd.Title = "AMIIS PRO-VI: Sélectionnez un dossier..."

'Texte du bouton
fd.ButtonName = "Sélectionner"

'Type de vue au départ
fd.InitialView = msoFileDialogViewLargeIcons

'Afficher la boîte et traiter le résultat
If fd.Show() Then
Me.CheminDestin = fd.SelectedItems(1)
MsgBox "Vous avez sélectionné le dossier :" & vbCrLf & fd.SelectedItems(1), vbInformation, "AMIIS PRO-VI"
End If

Set fd = Nothing

End Sub

Mais le selection affiche le chemin d'un dossier sous cette forme

C:\Users\HP\Desktop

alors que moi je le voudrais sous cette forme

C:\Users\HP\Desktop\

Pouvez vous m'aider?

Merci

5 réponses

Messages postés
10135
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
26 mars 2020
571
dim mauvaischemin as string, bonchemin as string
mauvaischemin = "C:\Users\HP\Desktop"
bonchemin = mauvaischemin + "\"  

J'aimerai vous envoyer ma base de données pour que vous voyez de près ce qu'il en n'est
Messages postés
10135
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
26 mars 2020
571
peux-tu fermer cette discussion, si tu n'as pas d'autre question?

Bonjour,
Comment fermer une discussion?
Merci
yg_be
Messages postés
10135
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
26 mars 2020
571
via le gros bouton vert "marquer comme résolu".

Bonjour,
bèh, je ne trouve pas ce gros bouton vert.
merci