Chaud l'affaire

Question

Bonjour, amis du vb.

J'ai un probl&#232;me. Je travaille sur une application access enti&#232;rement cod&#233;e en vba et donc sans macros.

J'ai cr&#233;&#233; un formulaire qui contient des textbox rattach&#233;es aux donn&#233;es de certaines tables. Ce sont des informations sur l'etat civil d'un salarie.

J'ai donc par exemple un label avec ecrit "Nom : " et a cot&#233; une textbox que j'ai appel&#233;e TxtNomSalarie. Jusque la, pas d'embrouille.

Mais voila, on m'a demand&#233; de faire en sorte de cr&#233;er un fichier word qui contiendra ces informations (en gros, ca doit etre du publipostage).

Il faut donc par exemple que j'ai sur mon fichier word :

"Monsieur" ici, le nom du salarie en question "a effectu&#233;" ici, la tache qu'il a effectu&#233;e  etc, etc...


Donc voila, si vous pouvez m'aider a faire ca en vba, parce que c'est plutot tendu du string ce truc!
Merci d'avance.

lebender33 · Answer

Oy&#233;, Oy&#233;

Je connais pas bien le vba, moi je suis en vb.net mais ce qui est sure c'est que tu peut cr&#233;er un fichier .doc en .net ca donne




'on ouvre le fichier en mode ajout des caract&#232;res au fichier 
FileOpen(intfnum, "arf.txt", OpenMode.Append)

'on ecrit les lignes format&#233;s correctement.
PrintLine(intfnum, "Monsieur " + nom, "a effectu&#233; le travail de " + nomdutravaille)

'on ferme le fichier 
FileClose(intfnum)

Voila pour l'id&#233;e a toi de chercher dans l'api vba la bonne syntaxe
++
Bender

elpaulo · Answer

ouais, moi j'avais plus dans l'id&#233;e de cr&#233;er d'abord un document-support avec tout le texte qui ne changera pas d&#233;ja &#233;crit, puis placer des signets aux endroits qui vont recevoir les donn&#233;es, et de programmer l'arriv&#233;e de ces donn&#233;es aux bons endroits en vba avec l'evenement clic du bouton imprimer que j'ai fait.

Est-ce une bonne id&#233;e? Est-ce r&#233;alisable? et comment?

peute51 · Answer

voila il faut que tu es ton fichier word avec le publipostage cad le "nom" de ton salaries ou tu veux qu'il soit
il faut creer une requete ac les donnees que tu veux exporter:

            'exportation des donn&#233;es vers un fichier excel
            DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel3, "requete 1", "E:\requete etat.xls", True
            'ouvre word
            Dim wdApp As Word.Application
            Set wdApp = CreateObject("Word.Application")
            With wdApp
            .Visible = True
            'ouverture du fichier compta.doc
            .Documents.Open "E:\compta.doc"
            'realise le publipostage a partir du fichier excel
            .ActiveDocument.MailMerge.Destination = wdSendToNewDocument
            .ActiveDocument.MailMerge.Execute
            .ActiveDocument.SaveAs "E:\ordonnances dupliquees\compta2.doc"
            'impression
            .PrintOut
            .Documents("E:\ordonnances dupliquees\compta.doc").Close
            .Documents("E:\ordonnances dupliquees\compta2.doc").Close
            .Visible = True
            .quit
            End With
            Set wdApp = Nothing
            
            'suppression du fichier compta2.doc
            Kill "E:\ordonnances dupliquees\compta2.doc"
en esperant que ca peut t'aider 
tchao

mrdep1978 · Answer

Entre temps j'ai fait &#231;a, et comme je ne veux pas l'avoir fait pour rien, je le mets qd m&#234;me 

Public Sub test(a_NomSalarie As String, a_Tache As String)
'Dim wdApp As Word.Application
'Dim wdDoc As Word.Document
Dim wdApp As Object
Dim wdDoc As Object


'Ouvre Word
'Set wdApp = New Word.Application
Set wdApp = CreateObject("Word.Application")


'Ouvre un document en se basant sur le template doc1.dot
Set wdDoc = wdApp.Documents.Add("c:\Doc1.dot")
With wdApp.Selection
    'Se positionne sur le signet Nom
    .GoTo -1, "Nom"
    'Ecrit le nom du salarie
    .TypeText a_NomSalarie
    'Idem avec la tache
    .GoTo -1, "Tache"
    .TypeText a_Tache
End With
'Enregistre (sans ajouter &#224; la liste des derniers fichiers ouverts
wdDoc.SaveAs "c:	est.doc", , , , False
'Ferme le doc
wdDoc.Close
'Quitte word
wdApp.Quit
'D&#233;truit les objets
Set wdApp = Nothing
Set wdDoc = Nothing
End Sub


Public Sub test2()
test "toto", "qdsf"
End Sub

elpaulo · Answer

merci, je crois qu'avec tout ca je devrais y arriver!