Discussion :

[jeronimo]

Nom du fichier à lire
---------------------- ___
| C:\MaBase.mdb | |___| Mon bouton de sélection du fichier
----------------------


Comment je fais pour récupérer le nom "MaBase.mdb" pour importer les tables de cette base avec un bouton "importer "

Merci

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
26
Private Sub BtnOpenFile_Click()
Const OFN_FILEMUSTEXIST = &H1000
Const OFN_PATHMUSTEXIST = &H800
Const OFN_HIDEREADONLY = &H4
Const OFN_READONLY = &H1
Const OFN_OVERWRITEPROMPT = &H2
 
 Dim fd As New FileDialog
 Dim Dateiname As String
 
  With fd
      DialogTitle = "Ouvrir la base"
      .DefaultExt = "mdb"
      .DefaultDir = "c:\"
      .Flags = OFN_FILEMUSTEXIST Or OFN_PATHMUSTEXIST Or OFN_READONLY
      .MultiSelect = True
      .Filter1Text = "Fichier mdb (*.mdb)"
      .Filter1Suffix = "*.mdb"
      .Filter2Text = "Fichier mde (*.mde)"
      .Filter2Suffix = "*.mde"
      ShowOpen
      If fd.FileName = "" Then Exit Sub
      Me.MdbFichier = fd.FileName
   End With
 
End Sub

[/img]

[Invité]

Salut,

Interresse toi à

docmd.tranfertdatabase

et à

docmd.runcommand accmdImport

Starec

[jeronimo]

Comment est-ce que je récupère une "adresse" de base variable avec les commandes "docmd.tranfertdatabase" docmd.runcommand ou accmdImport ?