[XL-2000] Base access introuvable, requêtes Microsoft Query

Base access introuvable, requêtes Microsoft Query

Bonjour tout le monde,

j'ai un fichier Excel que je remplis à l'aide de Microsoft Query en suivant cet exemple.

Je voudrai savoir comment renseigner le chemin de la base de données Access lorsqu'elle sera déplacée sans refaire la procédure de Microsoft Query pour chaque information ?

Merci par avance :)

tu peux te creer un formulaire ou tu renseignera le chemin de la BDD, et dans le code a la place de

Code:

ConnectDB cnx, strPath

tu mets

Code:

ConnectDB cnx, userform.textbox.text

Merci mais je mets ça où ?

Car à aucun moment je ne vois ce code

Code:

ConnectDB cnx, strPath

poste ton code d'abord.

Je travaille avec Excel là ...

J'me pose sur une case et je fais :
"Données""
- "Données externes"
- "Créer une requête"

Et là bah je vais chercher ma base et l'information que je veux afficher comme expliquer dans le lien cité plus haut.

Quel code dois-je te montrer ? :roll:

Salut,

perso j'utilise ADO en lieu et place de Microsoft Query.

Tu trouve un exemple dans le tien (en bas), mais il y a tout un tas de tutos sur le sujet.

L'avantage de ADO est qu'il ne nécessite aucune définition des données à manipuler.

Ci-joint, une exemple ADO depuis une plateforme AS400 (autre driver, mais principe identique).

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
Public Sub ReadFileI5Full(ByVal Input_File As String, ByVal Target_worksheet As String, ByVal Target_range As String)
'ReadFileI5Full : get I5 data from Lib.file(member) and insert that in Worksheet at désired range cell
'usage : ReadFileI5Full (File, Worksheet, Range)
' Input_File : can be either Lib.file
'                    or Lib.File(member)
' Target_Worksheet : Must be a valid Worksheet Name : if exists : cleared before fullfillment
'                                              if not exists : will be created
' Target_Range     : Must be a valid cell name : Example "A1"
 
    On Error GoTo ErrorHandler
 
    Dim cn          As New ADODB.Connection
    Dim rs          As New ADODB.Recordset
    Dim sConn       As String
    Dim SqlString   As String
    Dim FileName    As String
    Dim DSN_Name As String
    Dim ws          As String 'Results Storing Worksheet name
    Dim Rg          As String 'results Cells top left
    Dim cellule     As Range
    Dim CompA       As Integer
    Dim idx         As Long
    Dim sheet_found As Boolean
    Dim ActShName   As String
 
 
 
 
 
    sConn = "provider=IBMDA400;Data source=xx.xx.xx.xxx;USER ID=USER;PASSWORD=PASWWORD"
    FileName = Trim(Input_File)
    ws = Trim(Target_worksheet)
    Rg = Trim(Target_range)
 
    'check target Worsksheet exists and if not build
    sheet_found = False
    For idx = 1 To Sheets.Count
        If Sheets(idx).Name = ws Then
            Application.DisplayAlerts = False
            Sheets(idx).Cells.Clear
            Application.DisplayAlerts = True
            sheet_found = True
            Exit For
        End If
    Next idx
    'Build Ws
    If Not sheet_found Then
        ActShName = ActiveSheet.Name
        Sheets.Add
        ActiveSheet.Name = ws
        Sheets(ActShName).Activate
    End If
 
    'Open Connection
    cn.ConnectionString = sConn
    cn.Open
    SqlString = "SELECT * FROM " & FileName & ""
 
    'open record Set
    rs.Open SqlString, cn
 
 
 
    'Paste Fields names in line 1
    Set cellule = Worksheets(ws).Range(Rg)
    For CompA = 0 To rs.Fields.Count - 1
        cellule.Offset(0, CompA).Value = rs.Fields(CompA).Name
    Next CompA
    'Paste results line above names
    Worksheets(ws).Range(Rg).Offset(1, 0).CopyFromRecordset rs
 
    rs.Close
    cn.Close
    Set cn = Nothing
    Set rs = Nothing
 
    Exit Sub
ErrorHandler:
    ' clean up
    If Not cn Is Nothing Then
        If cn.State = adstateopen Then cn.Close
    End If
    Set cn = Nothing
    If Not rs Is Nothing Then
        If rs.State = adstateopen Then rs.Close
    End If
    If Err <> 0 Then
      MsgBox Err.Source & "-->" & Err.Description, , "Error"
    End If
 
End Sub

Merci pour cette réponse.

Cependant, j'ai fais une petite procédure qui ne me permet pas de perdre de temps dans la mise en place de fichier Excel. Refaire le fichier Excel lors du changement de base de données ne sera pas longtemps avec la requête contenant tous les champs à afficher.

Merci à vous quand même ;)