Excellent! merci

Question subsidiaire:

1/ dans ton code tu précises le chemin de mannière absolue (C:\Applications\Excel). Sachant que les fichiers à ouvrir seront tjrs dans la même DIR que la feuille de calcul, mais que cette DIR pourrait varier, peut-on envisager un adressage 'relatif' ?

2/ la cellule Cells(28,3) est nommée 'open'. Quelle syntaxe pour l'utiliser
sous cette appelation?

En tout cas, ton aide a été précieuse. Quand j'y pense, coincer là-dessus ...

Merci

Bonjour,

exemple :

Sub Test()

    Dim NomFichier As String
    
    NomFichier = ActiveWorkbook.FullName
    NomFichier = Left(NomFichier, InStrRev(NomFichier, "\"))
    NomFichier = NomFichier & Range("open").Value
    
    MsgBox NomFichier
    Workbooks.Open (NomFichier)

End Sub
'

J'ai mieux car je cherche
En fait j'ouvre sous excel un explorateur d'objet pour que tu trouve ton fichier et ensuite je l'ouvre

Tu exclue ainsi une longue recopie du chemin d'acces et en plus ton fichier s'ouvre

voila le code

Sub Macro1()
nom = Application.GetOpenFilename("Nom fichier,*.xls")
Workbooks.Open nom
end sub

Bonjour,

oui, je comprends cette technique, toutefois, celle-ci oblige une intervention et ne pourra être
utilisé lors d'un automatisme de nuit ou quelques chose du genre. Tout dépend du besoin et
cette précision n'a pas été soumis dans le devis de Kolitchev.

justement, le nom du fichier est donné en [range(open).value], donc pas besoin de demander
ou est le fichier à l'utilisateur puisqu'il est spécifier que tous les fichiers sont dans le même
dossier, il ne s'agit que de trouver celui-ci :-)

ceci dit, pour sélectionner un nom par l'utilisateur, à partir d'une localisation [ Range ], j'aurais proposé :

Sub OuvrirFichier()

    Dim objNomFichier As Range, strNomFichier As String

    Set objNomFichier = Application.InputBox("Cellule source : ", Type:=8)
    
    strNomFichier = ActiveWorkbook.FullName
    strNomFichier = Left(strNomFichier, InStrRev(strNomFichier, "\"))
    NomFichier = NomFichier & "\" & objNomFichier.Value
    Workbooks.Open (NomFichier)
    
    Set objNomFichier = Nothing

End Sub
'