CRÉATION D'UN DOCUMENT WORD ET REMPLISSAGE AUTOMATIQUE DU DOCUMENT CRÉÉ
sullitaz
Messages postés2Date d'inscriptionjeudi 10 mars 2005StatutMembreDernière intervention10 mars 2005
-
10 mars 2005 à 18:06
SpideyCodeWarrior
Messages postés9Date d'inscriptiondimanche 13 février 2005StatutMembreDerniè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.
SpideyCodeWarrior
Messages postés9Date d'inscriptiondimanche 13 février 2005StatutMembreDernière intervention 5 janvier 2024 11 déc. 2011 à 11:10
Ca fait bien longtemps déjà que j'ai posté ce petit programme, en 2005. Il faudrait quelqu'un qui le mette à jour en .NET surtout que la base de registre et les clés ont changées depuis Windows 7.
Heureux en tout cas d'avoir aidé pas mal de gens avec cette source.
A+
zeunz
Messages postés200Date d'inscriptionjeudi 26 février 2004StatutMembreDernière intervention30 juin 2008 8 déc. 2011 à 10:55
Bonne source utile ;-)
cs_herve06
Messages postés17Date d'inscriptionjeudi 17 novembre 2011StatutMembreDernière intervention28 novembre 2011 20 nov. 2011 à 10:40
Bonjour,
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.
chidalife
Messages postés1Date d'inscriptionmardi 8 avril 2008StatutMembreDernière intervention 9 avril 2008 9 avril 2008 à 13:33
bonjour
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.ActiveDocument.SaveAs("C:\Documents and Settings\Administrateur\Bureau" & txtNRef.Text & ".doc")
End Sub
End Class
merci d'avance
cs_abdou19
Messages postés1Date d'inscriptionmercredi 23 juillet 2003StatutMembreDernière intervention28 novembre 2007 28 nov. 2007 à 09:38
il faut modifier la fonction "IsAppPresent" pour qu'elle accepte tous les nouvelles versions (2003, 2007)
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
mister_bobby21
Messages postés4Date d'inscriptionlundi 18 avril 2005StatutMembreDernière intervention 6 février 2009 6 août 2007 à 15:22
Vraiment pas mal ceci dit j'avait une erreur, il ne detectait pas de word après la lecture de ton code, j'ai comparé avec ma base des registres (j'ai word 2003) et la valeur de la clé est word.application.11 et non 10 ^^ (enfin peut être pour le XP) j'ai donc ajouté la verif en plus et ca marche super ;)
merci en tt cas :P
(j'ai mis 8/10, j'aurais mis 9 si j'aurais pas du modif xD)
basamir
Messages postés335Date d'inscriptionvendredi 21 octobre 2005StatutMembreDernière intervention 8 mars 2008 29 mai 2007 à 17:49
le message suivant est affiché sachant que j'ai word installé sur mon PC
zeunz
Messages postés200Date d'inscriptionjeudi 26 février 2004StatutMembreDernière intervention30 juin 2008 29 mai 2007 à 11:03
slt. Cet exemple est parfait. c'est sympa. je note: 10/10.
basamir
Messages postés335Date d'inscriptionvendredi 21 octobre 2005StatutMembreDernière intervention 8 mars 2008 3 avril 2007 à 12:21
Merci beaucoup Renefield
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 3 avril 2007 à 09:07
Dans Microsoft Word ?
Insertion > Signet
basamir
Messages postés335Date d'inscriptionvendredi 21 octobre 2005StatutMembreDernière intervention 8 mars 2008 3 avril 2007 à 03:12
Comment changer les signets sur la page word?
Merci
pietbrouwers
Messages postés11Date d'inscriptionsamedi 10 avril 2004StatutMembreDernière intervention13 octobre 2006 18 janv. 2007 à 21:09
Bonsoir,
J'ai essayé avec word2003 mais ca ne fonctionne pas!
Que faut-il faire pour que ca fonctionne ?
Merci
merkhaled
Messages postés26Date d'inscriptionmercredi 8 décembre 2004StatutMembreDernière intervention 8 octobre 2007 21 nov. 2006 à 12:11
bonjour,
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
cs_hhafid
Messages postés30Date d'inscriptionvendredi 24 janvier 2003StatutMembreDernière intervention 7 novembre 2006 10 nov. 2006 à 00:17
Salam Alikom
ca marche très bien
merci de votre petit Code
sullitaz
Messages postés2Date d'inscriptionjeudi 10 mars 2005StatutMembreDernière intervention10 mars 2005 10 mars 2005 à 18:06
Salut,
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.
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.