ouverture modeles Word en fonction du contenu d'un des champs
2 réponses
alexreic
Bonjour,
Dans le cadre de la constitution d'une base=20
Client/Prospect, je cherche =E0 ouvrir un mod=E8le pr=E9cis sous=20
Word en fonction du motif s=E9lectionn=E9 dans un menu=20
d=E9roulant.
Je m'explique,
pour chaque client ou prospect il y a un motif diff=E9rent=20
de contact.
En fonction du contact choisi (qui se trouve dans un menu=20
d=E9roulant dans un de mes formulaires),le mod=E8le sous Word=20
s'ouvre sous Word. De l=E0 le fichier est mis =E0 jour =E0=20
l'aide des signets qui ont =E9t=E9 mis en place.
Je n'arrive pas =E0 cr=E9er un module qui lit le contenu de=20
mon champs et qui en fonction du r=E9sultat ouvre le bon=20
fichier sous Word.
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
Damien Mermoz
Bonjour, une piste : dim objWord As Word.Application dim doc As Word.Document Dim strChemin As String
'tu peux aussi le faire avec un select case bien sûr if me.macombo.value = 1 then strchemin = "c:modelewordmonmodel1.dot" elseif me.macombo.value = 2 then strchemin = ...etc ... end if
On Error Resume Next Set objWord = GetObject(, "Word.application") If Err = 429 Then Set objWord = New Word.Application End If On Error GoTo 0
Set doc = objWord.Documents.Add(strChemin)
...et en avant la musique.
Ca t'aide ?
A + Damien
"alexreic" a écrit dans le message news: 0bb401c3b8d7$2a6271c0$ Bonjour,
Dans le cadre de la constitution d'une base Client/Prospect, je cherche à ouvrir un modèle précis sous Word en fonction du motif sélectionné dans un menu déroulant.
Je m'explique, pour chaque client ou prospect il y a un motif différent de contact. En fonction du contact choisi (qui se trouve dans un menu déroulant dans un de mes formulaires),le modèle sous Word s'ouvre sous Word. De là le fichier est mis à jour à l'aide des signets qui ont été mis en place.
Je n'arrive pas à créer un module qui lit le contenu de mon champs et qui en fonction du résultat ouvre le bon fichier sous Word.
Merci pour votre aide
Bonjour,
une piste :
dim objWord As Word.Application
dim doc As Word.Document
Dim strChemin As String
'tu peux aussi le faire avec un select case bien sûr
if me.macombo.value = 1 then
strchemin = "c:modelewordmonmodel1.dot"
elseif me.macombo.value = 2 then
strchemin = ...etc
...
end if
On Error Resume Next
Set objWord = GetObject(, "Word.application")
If Err = 429 Then
Set objWord = New Word.Application
End If
On Error GoTo 0
Set doc = objWord.Documents.Add(strChemin)
...et en avant la musique.
Ca t'aide ?
A +
Damien
"alexreic" <anonymous@discussions.microsoft.com> a écrit dans le message
news: 0bb401c3b8d7$2a6271c0$a101280a@phx.gbl...
Bonjour,
Dans le cadre de la constitution d'une base
Client/Prospect, je cherche à ouvrir un modèle précis sous
Word en fonction du motif sélectionné dans un menu
déroulant.
Je m'explique,
pour chaque client ou prospect il y a un motif différent
de contact.
En fonction du contact choisi (qui se trouve dans un menu
déroulant dans un de mes formulaires),le modèle sous Word
s'ouvre sous Word. De là le fichier est mis à jour à
l'aide des signets qui ont été mis en place.
Je n'arrive pas à créer un module qui lit le contenu de
mon champs et qui en fonction du résultat ouvre le bon
fichier sous Word.
Bonjour, une piste : dim objWord As Word.Application dim doc As Word.Document Dim strChemin As String
'tu peux aussi le faire avec un select case bien sûr if me.macombo.value = 1 then strchemin = "c:modelewordmonmodel1.dot" elseif me.macombo.value = 2 then strchemin = ...etc ... end if
On Error Resume Next Set objWord = GetObject(, "Word.application") If Err = 429 Then Set objWord = New Word.Application End If On Error GoTo 0
Set doc = objWord.Documents.Add(strChemin)
...et en avant la musique.
Ca t'aide ?
A + Damien
"alexreic" a écrit dans le message news: 0bb401c3b8d7$2a6271c0$ Bonjour,
Dans le cadre de la constitution d'une base Client/Prospect, je cherche à ouvrir un modèle précis sous Word en fonction du motif sélectionné dans un menu déroulant.
Je m'explique, pour chaque client ou prospect il y a un motif différent de contact. En fonction du contact choisi (qui se trouve dans un menu déroulant dans un de mes formulaires),le modèle sous Word s'ouvre sous Word. De là le fichier est mis à jour à l'aide des signets qui ont été mis en place.
Je n'arrive pas à créer un module qui lit le contenu de mon champs et qui en fonction du résultat ouvre le bon fichier sous Word.
Merci pour votre aide
alexreic
Merci Damien,
Je teste ta méthode en espérant que cela va marcher
Alexandre
Merci Damien,
Je teste ta méthode en espérant que cela va marcher
