Discussion :

[dorschner]

Bonjour à tous,
J'ai un fichier excel qui ouvre une connection à une base access, mon modèle quoique simpliste fonctionne bien, mais la contrainte que j'ai c'est de spécifier manuellement le chemin et nom du dit fichier access qui ne sera pas toujours le même...

(je pointe sur une cellule nommée strPath qui contient le nom et chemin du fichier tel que: \\mtlntt08\odorschn$\Hôtels\Produits Europe Été 2007\Produits Hôtels Été 07 au... .mdb).

J'ai essayé avec la boite de dialogue Application.Find.File mais celle-ci sert uniquemen à ouvrir le fichier et ne retourne pas ni le chemin ni le nom en plus de ne pas pouvoir ouvrir un autre type de fichier qu'excel. Pouvez-vous m'indiquer comment chercher le nom et le chemin du fichier de type access pour ensuite l'intégré à ma procédure ?
Merci, Olivier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Dim strPath As String
 
Application.GoTo reference:="strPath"
strPath = ActiveCell
 
Set cnx = New ADODB.Connection
 
ConnectDB cnx, strPath     'Appel de la méthode ConnectBD
 
Dim rec As New ADODB.Recordset
Dim strSQL As String
 
strSQL = "SELECT [Tous_Pays Hôtels].* " & _
"FROM [Tous_Pays Hôtels] LEFT JOIN [Codes Produits] ON [Tous_Pays Hôtels].[Code 1-9] = [Codes Produits].inventaire WHERE ([Tous_Pays Hôtels].Reservations)>0"
 
rec.Open strSQL, cnx
....
 
Sub ConnectDB(ByRef cnx As ADODB.Connection, ByVal strPath As String)
 
cnx.Provider = "Microsoft.Jet.Oledb.4.0"
cnx.ConnectionString = strPath
cnx.Open
 
End Sub

[SilkyRoad]

bonjour

j'espère que cet exemple pourra t'aider:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim Fichier As Variant
 
Fichier = _
    Application.GetOpenFilename("Bases Access (*.mdb), *.mdb")
If Fichier = False Then Exit Sub
 
MsgBox Fichier

michel

[dorschner]

Limpide il n'y a pas d'autres mots
Merci ça fontionne à merveille ...

Olivier