{ SET Monsignet "MaValeur"}

{ REF Monsignet }

{ SET Monsignet { MERGEFIELD Nom } }
{ REF Monsignet }

{ SKIPIF { MERGEFIELD Sexe } = "H" }

{ INCLUDEPICTURE  "c:\\temp\\a.jpg"  \* MERGEFORMAT }

{ INCLUDEPICTURE  { MERGEDFIELD Path }  \* MERGEFORMAT }

C:\Temp\a.jpg

C:\\Temp\\a;jpg

ActiveDocument.MailMerge.Execute

Sub TestDocPrincipal()
If ActiveDocument.MailMerge.State = 2 Then MsgBox "Le document est un document principal de fusion !"
End Sub

Sub TestEtatDoc()
MsgBox EtatDocument (ActiveDocument.MailMerge.State)
End Sub

Function EtatDocument( btEtat As Byte ) As String
Select Case btEtat
Case 0
	EtatDocument = "Le document n'est pas inclus dans un processus de fusion et publipostage."
Case 1
	EtatDocument = "Document de base sans données jointes."
Case 2
	EtatDocument = "Document de base avec une source de données jointe."
Case 3
	EtatDocument = "Document de base avec un fichier d'en-tête."
Case 4
	EtatDocument = "Document de base avec une source de données et un fichier d'en-tête joints."
Case 5
	EtatDocument = "Source de données sans document de base."
End Select
End Function

Sub DocAjoutSource()
ActiveDocument.MailMerge.OpenDataSource .....
End Sub

Sub DocAjoutSource()
ActiveDocument.MailMerge.OpenDataSource _
	 Name:="C:\Documents and Settings\UserName\Mes documents\Mes sources de données\OLIVIERPC_SQLEXPRESS DBSQL Table1.odc"
End Sub

Sub DocAjoutSource()
ActiveDocument.MailMerge.OpenDataSource _
	Name:="C:\Documents and Settings\Olivier\Mes documents\Mes sources de données\adresses.mdb"
End Sub

Sub DocAjoutSource()
ActiveDocument.MailMerge.OpenDataSource Name:="C:\Documents and Settings\Olivier\Mes documents\Mes sources de données\adresses.xlsx"
End Sub

ActiveDocument.Fields.Add Range:=Selection.Range, Type:=wdFieldMergeField, Text:="""Nom"""

ActiveDocument.Fields.Add Range:=Selection.Range, Type:=wdFieldMergeField, Text:="""Nom"""
Selection.TypeText vbCrLf & " Je viens de mettre le nom " & vbCrLf
ActiveDocument.Fields.Add Range:=Selection.Range, Type:=wdFieldMergeField, Text:="""Prénom"""

ActiveDocument.Fields.Add Range:=Bookmarks(1).Range, Type:=wdFieldMergeField, Text:="""Nom"""

AcriveDocument.MailMerge.Execute

ActiveDocument.MailMerge.Destination = wdSendToNewDocument 

Sub DocPubliposte()
ActiveDocument.MailMerge.OpenDataSource _
            Name:="C:\Documents and Settings\Olivier\Mes documents\Mes sources de données\OLIVIERPC_SQLEXPRESS DBSQL Table1.odc"

ActiveDocument.Fields.Add Range:=Bookmarks(1).Range, Type:=wdFieldMergeField, Text:="""Nom"""
ActiveDocument.Fields.Add Range:=Bookmarks(2).Range, Type:=wdFieldMergeField, Text:="""Prénom"""
ActiveDocument.MailMerge.Execute
       
End Sub

Sub TestPublipost()
' Déclaration des variables
Dim iR As Integer
Dim i As Integer
Dim oDoc As Document
Dim DocName As String
Dim oDS As MailMergeDataSource

' Affectation des objets
Set oDoc = ActiveDocument
Set oDS = oDoc.MailMerge.DataSource

iR = MailMerge.DataSource.RecordCount
Debug.Print iR
For i = 1 To iR
    With oDoc.MailMerge
    	'Définition du premier et dernier enregistrement
        .DataSource.FirstRecord = i
        
        .DataSource.LastRecord = i
        ' Envoi des données dans un nouveau document
        .Destination = wdSendToNewDocument
        ' Exécution du publipostage
        .Execute
        ' Actualisation de l'enregistrement pour la sauvegarde
        .DataSource.ActiveRecord = i
        'Utilisation de deux champs pour obtenir le nom du document
        DocName = .DataSource.DataFields(2).Value
        DocName = DocName & "-" & .DataSource.DataFields(3).Value
        Debug.Print DocName; i
    End With
	' Sauvegarde du document publiposté
    With ActiveDocument
        .SaveAs "c:\temp\" & DocName & ".doc"
        .Close
    End With
