CRÉATION D'UN DOCUMENT WORD ET REMPLISSAGE AUTOMATIQUE DU DOCUMENT CRÉÉ
sullitaz
Messages postés
2
Date d'inscription
jeudi 10 mars 2005
Statut
Membre
Dernière intervention
10 mars 2005
-
10 mars 2005 à 18:06
SpideyCodeWarrior Messages postés 9 Date d'inscription dimanche 13 février 2005 Statut Membre Dernière intervention 5 janvier 2024 - 11 déc. 2011 à 11:10
SpideyCodeWarrior Messages postés 9 Date d'inscription dimanche 13 février 2005 Statut Membre Dernière intervention 5 janvier 2024 - 11 déc. 2011 à 11:10
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/29491-creation-d-un-document-word-et-remplissage-automatique-du-document-cree
https://codes-sources.commentcamarche.net/source/29491-creation-d-un-document-word-et-remplissage-automatique-du-document-cree
11 déc. 2011 à 11:10
Heureux en tout cas d'avoir aidé pas mal de gens avec cette source.
A+
8 déc. 2011 à 10:55
20 nov. 2011 à 10:40
Votre code me paraît convenir à mon projet, mais je travaille sur MacOS X (pour le codage) et l'exécution a des chances de se faire sur WindowsXP. Comment modifier le code pour qu'il tourne sur les deux plates-formes indifféremment?
Merci d'avance.
9 avril 2008 à 13:33
S’il vous plaît j’ai fait un petit programme (gestion des CV) avec VB.Net 2003 et je veux stocker le nom et le prénom dans un document Word qui a comme nom (« N° de CV »)
J’ais fais plusieurs recherche et j’ai pas arrivée à aucune résultat
S’il vous plaît est ce que vous pouvez m’aidez
Voila le code que j’ai utilisé
Le nom du document model est stagiaire
Imports System.Windows.Forms
Public Class effacer
Inherits System.Windows.Forms.Form
Dim MonWd, MonDocwd As Word.Application
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MonWd = CreateObject("Word.Application")
MonDocwd = MonWd.Documents.Add("C:\Documents and Settings \Administrateur\ Bureau\rachida.dot", False)
MonWd.ActiveDocument.Bookmarks("civilité").Select()
MonWd.Selection.InsertAfter(Me.cmbCivilité.Text
MonWd.ActiveDocument.Bookmarks("Nom_prénom").Select()
MonWd.Selection.InsertAfter(Me.txtnom.Text & " " & Me.txtpre.Text)
MonWd.ActiveDocument.SaveAs("C:\Documents and Settings\Administrateur\Bureau" & txtNRef.Text & ".doc")
End Sub
End Class
merci d'avance
28 nov. 2007 à 09:38
Private Function IsAppPresent(strSubKey$, strValueName$) As Boolean
Dim mstrKey$
mstrKey = GetRegString(HKEY_CLASSES_ROOT, strSubKey, strValueName)
If Right(mstrKey, 1) < 8 Then
'XP ou plus !!!
If Left(Right(mstrKey, 2), 1) "." Then mstrKey ""
End If
IsAppPresent = CBool(Len(mstrKey))
End Function
6 août 2007 à 15:22
merci en tt cas :P
(j'ai mis 8/10, j'aurais mis 9 si j'aurais pas du modif xD)
29 mai 2007 à 17:49
29 mai 2007 à 11:03
3 avril 2007 à 12:21
3 avril 2007 à 09:07
Insertion > Signet
3 avril 2007 à 03:12
Merci
18 janv. 2007 à 21:09
J'ai essayé avec word2003 mais ca ne fonctionne pas!
Que faut-il faire pour que ca fonctionne ?
Merci
21 nov. 2006 à 12:11
je voudrais savoir si on pouvait intégrer ton script dans une page php, créer un document word, a partir dun codument modele, en ajoutant des variables php.
est ce possible? merci de maider
10 nov. 2006 à 00:17
ca marche très bien
merci de votre petit Code
10 mars 2005 à 18:06
je viens de télécharger ton zip, et je voudrais savoir comment exécuter le programme ?
En fait, je voudrais exécuter un formulaire, remplir 2 champs (Nom, prénom) et aller modifier 1 fichier word servant de modèle.
Merci de ta réponse.