IF len(ls_resultatfusion) > 0 THEN 
  IF fileexists(ls_resultatfusion) = TRUE THEN
    lb_test = FileDelete(ls_resultatfusion)
    IF lb_test = FALSE THEN
      Messagebox("Attention", "Le fichier est déjà ouvert~nVeuillez le fermer avant de recommencer")
      RETURN
    END IF
  END IF
END IF

ll_word = OpenChannel ("Winword", "SYSTEM", Handle(THIS))

DocWord = CREATE OLEObject
ModeleWord = CREATE OLEObject
ResultatWord = CREATE OLEObject

IF ll_word < 0 THEN
  //Word n'est pas lancé donc on ouvre une nouvelle session
  li_resultat = DocWord.ConnectToNewObject("Word.Application.8")
ELSE
  //Word est lancé, on ferme la connexion
  CloseChannel(ll_word,Handle(THIS))
  li_resultat = DocWord.ConnectToObject("", "Word.Application.8")
END IF

IF li_resultat = 0 THEN
  DocWord.Application.Visible = TRUE
  //Ouverture du modèle
  DocWord.Application.Documents.open(ls_modele)
  DocWord.Application.Activate()
  ModeleWord = DocWord.Application.ActiveDocument
  
  //Commande d'ouverture de la source de données
  DocWord.ActiveDocument.Mailmerge.OpenDataSource(ls_fichierdonnees , 0, FALSE, FALSE, TRUE, FALSE," ","",FALSE, "", "", "Entire Spreadcheet")
  DocWord.ActiveDocument.Mailmerge.Destination = 0 //fusionner dans le fichier

  DocWord.ActiveDocument.Mailmerge.SuppressBlankLines = TRUE
  
  //Fusionner
  DocWord.ActiveDocument.Mailmerge.Execute(TRUE)
  
  ResultatWord = DocWord.ActiveDocument
  ResultatWord.SaveAs(ls_resultatfusion)
  
//  ResultatWord.PrintOut()
  
  ModeleWord.close(0)
  
  DocWord.DisconnectObject()
  //Destruction des objects
  DESTROY ModeleWord
  DESTROY DocWord
  DESTROY ResultatWord
  
END IF