Nom et Chemin d'un fichier VBA Excel
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:
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 |
