georgeskaplan
Messages postés5Date d'inscriptionsamedi 18 juin 2005StatutMembreDernière intervention23 août 2006
-
13 août 2006 à 17:49
georgeskaplan
Messages postés5Date d'inscriptionsamedi 18 juin 2005StatutMembreDernière intervention23 août 2006
-
14 août 2006 à 11:27
bonjour
je viens de creer une base de donnees sous access 2000 c'est une gestion de contacts
sur mon formulaire j'ai installé un bouton qui normalement devrait exporter certaines données du formulaire sous word ( un normal dot) qui est une lettre avec des champs pre formatées et reperés par des signets
mais.....
le code que j'ai recopié d'un bouquin acheté ne marche pas
cs_DARKSIDIOUS
Messages postés15814Date d'inscriptionjeudi 8 août 2002StatutMembreDernière intervention 4 mars 2013130 13 août 2006 à 18:07
Oui, tu n'as qu'à envoyer un email à l'auteur du livre et lui dire ce qui ne marche pas... car sans nous donner plus de détails (surtout le bout de code "recopié d'un bouquin acheté"), comment veux-tu qu'on puisse t'aider ?
A moins que notre champion toute catégorie de boule de cristal passe par là... hein jack ;)
georgeskaplan
Messages postés5Date d'inscriptionsamedi 18 juin 2005StatutMembreDernière intervention23 août 2006 14 août 2006 à 11:27
BONJOUR
désolé tu as complètement raison voici le fameux code
encore merci de te pencher sur mon probleme
amicalement
GK
Private Sub Commande85_Click()
'Fichier WORD d'accusé de réception
Dim dbBase As Database
Dim rsEnreg As Recordset
Dim Critere As String, Zone
Dim Cible As String, Fin As Boolean, Rc As Integer
Dim ofn As OPENFILENAME
Dim a, myRange, Ligne, Msge, NomFic As String, Lg
Dim appWord As Word.Application
Dim Localisation As String
If rsEnreg.NoMatch Then 'Auncun enreg. trouvé
Rc = MsgBox("Aucun enregistrement trouvé.", 0, "Application")
Else 'Cherche tous les enreg. concordant
ActiveDocument.FormFields("DateJour").Result = Date 'Champ "Date du jour"
ActiveDocument.FormFields("DateEnvoi").Result = _
InputBox("Indiquer une date d'envoi (jj/mm/aa)", "Application", Date) 'Pour exemple (défault = date du jour)
Do Until rsEnreg.NoMatch 'Jusqu'à leur fin
'Remplacement du texte par défaut d'un champ du formulaire
ActiveDocument.FormFields("Nom").Result = rsEnreg![No UAC]
ActiveDocument.FormFields("Nombre").Result = rsEnreg![Nombre postes]
'Set Zone = ActiveDocument.Range(Start:=0, End:=0)
'With Zone
'.InsertBefore "Rapport, essai d'insertion de texte"
'.Font.Name = "Arial"
'.Font.Size = 24
'.InsertParagrahAfter
'End With
rsEnreg.FindNext Critere 'Cherche enreg. concordant suivant
Loop
End If