Bonjour,
J'ai exhumé ce code qui ne fonctionnait plus pour en bidouiller un qui fonctionne chez moi mais seulement une fois... Il faut que le sorte de l'appli et ça repart pour... une fois. Ce qui semble vouloir dire que je ne ferme pas quelque chose. Une idée ?
Private Sub CommandButton66_Click()
Dim docWord As Word.Document
Dim appWord As Word.Application
Dim NomBase As String
On Error Resume Next
If ComboBox2.Value = "" Then
MsgBox "Il n'y a pas de dossier sélectionné !", vbOKOnly + vbCritical, "Vas te coucher !"
Unload Me
irs1.Show
Else
NomBase = "c:\xxxx\user\irs1.xlsm"
End If
Application.ScreenUpdating = False
Set appWord = New Word.Application
appWord.Visible = True
'Ouverture du document principal Word
Set docWord = appWord.Documents.Open("C:\Users\xxxx\Documents\Nouvelles lettres\" & ListBox8.Value)
ActiveDocument.MailMerge.OpenDataSource Name:= _
"C:\Users\do0059\Documents\irs1.xlsm", ConfirmConversions:=False, _
ReadOnly:=False, LinkToSource:=True, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", WritePasswordDocument:="", _
WritePasswordTemplate:="", Revert:=False, Format:=wdOpenFormatAuto, _
Connection:= _
"Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=C:\Users\xxxx\Documents\irs1.xlsm;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Engine Type=35;Jet OLEDB
atabase Locking Mod" _
, SQLStatement:="SELECT * FROM `données$`", SQLStatement1:="", SubType:= _
wdMergeSubTypeAccess
ActiveDocument.MailMerge.ViewMailMergeFieldCodes = wdToggle
ActiveDocument.MailMerge.datasource.ActiveRecord = Me.TextBox60.Value
End Sub