Re : activation automatique commande SQL dans Excel
sorry mais je place ça où dans la macro...
Private Sub document_Open()
ActiveDocument.MailMerge.OpenDataSource Name:= _
"E:\SYLVIE\MIC OK\MIC Encodage.xls", ConfirmConversions:=False, ReadOnly _
:=False, LinkToSource:=True, AddToRecentFiles:=False, PasswordDocument:= _
"", PasswordTemplate:="", WritePasswordDocument:="", _
WritePasswordTemplate:="", Revert:=False, Format:=wdOpenFormatAuto, _
Connection:= _
"Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin; _
Data Source=E:\SYLVIE\MIC OK\MIC Encodage.xls;Mode=Read;Extended Properties=""HDR=YES; _
IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path=""""; _
Jet OLEDB
atabase Password="""";Jet OLEDB:Engin" _
, SQLStatement:="SELECT * FROM `MIC$` WHERE `en cours` ='Oui' ORDER BY `Salle` ASC, `Chambre` ASC", _
SQLStatement1:="", SubType:= _
wdMergeSubTypeAccess
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute Pause:=False
End With
ActiveWindow.ActivePane.VerticalPercentScrolled = 0
Windows("mic présentation.doc").Activate
ActiveDocument.Save
ActiveWindow.Close
End Sub