Bonjour à tous,

Voici un petit code sympathique pour sélectionner un fichier et mettre le chemin d'accès dans une cellule.

Et ici, le lien vers le fichier

Avant d'ajouter le code, il faut nommer la cellule stockant le nom du fichier.

Ca ressemble à ceci :


Sub choix_fichiers()
'cette macro permet de reprendre le nom du fichier et de le mettre dans la plage nommée
Dim fichier As String
With Application.FileDialog(msoFileDialogFilePicker)
.Show
On Error Resume Next
fichier = .SelectedItems.Item(1)
On Error GoTo 0
End With
If fichier <> "" Then Range("Nom_du_fichier").Value = fichier
End Sub


J'utilise ce petit code pour importer des fichiers pour traitement, comparaison, etc.

A bientôt.

Gaetan