Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access creation doc word dans access

creation doc word dans access

6 réponses
Avatar
elisabeth
salut
=E7a va?
est-ce-que quelqu'un peut m'aider?
quand j'ai ex=E9cut=E9 le code suivant il a march=E9 une fois,=20
puis en le r=E9ex=E9cutant il me donne une erreur=20
c'est l'erreur d'=E9x=E9cution 429
et le message est : "un composant ActiveX ne peut cr=E9er=20
d'objet"
et =E7a ne marche plus du tout
est-ce-quequelq'un sait pourquoi
merci de votre aide
voici le code =E9x=E9cut=E9:
Option Compare Database
Function toto1()
Dim doc1 As Word.Document
Set doc1 =3D Documents.Add
Documents.Add.SaveAs FileName:=3D"c:\temp\fastsave2.doc"
Set doc1 =3D Documents("c:\temp\fastsave2.doc")
With doc1
.Envelope.Insert Address:=3D"The MOD Team" _
& vbCrLf & "One Microsoft Way" & vbCrLf _
& "Redmond, WA 98052", ReturnAddress:=3D _
"One Happy Customer" & vbCrLf & _
"77 Pine Bough Lane" & vbCrLf & _
"Any Town, USA 12345"
End With
doc1.save
doc1.Close
toto1 =3D ""

End Function
Signaler un problème avec ce contenu

6 réponses

Supprimer
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
Avatar
Gafish
Bonjour,

Il plante sur quelle ligne ?
Sinon ca doit etre un problème de référence manquante. Surement la référence
à Word. Dans un module, fais Outils...Référence et regarde si la référence à
Word est coché.

Arnaud

"elisabeth" a écrit dans le message de
news:cf0601c48a9c$002b8580$
salut
ça va?
est-ce-que quelqu'un peut m'aider?
quand j'ai exécuté le code suivant il a marché une fois,
puis en le réexécutant il me donne une erreur
c'est l'erreur d'éxécution 429
et le message est : "un composant ActiveX ne peut créer
d'objet"
et ça ne marche plus du tout
est-ce-quequelq'un sait pourquoi
merci de votre aide
voici le code éxécuté:
Option Compare Database
Function toto1()
Dim doc1 As Word.Document
Set doc1 = Documents.Add
Documents.Add.SaveAs FileName:="c:tempfastsave2.doc"
Set doc1 = Documents("c:tempfastsave2.doc")
With doc1
.Envelope.Insert Address:="The MOD Team" _
& vbCrLf & "One Microsoft Way" & vbCrLf _
& "Redmond, WA 98052", ReturnAddress:= _
"One Happy Customer" & vbCrLf & _
"77 Pine Bough Lane" & vbCrLf & _
"Any Town, USA 12345"
End With
doc1.save
doc1.Close
toto1 = ""

End Function
Avatar
elisabeth
merci arnaud
mais c'est pas ça
la reference word est bien coché
c'est pas ça l'erreur.
ça doit etre autre choses
-----Message d'origine-----
Bonjour,

Il plante sur quelle ligne ?
Sinon ca doit etre un problème de référence manquante.
Surement la référence

à Word. Dans un module, fais Outils...Référence et
regarde si la référence à

Word est coché.

Arnaud

"elisabeth" a écrit
dans le message de

news:cf0601c48a9c$002b8580$
salut
ça va?
est-ce-que quelqu'un peut m'aider?
quand j'ai exécuté le code suivant il a marché une fois,
puis en le réexécutant il me donne une erreur
c'est l'erreur d'éxécution 429
et le message est : "un composant ActiveX ne peut créer
d'objet"
et ça ne marche plus du tout
est-ce-quequelq'un sait pourquoi
merci de votre aide
voici le code éxécuté:
Option Compare Database
Function toto1()
Dim doc1 As Word.Document
Set doc1 = Documents.Add
Documents.Add.SaveAs FileName:="c:tempfastsave2.doc"
Set doc1 = Documents("c:tempfastsave2.doc")
With doc1
.Envelope.Insert Address:="The MOD Team" _
& vbCrLf & "One Microsoft Way" & vbCrLf _
& "Redmond, WA 98052", ReturnAddress:= _
"One Happy Customer" & vbCrLf & _
"77 Pine Bough Lane" & vbCrLf & _
"Any Town, USA 12345"
End With
doc1.save
doc1.Close
toto1 = ""

End Function


.



Avatar
elisabeth
sinon il plante sur la 4è ligne
Set doc1 = Documents.Add
merci

-----Message d'origine-----
Bonjour,

Il plante sur quelle ligne ?
Sinon ca doit etre un problème de référence manquante.
Surement la référence

