Choix Automatisé donc Import fichier Automatic

Bonjour j'aurai besoins d'un avis d'expert en la matière.

J'ai une Macro qui débute avec "f$ = Application.GetOpenFilename" qui me permet d'importer Manuellement un fichier

Je voudrai mettre cette option aux oubliettes et passer a quelque chose de plus automatisé.

En effet j'ai un onglet "TOOL"

en A1 j'ai le chemin pour Accéder a un répertoire évolutif "\\tirswn4166215.ale.vsfi.com\DATAEQUIPMENT\OTO\PART01"

en B1 j'ai le fichier qui sera aussi évolutif correspondant à f$ "xvc_measures.dbs"

Quel est la meilleur tabulation pour que f$ corresponde à onglet "TOOL" A1&B1

Bien Cordialement et par avance Merci de vos Lumières sur le sujet

Daniel

Bonjour

Essaie cette instruction :

Workbooks.Open Filename:=Range("A1") & "\" & Range("B1")

Bye !

Bonjour et Merci

Je n arrive pas à l'associer à f$

f$= Workbooks.open Filename...... M indique

une erreur de tabulation

Merci pour Ton Aide

Daniel

Bonsoir,

Un exemple en PJ à tester.

Bonne soirée

Bouben

Merci Bouben

Pour un WorkBooks ça fonctionne parfaitement

Dans mon cas c'est différent

Le postulat de départ était que j'ouvre un fichier binaire type .db

jusqu'ici j'avais un "f$ = Application.GetOpenFilename" qui me permet d'importer Manuellement un fichier

>>>>>> ci joint le début de mon code <<<<<<<<<<<

sub openread_db()

Dim ver As db_version

ok = True

'f$ = Application.GetOpenFilename

'------------------Début nouveauté à Améliorer But = Remplacer GetOpenFile--------------------------

Sheets("TOOL").Select

Dim f$ As Variant

Set f$ = file.Open(Filename:=Range("W5") & "\" & Range("F5"))

'-------------------Fin nouveauté à Améliorer-----------------------------------------------------------------

Open f For Binary Access Read As #1

ver = get_version()

Close #1

If ok Then 'ok, so read global header

read_header (f$)

'place for data output

' Application.Workbooks.Add use current sheet

'get db

read_whole_db (f)

End If

End Sub

Merci pour votre aide Précieux car la je pédale dans la semoule et je perd pied !!!!

Daniel