Bonsoir
j'utilise la fonction suivante afin de remplir automatiquement un doc word
si un bookmark existe dans le doc de base
On Error Resume Next
Set objWord = CreateObject("Word.application")
If Err = 429 Then
Set objWord = New Word.Application
End If
On Error GoTo 0
With objWord
.Visible = True
Set doc = objWord.Documents.Open(chemin_base & "Docs\" &
document_libelle & ".doc")
objWord.Activate
With doc
If ActiveDocument.Bookmarks.Exists("IW_Agence_Nom") = True Then
.Bookmarks("IW_Agence_Nom").Range.Text = Var_IW_Agence_Nom
...
mais lors de l'exécution du code, le code s'arrête au niveau
.bookmark("monchamp") avec une erreur de code 4248 : Aucun document n'est
ouvert.
je ne comprends pas puisque le doc est bien créé, il est ouvert et activé.
Si qqun peut m'aider...
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
Monkeytoo
désolé de vous avoir dérangé mais après avoir coupé et relancé access cela fonctionne merci quand même
"Monkeytoo" a écrit dans le message de news: #
Bonsoir j'utilise la fonction suivante afin de remplir automatiquement un doc word si un bookmark existe dans le doc de base
On Error Resume Next Set objWord = CreateObject("Word.application") If Err = 429 Then Set objWord = New Word.Application End If On Error GoTo 0 With objWord .Visible = True
Set doc = .Documents.Add("C:ImmowinDocs" & document_libelle &
Set doc = objWord.Documents.Open(chemin_base & "Docs" & document_libelle & ".doc") objWord.Activate With doc If ActiveDocument.Bookmarks.Exists("IW_Agence_Nom") = True Then
.Bookmarks("IW_Agence_Nom").Range.Text = Var_IW_Agence_Nom ... mais lors de l'exécution du code, le code s'arrête au niveau .bookmark("monchamp") avec une erreur de code 4248 : Aucun document n'est ouvert.
je ne comprends pas puisque le doc est bien créé, il est ouvert et activé. Si qqun peut m'aider...
désolé de vous avoir dérangé
mais après avoir coupé et relancé access cela fonctionne
merci quand même
"Monkeytoo" <coiffurevogue@skynet.be> a écrit dans le message de news:
#iG6jfnHEHA.164@tk2msftngp13.phx.gbl...
Bonsoir
j'utilise la fonction suivante afin de remplir automatiquement un doc word
si un bookmark existe dans le doc de base
On Error Resume Next
Set objWord = CreateObject("Word.application")
If Err = 429 Then
Set objWord = New Word.Application
End If
On Error GoTo 0
With objWord
.Visible = True
Set doc = .Documents.Add("C:ImmowinDocs" & document_libelle
&
Set doc = objWord.Documents.Open(chemin_base & "Docs" &
document_libelle & ".doc")
objWord.Activate
With doc
If ActiveDocument.Bookmarks.Exists("IW_Agence_Nom") = True
Then
.Bookmarks("IW_Agence_Nom").Range.Text = Var_IW_Agence_Nom
...
mais lors de l'exécution du code, le code s'arrête au niveau
.bookmark("monchamp") avec une erreur de code 4248 : Aucun document n'est
ouvert.
je ne comprends pas puisque le doc est bien créé, il est ouvert et activé.
Si qqun peut m'aider...
désolé de vous avoir dérangé mais après avoir coupé et relancé access cela fonctionne merci quand même
"Monkeytoo" a écrit dans le message de news: #
Bonsoir j'utilise la fonction suivante afin de remplir automatiquement un doc word si un bookmark existe dans le doc de base
On Error Resume Next Set objWord = CreateObject("Word.application") If Err = 429 Then Set objWord = New Word.Application End If On Error GoTo 0 With objWord .Visible = True
Set doc = .Documents.Add("C:ImmowinDocs" & document_libelle &
Set doc = objWord.Documents.Open(chemin_base & "Docs" & document_libelle & ".doc") objWord.Activate With doc If ActiveDocument.Bookmarks.Exists("IW_Agence_Nom") = True Then
.Bookmarks("IW_Agence_Nom").Range.Text = Var_IW_Agence_Nom ... mais lors de l'exécution du code, le code s'arrête au niveau .bookmark("monchamp") avec une erreur de code 4248 : Aucun document n'est ouvert.
je ne comprends pas puisque le doc est bien créé, il est ouvert et activé. Si qqun peut m'aider...