à Word. Dans un module, fais Outils...Référence et
regarde si la référence à

Word est coché.

Arnaud

"elisabeth" a écrit
dans le message de

news:cf0601c48a9c$002b8580$
salut
ça va?
est-ce-que quelqu'un peut m'aider?
quand j'ai exécuté le code suivant il a marché une fois,
puis en le réexécutant il me donne une erreur
c'est l'erreur d'éxécution 429
et le message est : "un composant ActiveX ne peut créer
d'objet"
et ça ne marche plus du tout
est-ce-quequelq'un sait pourquoi
merci de votre aide
voici le code éxécuté:
Option Compare Database
Function toto1()
Dim doc1 As Word.Document
Set doc1 = Documents.Add
Documents.Add.SaveAs FileName:="c:tempfastsave2.doc"
Set doc1 = Documents("c:tempfastsave2.doc")
With doc1
.Envelope.Insert Address:="The MOD Team" _
& vbCrLf & "One Microsoft Way" & vbCrLf _
& "Redmond, WA 98052", ReturnAddress:= _
"One Happy Customer" & vbCrLf & _
"77 Pine Bough Lane" & vbCrLf & _
"Any Town, USA 12345"
End With
doc1.save
doc1.Close
toto1 = ""

End Function


.



Avatar
Gafish
La syntaxe est pas tout à fait correcte.
Si tu veux créer un nouveau document c'est :

Dim doc1 As Word.Document
Set doc1 = New Word.Document
doc1.SaveAs ("c:tempfastsave2.doc")

au début.
Ensuite tu fais ton bloc with

"elisabeth" a écrit dans le message de
news:cc4001c48aa2$5b936d60$
sinon il plante sur la 4è ligne
Set doc1 = Documents.Add
merci

-----Message d'origine-----
Bonjour,

Il plante sur quelle ligne ?
Sinon ca doit etre un problème de référence manquante.
Surement la référence

à Word. Dans un module, fais Outils...Référence et
regarde si la référence à

Word est coché.

Arnaud

"elisabeth" a écrit
dans le message de

news:cf0601c48a9c$002b8580$
salut
ça va?
est-ce-que quelqu'un peut m'aider?
quand j'ai exécuté le code suivant il a marché une fois,
puis en le réexécutant il me donne une erreur
c'est l'erreur d'éxécution 429
et le message est : "un composant ActiveX ne peut créer
d'objet"
et ça ne marche plus du tout
est-ce-quequelq'un sait pourquoi
merci de votre aide
voici le code éxécuté:
Option Compare Database
Function toto1()
Dim doc1 As Word.Document
Set doc1 = Documents.Add
Documents.Add.SaveAs FileName:="c:tempfastsave2.doc"
Set doc1 = Documents("c:tempfastsave2.doc")
With doc1
.Envelope.Insert Address:="The MOD Team" _
& vbCrLf & "One Microsoft Way" & vbCrLf _
& "Redmond, WA 98052", ReturnAddress:= _
"One Happy Customer" & vbCrLf & _
"77 Pine Bough Lane" & vbCrLf & _
"Any Town, USA 12345"
End With
doc1.save
doc1.Close
toto1 = ""

End Function


.



Avatar
Yann
Salut à vous 2,
Il y a quelque chose d'important lorsque l'on travaille
avec des objet, c'est de correctement les terminer, pour
une question de mémoire. Hors, avec le code donnée, il
manque déjà un Set doc1 = Nothing avant le End Function
et peut-être même un doc1.Quit encore avant, soit le code
corrigé suivant...

Option Compare Database
Function toto1()
Dim doc1 As Word.Document
Dim doc1 As Word.Document
Set doc1 = New Word.Document
doc1.SaveAs ("c:tempfastsave2.doc")
With doc1
.Envelope.Insert Address:="The MOD Team" _
& vbCrLf & "One Microsoft Way" & vbCrLf _
& "Redmond, WA 98052", ReturnAddress:= _
"One Happy Customer" & vbCrLf & _
"77 Pine Bough Lane" & vbCrLf & _
"Any Town, USA 12345"
End With
doc1.save
doc1.Close
doc1.Quit
Set Doc1 = Nothing
End Function


-----Message d'origine-----
La syntaxe est pas tout à fait correcte.
Si tu veux créer un nouveau document c'est :

Dim doc1 As Word.Document
Set doc1 = New Word.Document
doc1.SaveAs ("c:tempfastsave2.doc")

au début.
Ensuite tu fais ton bloc with

"elisabeth" a
écrit dans le message de

news:cc4001c48aa2$5b936d60$
sinon il plante sur la 4è ligne
Set doc1 = Documents.Add
merci

