OVH Cloud OVH Cloud

Gestion des champs vides qui stop ma procédure ..

3 réponses
Avatar
Sylvie182
J'ai une procédure qui rempli autom un doc Word à partir de mon formulaire
qui marche bien mais elle s'arrète à cause de champs qui peuvent être vide ;
mon doc Word est donc à moitié rempli ..! Sur le forum g noté la fonction Nz
qui peut répondre à mon pb mais je ne sais pas comment l'intégrer ds mon code
..
Quelqu'un peut-il me renseigner davantage ? Merci de votre aide.

Sylvie

3 réponses

Avatar
Sylvie182
Voici une partie du code concerné...

With W_App
.Visible = True
.Documents.Open ("c:/DEVIS.doc")
.ActiveDocument.Bookmarks("Sté").Select
.Selection.Text = Me.NomSociété
.ActiveDocument.Bookmarks("Titre").Select
.Selection.Text = Me.Titre
.ActiveDocument.Bookmarks("Nom").Select
.Selection.Text = Me.Nom
.ActiveDocument.Bookmarks("Prénom").Select
.Selection.Text = Me.Prénom
.ActiveDocument.Bookmarks("TelDirecte").Select
.Selection.Text = Me.TelDirecte
.ActiveDocument.Bookmarks("Télécopie").Select
.Selection.Text = Me.Télécopie_Sté_


J'ai une procédure qui rempli autom un doc Word à partir de mon formulaire
qui marche bien mais elle s'arrète à cause de champs qui peuvent être vide ;
mon doc Word est donc à moitié rempli ..! Sur le forum g noté la fonction Nz
qui peut répondre à mon pb mais je ne sais pas comment l'intégrer ds mon code
..
Quelqu'un peut-il me renseigner davantage ? Merci de votre aide.

Sylvie


Avatar
Eric
Bonjour Sylvie,

peut-être comme suit :
.Selection.Text = nz(Me.Prénom," ")
.Selection.Text = nz(Me.TelDirecte," ") ?

A adapter pour les autres champs
--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Voici une partie du code concerné...

With W_App
.Visible = True
.Documents.Open ("c:/DEVIS.doc")
.ActiveDocument.Bookmarks("Sté").Select
.Selection.Text = Me.NomSociété
.ActiveDocument.Bookmarks("Titre").Select
.Selection.Text = Me.Titre
.ActiveDocument.Bookmarks("Nom").Select
.Selection.Text = Me.Nom
.ActiveDocument.Bookmarks("Prénom").Select
.Selection.Text = Me.Prénom
.ActiveDocument.Bookmarks("TelDirecte").Select
.Selection.Text = Me.TelDirecte
.ActiveDocument.Bookmarks("Télécopie").Select
.Selection.Text = Me.Télécopie_Sté_



J'ai une procédure qui rempli autom un doc Word à partir de mon formulaire
qui marche bien mais elle s'arrète à cause de champs qui peuvent être vide ;
mon doc Word est donc à moitié rempli ..! Sur le forum g noté la fonction Nz
qui peut répondre à mon pb mais je ne sais pas comment l'intégrer ds mon code
..
Quelqu'un peut-il me renseigner davantage ? Merci de votre aide.

Sylvie




Avatar
Sylvie182
ça marche impec! Merci
Sylvie


Bonjour Sylvie,

peut-être comme suit :
..Selection.Text = nz(Me.Prénom," ")
..Selection.Text = nz(Me.TelDirecte," ") ?

A adapter pour les autres champs
--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Voici une partie du code concerné...

With W_App
.Visible = True
.Documents.Open ("c:/DEVIS.doc")
.ActiveDocument.Bookmarks("Sté").Select
.Selection.Text = Me.NomSociété
.ActiveDocument.Bookmarks("Titre").Select
.Selection.Text = Me.Titre
.ActiveDocument.Bookmarks("Nom").Select
.Selection.Text = Me.Nom
.ActiveDocument.Bookmarks("Prénom").Select
.Selection.Text = Me.Prénom
.ActiveDocument.Bookmarks("TelDirecte").Select
.Selection.Text = Me.TelDirecte
.ActiveDocument.Bookmarks("Télécopie").Select
.Selection.Text = Me.Télécopie_Sté_



J'ai une procédure qui rempli autom un doc Word à partir de mon formulaire
qui marche bien mais elle s'arrète à cause de champs qui peuvent être vide ;
mon doc Word est donc à moitié rempli ..! Sur le forum g noté la fonction Nz
qui peut répondre à mon pb mais je ne sais pas comment l'intégrer ds mon code
..
Quelqu'un peut-il me renseigner davantage ? Merci de votre aide.

Sylvie