cs_babadou
Messages postés15Date d'inscriptionmardi 8 avril 2008StatutMembreDernière intervention21 mai 2010
-
8 mai 2010 à 21:48
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 2015
-
10 mai 2010 à 09:35
salut,
ce code ouvre un word et sauvegarde avec un nom que je donne mais aussi je veut que se document word contient le nom de personne que je saisir dans un textbox
qu est ce que je peut ajout comme code ????,
Private Sub CreateNewDocWord(sDoc As String)
Dim objWord As Word.Application
Dim docWord As Word.Document
Dim Fichier As String
Dim OutPutStr As String
Set objWord = CreateObject("Word.Application") '-- ouvrir une session Word
Set docWord = objWord.Documents.Add '-- Ajouter un nouveau document à la collection
objWord.Visible = True '-- montrer l'application Word
docWord.SaveAs FileName:=sDoc
Set docWord = objWord.Documents.Open(sDoc)
Set docWord = Nothing '-- détruire l'objet Document
Set objWord = Nothing '-- détruire l'objet Word
End Sub
Private Sub Command1_Click()
Dim a As String
a = Text1.Text
CreateNewDocWord "c:\Image" + a + ".doc"
End Sub