J'ai demandé il y a quelques jours comment écrire dans word à partir de
word. Il m a été indiqué un site où j'ai bien trouvé du code permettant
cette manip. J'ai donc utilisé ce code pour écrire dans un fichier word les
données issues d'un formulaire et d'un sous-formulaire. Mon code donne ceci
:
Sub FormInsert()
On Error Resume Next
Dim W_App As New Word.Application
Dim VALEUR_NUMERO
VALEUR_NUMERO = [Formulaires]![SOUS-FORMULAIRE ANNUAIRE LISTE NUMERO A
IDENTIFIER]![CORRESPONDANT].Value
With W_App
.Visible = False
.Documents.Open "C:\TPH \DEMANDE OPERATEUR\LETTRE TYPE OPERATEUR
.dot"
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
lou
SALUT un exemple de ce que j'emploie par contre j'ai dejà eu le meme probleme que toi et j'ai simplement changé le nom du champ dans mon form et ça a marché bizzare non ????
TEST comme ceci pour voir
'signets adresse appWord.Selection.GoTo wdGoToBookmark, Name:="adresse" If IsNull(adresse) Then appWord.Selection.TypeText " " Else appWord.Selection.TypeText [adresse] End If
"Jacques" a écrit dans le message de news:
Bon soir à tous
J'ai demandé il y a quelques jours comment écrire dans word à partir de word. Il m a été indiqué un site où j'ai bien trouvé du code permettant cette manip. J'ai donc utilisé ce code pour écrire dans un fichier word les
données issues d'un formulaire et d'un sous-formulaire. Mon code donne ceci
:
Sub FormInsert() On Error Resume Next Dim W_App As New Word.Application
Dim VALEUR_NUMERO
VALEUR_NUMERO = [Formulaires]![SOUS-FORMULAIRE ANNUAIRE LISTE NUMERO A IDENTIFIER]![CORRESPONDANT].Value
With W_App .Visible = False .Documents.Open "C:TPH DEMANDE OPERATEURLETTRE TYPE OPERATEUR .dot"
.ActiveDocument.SaveAs "C:TPH DEMANDE OPERATEURDoc2.Doc" .Quit End With Set W_App = Nothing
MsgBox "Le fichier WORD est crée !"
End Sub
Tout se passe bien sauf que les "Bookmarks("FAXOPERATEUR")." - "Bookmarks("FAXOPERATEUR")." et "Bookmarks("Numero")" ne se renseignent pas.
Je ne comprends pas pourquoi ?
Si quelqu'un peu m'expliquer cela serait sympa. Merci d'avance.
SALUT
un exemple de ce que j'emploie
par contre j'ai dejà eu le meme probleme que toi et j'ai simplement changé
le nom du champ dans mon form et ça a marché bizzare non ????
TEST comme ceci pour voir
'signets adresse
appWord.Selection.GoTo wdGoToBookmark, Name:="adresse"
If IsNull(adresse) Then
appWord.Selection.TypeText " "
Else
appWord.Selection.TypeText [adresse]
End If
"Jacques" <jacquesroquin@free.fr> a écrit dans le message de news:
uYkcylG5EHA.2196@TK2MSFTNGP14.phx.gbl...
Bon soir à tous
J'ai demandé il y a quelques jours comment écrire dans word à partir de
word. Il m a été indiqué un site où j'ai bien trouvé du code permettant
cette manip. J'ai donc utilisé ce code pour écrire dans un fichier word
les
données issues d'un formulaire et d'un sous-formulaire. Mon code donne
ceci
:
Sub FormInsert()
On Error Resume Next
Dim W_App As New Word.Application
Dim VALEUR_NUMERO
VALEUR_NUMERO = [Formulaires]![SOUS-FORMULAIRE ANNUAIRE LISTE NUMERO A
IDENTIFIER]![CORRESPONDANT].Value
With W_App
.Visible = False
.Documents.Open "C:TPH DEMANDE OPERATEURLETTRE TYPE OPERATEUR
.dot"
SALUT un exemple de ce que j'emploie par contre j'ai dejà eu le meme probleme que toi et j'ai simplement changé le nom du champ dans mon form et ça a marché bizzare non ????
TEST comme ceci pour voir
'signets adresse appWord.Selection.GoTo wdGoToBookmark, Name:="adresse" If IsNull(adresse) Then appWord.Selection.TypeText " " Else appWord.Selection.TypeText [adresse] End If
"Jacques" a écrit dans le message de news:
Bon soir à tous
J'ai demandé il y a quelques jours comment écrire dans word à partir de word. Il m a été indiqué un site où j'ai bien trouvé du code permettant cette manip. J'ai donc utilisé ce code pour écrire dans un fichier word les
données issues d'un formulaire et d'un sous-formulaire. Mon code donne ceci
:
Sub FormInsert() On Error Resume Next Dim W_App As New Word.Application
Dim VALEUR_NUMERO
VALEUR_NUMERO = [Formulaires]![SOUS-FORMULAIRE ANNUAIRE LISTE NUMERO A IDENTIFIER]![CORRESPONDANT].Value
With W_App .Visible = False .Documents.Open "C:TPH DEMANDE OPERATEURLETTRE TYPE OPERATEUR .dot"