Bonjour le forum
J'espère que vous aller bien !
Peut être pourrez vous m'aider : Je souhaite récupérer le nom et chemin d'un fichier sélectionné
Le chemin fonctionne mais le nom du fichier ne fonctionne pas
Sub choix_fichiers()
Dim fichier As String
Dim File_name As String
With Application.FileDialog(msoFileDialogFilePicker)
.Show
On Error Resume Next
chemin = .SelectedItems.Item(1)
nomfich = Mid(chemin.Name, 1, InStrRev(chemin.Name, ".") - 1)
End With
If chemin <> "" Then Range("Chemin_du_fichier").Value = chemin
If chemin <> "" Then Range("Nom_du_fichier").Value = nomfich
End Sub
Avez vous une idée
Merci encore
Philippe
J'espère que vous aller bien !
Peut être pourrez vous m'aider : Je souhaite récupérer le nom et chemin d'un fichier sélectionné
Le chemin fonctionne mais le nom du fichier ne fonctionne pas
Sub choix_fichiers()
Dim fichier As String
Dim File_name As String
With Application.FileDialog(msoFileDialogFilePicker)
.Show
On Error Resume Next
chemin = .SelectedItems.Item(1)
nomfich = Mid(chemin.Name, 1, InStrRev(chemin.Name, ".") - 1)
End With
If chemin <> "" Then Range("Chemin_du_fichier").Value = chemin
If chemin <> "" Then Range("Nom_du_fichier").Value = nomfich
End Sub
Avez vous une idée
Merci encore
Philippe