créer des fichiers textes en boucle (URGENT)

Question

Bonjour,
J'ai 4champs texte :
txt1.Text   txt2.Text   txt3.Text    txt4.Text
et un boutton dans un form1 par exemple.
...
je veux qu'à chaque fois que je clique sur le boutton,2fichiers similaires (*.doc) -nommés la chaine recuperé dans txt1.Text- soient crées 
et stockés dans 2 repertoires differents
 (exemple : C:\azer\ & C:\qwer ) 
=> on doit avoir du texte du genre :
Nom : (txt2.Text)
Prénom : (txt3.Text)
Adresse : (txt4.Text)

.... une fois créés ces 2 fichiers, je pourrais avoir le droit de créer d'autres fichiers après avoir vider les champs text..
Merci d'avance

cs_imer · Answer

'Soit Command1, le nom du bouton
'Soit Text1, Text2, Text3, Text4 les noms des TextBox
'Cocher la référence "Microsoft Word X.X Object Library" dans le menu Outils/Références...

Private Sub Command1_Click()

Dim WrdApp As Word.Application

'Instancier l'appli Word
Set WrdApp = New Word.Application

'Ajouter un nouveau document
WrdApp.Documents.Add

'Ecrire dans ce document
WrdApp.Documents(1).Select
WrdApp.Selection.TypeText "Nom : " & Text2.Text & Chr(13)
WrdApp.Selection.TypeText "Prénom : " & Text3.Text & Chr(13)
WrdApp.Selection.TypeText "Adresse : " & Text4.Text & Chr(13)

'Sauvegarder ce document dans les enroits souhaités
WrdApp.Documents(1).SaveAs "C:\azer" & Text1.Text & ".doc"
WrdApp.Documents(1).SaveAs "C:\qwer" & Text1.Text & ".doc"

'Fermer le document et l'appli Word
WrdApp.Documents(1).Close
WrdApp.Quit

End Sub

zougoul · Answer

AL

Créer des fichiers textes en boucle (URGENT)

2 réponses

Discussions similaires