Ouvrir un fichier en fonction d'une information variable

[maspi69]

Rebonjour,

je continue à coincer sur un problème.
Je souhaite demander à l'utilisateur ou se trouve un fichier. pour cela je propose cela:


Sub Nomdufichier()
Dim NomFichier
NomFichier = Application.GetOpenFilename
If VarType(NomFichier) = vbBoolean Then MsgBox "Action annulée" _
Else MsgBox "Fichier sélectionné : " & NomFichier
End Sub

Ensuite, je cherche à ouvrir ce fichier pour copier certaines de ces données dans le tableau ou j'ai mes macros.
Problème : si j'utilise Workbooks.Open Filename:= nomfichier j'ai un problème.

J'ai besoin de conserver l'emplacement pour sauvegarder le tableau principal dans le même répertoire.

Une âme charitable a-t-elle une solution ?

Vous remerciant par avance

 

[Modeste]

Re : Ouvrir un fichier en fonction d'une information variable

Bonsoir maspi69

Ce qui aurait été intéressant, aurait été de dire quel est ton problème ...
Essaie peut-être

Sub Nomdufichier()
    Dim NomFichier
    NomFichier = Application.GetOpenFilename
    If VarType(NomFichier) = vbBoolean Then
        MsgBox "Action annulée"
    Else
        MsgBox "Fichier sélectionné : " & NomFichier
        Workbooks.Open Filename:=NomFichier
    End If
End Sub

Juste après l'ouverture (si elle a réussi), quelque chose comme

leChemin = ActiveWorkbook.Path

devrait répondre à la question de l'emplacement

... Le tout, si j'ai bien compris!?

 

[maspi69]

Re : Ouvrir un fichier en fonction d'une information variable

Merci beaucoup Modeste.

Cela fonctionne et correspond à mon probleme.
Pour être plus clair. J'ai accepté d'aider un copain sur son nouveau job. Ses tableaux doivent fonctionner dans un environnement cytrix auquel je n'ai pas accès. Je ne peux donc pas connaitre à l'avance les emplacements des fichiers. Voila pourquoi je souhaite l'obtenir par ce biais.

Vraiment merci pour ton aide