Discussion :

[mlww]

Bonjour,

je désirais savoir si on peut ouvrir un report (état) de une commande vba Excel

je sais le faire dans le Vba Access

Code :

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

DoCmd.OpenReport"rptReport", acViewPreview,,"ID=" & Me.ID

mais depuis Excel ??

Depuis Excel pour faire les requêtes et update j'utilise
mais cela fonctionne uniquement sur les fonctions Select, Insert, Update, Delette,

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
 
On Error GoTo errhdlr
Set Cnx = CreateObject("ADODB.Connection")
Cnx.Provider = "MSDASQL"
Cnx.Open "DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}; DBQ=" & BDD
If Left(Req, 6) = "SELECT" Then
    Set Rst = CreateObject("ADODB.Recordset")
    Rst.Open Req, Cnx, 3
 
   .......
 
Else
    Cnx.Execute Req
    Query = 0
End If
Cnx.Close
Set Rst = Nothing
Set Cnx = Nothing
Exit Function
errhdlr:
    If Not Rst Is Nothing Then If Rst.State = 1 Then Rst.Close
    If Not Cnx Is Nothing Then If Cnx.State = 1 Then Cnx.Close
    Set Rst = Nothing
    Set Cnx = Nothing
    Query = -1
    MsgBox (Err.Number & " - " & Err.Description)

merci pour vos informations

[Invité]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
Sub test()Const acQuitSaveNone = 2, acViewPreview = 2
Dim Accss As Object: Set Accss = CreateObject("Access.Application")
Accss.OpenCurrentDatabase "C:\MyRepertoire\Base de données1.accdb"
Accss.Visible = True
Accss.DoCmd.OpenReport "rptReport", acViewPreview, , "ID=" & Me.ID
Accss.Quit acQuitSaveNone
 
 
End Sub

[mlww]

Bonjour dysorthographie

Désolé de ne pas avoir répondus plutôt
Ca marche Nikel, je te remercie infiniment.

Par contre j'ai essayer la sortie pdf je m'en sort pas aurais tu une raison a ca

voici ce que j'ai écrit

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton2_Click()
If CBoxInt.Value = "" Then MsgBox "Selectionné un noms dans la liste": Exit Sub
Const acQuitSaveNone = 2, acViewPreview = 2
Dim Accss As Object
Dim Val_Filtre As String
Set Accss = CreateObject("Access.Application")
Val_Filtre = "[DS_Intervenant]='" & CBoxInt.Value & "'"
Accss.OpenCurrentDatabase "I:\GMAO\Bdd_Gmao.accdb"
Accss.Visible = True
Accss.DoCmd.OpenReport "Rpt_Demande_Inter", acViewPreview, "", Val_Filtre
Accss.DoCmd.OutputTo acOutputReport, "Rpt_Demande_Inter", acFormatPDF, "I:\GMAO\" & Val_Filtre & ".pdf"
Accss.Quit acQuitSaveNone
End Sub