Ouvrir un fichier spécifique dans un dossier

Bonsoir à tous.

Je créé mon premier sujet sur ce site car j'ai besoin de votre aide.

Pour mon travail, je suis entrain de créer un petit programme qui permet d'aller dans plusieurs fichiers excel des valeurs (pour faire simple, ce n'est pas la partie importante).

Le problème, est le suivant :

1. les fichiers excel pour aller chercher les valeurs sont écrits de plusieurs façon, voici un exemple :

• 20min 150°C TA1

• 20 min150°C TA1...

Comment vérifier le réel nom du fichier excel dans le dossier afin de pouvoir le tableau souhaité?

Merci d'avance pour vos réponses

PS : j'utilise office 2003.

Hello!

Je ne suis pas sur de comprendre: Tu connais le nom des fichiers aux espaces près en fait?

Y a-t-il un seul fichier avec ce nom dans le dossier concerné?

Percolator a écrit :

Hello!

Je ne suis pas sur de comprendre: Tu connais le nom des fichiers aux espaces près en fait?

Y a-t-il un seul fichier avec ce nom dans le dossier concerné?

désolé je n'étais pas devant mon pc.

En gros oui et non, oui par rapports aux espaces près, et non car des fois, ma collègue et moi on peut oublier une lettre.

Il y a plusieurs fichiers avec ce nom (minimum 3, grand maximum 6 ou 7 mais ce n'est pas systématique).

Bonjour,

Heuuu, pas sûr d'avoir compris...

Si tu élargis la colonne tu verras le nom en entier, ça devrait aider

Tu peux même agrandir la boite de dialogue en tirant son coin inférieur droit.

Si tu es vraiment en vba tu devrais dire ce que tu fais et ce qui te bloque exactement, avec un exemple précis.

eric

eriiic a écrit :

Bonjour,

Heuuu, pas sûr d'avoir compris...

Si tu élargis la colonne tu verras le nom en entier, ça devrait aider

Tu peux même agrandir la boite de dialogue en tirant son coin inférieur droit.

Si tu es vraiment en vba tu devrais dire ce que tu fais et ce qui te bloque exactement, avec un exemple précis.

eric

En gros je recherche un code qui permet de dire, dans le dossier X, tu vas chercher le fichier excel qui se nomme 20min 150°C TA1, si ce fichier n'éxiste pas, alors tu cherches le fichier 20 min 150°C TA1, si celui-ci n'est pas trouvé, alors tu cherche le vichier 20min150°C TA 1...

Bonjour,

A tester :

Sub test()
    Dim chemin As String, Fichier As String
    Dim nomF As String, ok As Boolean
    Dim wb As Workbook

    Set wb = ThisWorkbook
    chemin = wb.Path + "\"    ' adapter
    nomF = InputBox("Saisir une partie du nom du fichier", "Ouvrir fichier")
    nomF = LCase(Replace(nomF, " ", ""))
    Fichier = Dir(chemin & "*.xl*")    ' 1er fichier
    Do While (Len(Fichier) > 0)
        If Fichier <> ThisWorkbook.Name Then
            If InStr(LCase(Replace(Fichier, " ", "")), nomF) Then
                If MsgBox("Ouvrir " & Fichier, vbYesNo + vbQuestion, "Nom correct ?") = vbYes Then
                    ok = True
                    Exit Do
                End If
            End If
        End If
        Fichier = Dir()    ' fichier suivant
    Loop
    If ok Then
        Set wb = Workbooks.Open(chemin & Fichier)
    Else
        MsgBox "Fichier non trouvé"
    End If
End Sub

Saisir une partie du nom avec ou sans espace, ils seront supprimés.

Si un nom correspond il est proposé. Si le fichier est refusé le balayage continue.

Par défaut le répertoire de recherche est celui du fichier avec la macro, adapter.

eric

eriiic a écrit :

Saisir une partie du nom avec ou sans espace, ils seront supprimés.

Si un nom correspond il est proposé. Si le fichier est refusé le balayage continue.

Par défaut le répertoire de recherche est celui du fichier avec la macro, adapter.

eric

Merci beaucoup Eriic, ca fonctionne très bien. j'ai apporté quelques petites modifications sur ton code dont l'input box par exple et le msgbox pour validation.