Sujet Précédent Sujet Suivant

Trouver un fichier VBA Excel

Résolu/Fermé
2pax.cruz - 5 juil. 2010 à 12:49
michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 5 juil. 2010 à 16:27
Bonjour,

j'ai un formulaire excel et j'aimerais que l'utilisateur puisse rechercher un fichier afin d'utiliser l'emplacement du fichier dans le fichier excel.

Je ne sais pas si je suis clair.
Mais il y'aurais un menu comme lorsqu'on veut ouvrir un fichier. Mais ici, il selectionnerait le fichier en naviguant au travers des dossiers, puis on récupérerait l'emplacement du fichier pour l'utiliser dans Excel.


Merci.
A voir également:

4 réponses

Réponse 1 / 4
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 757
5 juil. 2010 à 13:08
Salut,
Tu peux adapter la fonction SelectionFichier() trouvée dans cette astuce, comme ceci : 

Sub SelectionFichier()
Dim nomfich As String, i As Integer
    nomfich = Application.GetOpenFilename(FileFilter:="(*.*),*.*" _
            , Title:="Sélectionnez le fichier à convertir")
    If nomfich = "Faux" Then 'pas de sélection faite
        Exit Sub
    End If
    For i = Len(nomfich) To 2 Step -1
        If Mid(nomfich, i, 1) = "" Then Exit For
    Next i
    Chemin = Left(nomfich, i)
    Fichier = Mid(nomfich, i + 1)
    MsgBox Chemin & " " & Fichier
End Sub
0
Réponse 2 / 4
2pax.cruz
5 juil. 2010 à 13:28
Ca fonctionne très bien!

Par contre, est-il possible de seulement récupérer le nom du fichier?

Car ça me donne l'emplacement entier. Par exemple : c:\blabla\fichier.doc

Or, je voudrais juste avoir le "fichier.doc"

Car le fichier est destiné à être envoyé et vu que les dossiers varient d'un pc à l'autre...
0
Réponse 3 / 4
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 757
5 juil. 2010 à 14:57
Bien sur, en manipulant un peu le code et la chaîne de caractère tu peux faire : 

Sub SelectionFichier()
Dim nomfich As String, i As Integer
    nomfich = Application.GetOpenFilename(FileFilter:="(*.*),*.*" _
            , Title:="Sélectionnez le fichier à convertir")
    If nomfich = "Faux" Then 'pas de sélection faite
        Exit Sub
    End If
    For i = Len(nomfich) To 2 Step -1
        If Mid(nomfich, i, 1) = "\" Then Exit For
    Next i
    nomfich = Right(nomfich, Len(nomfich) - i)
    
    MsgBox nomfich
End Sub
0
Réponse 4 / 4
2pax.cruz
5 juil. 2010 à 15:24
Un grand merci \o/

Vraiment!
0
michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
5 juil. 2010 à 15:30
bonjour,
a la bourre mais
la boucle est inutile dans ce cas 

Dim nomfich As String, i As Integer
    nomfich = Application.GetOpenFilename(FileFilter:="(*.*),*.*" _
            , Title:="Sélectionnez le fichier à convertir")
    If nomfich = "Faux" Then 'pas de sélection faite
        Exit Sub
    End If
    tablo = Split(nomfich, "\")
    nomfich = tablo(UBound(tablo))


attention quand m^me aux astuces ccm...
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 757
5 juil. 2010 à 15:58
Salut,
merci du coup de main. 'Fectivement, pas besoin de boucle et ta proposition est claire.
Par contre en ce qui concerne cette astuce, la provenance de Lermitte222 est un gage de qualité, en tout cas, il me semble.
A +
0
michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
5 juil. 2010 à 16:27
Et pour rester dans la m^me technique pour extraire le chemin seul (il y a d'autres manières mais...) 
Dim nomfich As String, chemin As String
Dim tablo
    nomfich = Application.GetOpenFilename(FileFilter:="(*.*),*.*" _
            , Title:="Sélectionnez le fichier à convertir")
    If nomfich = "Faux" Then 'pas de sélection faite
        Exit Sub
    End If
    tablo = Split(nomfich, "\")
    nomfich = tablo(UBound(tablo))
    ReDim Preserve tablo(UBound(tablo) - 1)
    chemin = Join(tablo, "\")


ma réflexion sur les astuces ne concernait pas la qualité de l'auteur mais un code pouvant être amélioré comme souvent dans cette rubrique et comme souvent dans ceux que je propose
0