L
Laura15
Guest
Je fait une importation de données dans Excel grace a cette macro mis dans excel
Sub BImportationAccessDepenses()
Dim Session As Workspace
Dim BaseDonnée As Database
Dim Fiches As Recordset
Dim i
Set Session = DBEngine.Workspaces(0)
Set BaseDonnée = Session.OpenDatabase('D:\\MM\\CP_GT\\CP_GT.mdb')
Set Fiches = BaseDonnée.OpenRecordset('T_Depenses', dbOpenDynaset)
Fiches.MoveLast
Fiches.MoveFirst
Sheets('BASE_Dep').Select
For i = 1 To Fiches.RecordCount
etc
Mais le problème est que je mets un chemin , parfois je travaille sur un poste ou le répertoire est
('D:\\MM\\CP_GT\\CP_GT.mdb')
Et parfois je travaille sur un poste ou le disque n'est pas partinonné donc le chemin devient
('C:\\MM\\CP_GT\\CP_GT.mdb')
Donc pas très pratique , y a t'il un moyen pour que je ne sois pas obligé de changer ou d e déboguer ma macro quand je change de poste
Merci
Sub BImportationAccessDepenses()
Dim Session As Workspace
Dim BaseDonnée As Database
Dim Fiches As Recordset
Dim i
Set Session = DBEngine.Workspaces(0)
Set BaseDonnée = Session.OpenDatabase('D:\\MM\\CP_GT\\CP_GT.mdb')
Set Fiches = BaseDonnée.OpenRecordset('T_Depenses', dbOpenDynaset)
Fiches.MoveLast
Fiches.MoveFirst
Sheets('BASE_Dep').Select
For i = 1 To Fiches.RecordCount
etc
Mais le problème est que je mets un chemin , parfois je travaille sur un poste ou le répertoire est
('D:\\MM\\CP_GT\\CP_GT.mdb')
Et parfois je travaille sur un poste ou le disque n'est pas partinonné donc le chemin devient
('C:\\MM\\CP_GT\\CP_GT.mdb')
Donc pas très pratique , y a t'il un moyen pour que je ne sois pas obligé de changer ou d e déboguer ma macro quand je change de poste
Merci