Next i
End Sub

With ActiveDocument
    .SaveAs "c:\temp\" & DocName & ".doc"
    .Close
End With

Sub connexionSQL()
Dim rs As ADODB.Recordset
Dim stCon As ADODB.Connection
Dim Utili As String
Dim mdp As String
Utili = ""
mdp = ""

'Création d'un objet ADO
Set stCon = New ADODB.Connection
'Accès aux données
With stCon
    .ConnectionString = "UID=" & Utili & ";PWD=" & mdp & ";" & "DRIVER={SQL Server};Server=" _
			& "OLIVIERPC\SQLEXPRESS" & ";Database=" & "DBSQL" & ";"
    .Open
End With
'Création d'un objet Recordset (jeu d'enregistrements)
Set rs = New ADODB.Recordset

rs.Open "SELECT * FROM Table1", stCon
'Boucle pour parcourir les enregistrements et afficher leur contenu
'dans la fenêtre d'exécution.
While Not rs.EOF
Debug.Print rs.Fields(2).Value
rs.MoveNext
Wend
'libération des objets
stCon.Close
set stCon = Nothing
Set rs = Nothing

End Sub

Sub ConnexionDBAccess()
'Déclaration des variables
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim sql As String
'Affectation de la sentence SQL
sql = "SELECT * From T_Adresses"
'Affectation des Objets d'access aux données
Set db = DBEngine.OpenDatabase("C:\Documents and Settings\Olivier\Mes documents\Mes sources de données\DB_Publipostage.mdb")
Set rs = db.OpenRecordset(sql)
'Boucle pour la récupération des données
While Not rs.EOF
Debug.Print rs.Fields(2)
rs.MoveNext
Wend
'Libération des objets
rs.Close
db.Close

Set rs = Nothing
Set db = Nothing

End Sub

Sub donneeAvecExcel()
'Déclaration des variables
Dim xlApp As Excel.Application
Dim xlWb As Excel.Workbook
Dim xlSh As Excel.Worksheet
Dim iR As Integer
Dim iC As Integer
Dim i As Integer, j As Integer


'Affectation des données aux variables
Set xlApp = New Excel.Application
Set xlWb = xlApp.Workbooks.Open("C:\Documents and Settings\Olivier\Mes documents\Mes sources de données\adresses.xlsx")
Set xlSh = xlWb.Worksheets(1)
'Récupération du nombre de lignes et de colonnes
iR = xlSh.UsedRange.Rows.Count
iC = xlSh.UsedRange.Columns.Count
'Boucle pour adresser les cellules contenant des données
'en excluant la première ligne qui contient les titres
For i = 2 To iR
    For j = 1 To iC
        Debug.Print xlSh.Cells(i, j)
    Next j
Next i


xlWb.Close
xlApp.Quit
Set xlSh = Nothing
Set xlWb = Nothing
Set xlApp = Nothing


End Sub

ActiveDocument.Bookmarks(1).Range.Text = "La Donnée"

ActiveDocument.Bookmarks(1).Range.Text = xlSh.Cells(i, j)

While Not rs.EOF
'Traitement des données
rs.MoveNext
Wend

Sub ConnexionDBAccess()
'Déclaration des variables
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim oDoc As Document
Dim sql As String
'Affectation de la sentence SQL
sql = "SELECT * From T_Adresses"
'Affectation des Objets d'access aux données
Set db = DBEngine.OpenDatabase("C:\Documents and Settings\Olivier\Mes documents\Mes sources de données\DB_Publipostage.mdb")
Set rs = db.OpenRecordset(sql)
'Boucle pour la récupération des données
While Not rs.EOF
'Affectation d'un objet document à la variable document
Set oDoc = Documents.Add("C:\Documents and Settings\Olivier\Application Data\Microsoft\Templates\pub.dotm")
'Ecriture des données sur les signets
oDoc.Bookmarks(1).Range.Text = rs.Fields(1)
oDoc.Bookmarks(2).Range.Text = rs.Fields(2)
oDoc.Bookmarks(3).Range.Text = rs.Fields(3)
'Sauvegarde du document
oDoc.SaveAs "c:\temp\" & rs.Fields(1) &