Créer des fichiers textes en boucle (URGENT)

Signaler
Messages postés
22
Date d'inscription
lundi 29 juillet 2002
Statut
Membre
Dernière intervention
20 mai 2003
-
Messages postés
1
Date d'inscription
mercredi 2 février 2005
Statut
Membre
Dernière intervention
3 avril 2005
-
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

2 réponses

Messages postés
59
Date d'inscription
vendredi 26 juillet 2002
Statut
Membre
Dernière intervention
29 janvier 2004

'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
0
Messages postés
1
Date d'inscription
mercredi 2 février 2005
Statut
Membre
Dernière intervention
3 avril 2005

AL
0