-----Message d'origine-----
Bonjour,

Il plante sur quelle ligne ?
Sinon ca doit etre un problème de référence manquante.
Surement la référence

à Word. Dans un module, fais Outils...Référence et
regarde si la référence à

Word est coché.

Arnaud

"elisabeth" a
écrit


dans le message de
news:cf0601c48a9c$002b8580$
salut
ça va?
est-ce-que quelqu'un peut m'aider?
quand j'ai exécuté le code suivant il a marché une fois,
puis en le réexécutant il me donne une erreur
c'est l'erreur d'éxécution 429
et le message est : "un composant ActiveX ne peut créer
d'objet"
et ça ne marche plus du tout
est-ce-quequelq'un sait pourquoi
merci de votre aide
voici le code éxécuté:
Option Compare Database
Function toto1()
Dim doc1 As Word.Document
Set doc1 = Documents.Add
Documents.Add.SaveAs FileName:="c:tempfastsave2.doc"
Set doc1 = Documents("c:tempfastsave2.doc")
With doc1
.Envelope.Insert Address:="The MOD Team" _
& vbCrLf & "One Microsoft Way" & vbCrLf _
& "Redmond, WA 98052", ReturnAddress:= _
"One Happy Customer" & vbCrLf & _
"77 Pine Bough Lane" & vbCrLf & _
"Any Town, USA 12345"
End With
doc1.save
doc1.Close
toto1 = ""

End Function


.




.




Avatar
Gafish
Oui, tout à fait tu as raison, je n'avais pas fait attention qu'il manquait
le set doc1=nothing

Arnaud

"Yann" a écrit dans le message de
news:cd2201c48aac$d00764d0$
Salut à vous 2,
Il y a quelque chose d'important lorsque l'on travaille
avec des objet, c'est de correctement les terminer, pour
une question de mémoire. Hors, avec le code donnée, il
manque déjà un Set doc1 = Nothing avant le End Function
et peut-être même un doc1.Quit encore avant, soit le code
corrigé suivant...

Option Compare Database
Function toto1()
Dim doc1 As Word.Document
Dim doc1 As Word.Document
Set doc1 = New Word.Document
doc1.SaveAs ("c:tempfastsave2.doc")
With doc1
.Envelope.Insert Address:="The MOD Team" _
& vbCrLf & "One Microsoft Way" & vbCrLf _
& "Redmond, WA 98052", ReturnAddress:= _
"One Happy Customer" & vbCrLf & _
"77 Pine Bough Lane" & vbCrLf & _
"Any Town, USA 12345"
End With
doc1.save
doc1.Close
doc1.Quit
Set Doc1 = Nothing
End Function


-----Message d'origine-----
La syntaxe est pas tout à fait correcte.
Si tu veux créer un nouveau document c'est :

Dim doc1 As Word.Document
Set doc1 = New Word.Document
doc1.SaveAs ("c:tempfastsave2.doc")

au début.
Ensuite tu fais ton bloc with

"elisabeth" a
écrit dans le message de

news:cc4001c48aa2$5b936d60$
sinon il plante sur la 4è ligne
Set doc1 = Documents.Add
merci

-----Message d'origine-----
Bonjour,

Il plante sur quelle ligne ?
Sinon ca doit etre un problème de référence manquante.
Surement la référence

à Word. Dans un module, fais Outils...Référence et
regarde si la référence à

Word est coché.

Arnaud

"elisabeth" a
écrit


dans le message de
news:cf0601c48a9c$002b8580$
salut
ça va?
est-ce-que quelqu'un peut m'aider?
quand j'ai exécuté le code suivant il a marché une fois,
puis en le réexécutant il me donne une erreur
c'est l'erreur d'éxécution 429
et le message est : "un composant ActiveX ne peut créer
d'objet"
et ça ne marche plus du tout
est-ce-quequelq'un sait pourquoi
merci de votre aide
voici le code éxécuté:
Option Compare Database
Function toto1()
Dim doc1 As Word.Document
Set doc1 = Documents.Add
Documents.Add.SaveAs FileName:="c:tempfastsave2.doc"
Set doc1 = Documents("c:tempfastsave2.doc")
With doc1
.Envelope.Insert Address:="The MOD Team" _
& vbCrLf & "One Microsoft Way" & vbCrLf _
& "Redmond, WA 98052", ReturnAddress:= _
"One Happy Customer" & vbCrLf & _
"77 Pine Bough Lane" & vbCrLf & _
"Any Town, USA 12345"
End With
doc1.save
doc1.Close
toto1 = ""

End Function


.




.