Changer le nom du chemin d'un fichier à importé
Résolu
Maland_1969
-
Maland_1969 -
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
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
A voir également:
- Changer le nom du chemin d'un fichier à importé
- Changer dns - Guide
- Fichier bin - Guide
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
- Changer extension fichier - Guide
5 réponses
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
dim mauvaischemin as string, bonchemin as string mauvaischemin = "C:\Users\HP\Desktop" bonchemin = mauvaischemin + "\"
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
peux-tu fermer cette discussion, si tu n'as pas d'autre question?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question