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 probleme de code

probleme de code

9 réponses
Avatar
domi
bonjour a tous

ce code me serts pour copier le contenu d'un champ ole
dans un repertoire en format WORD
tout se passe bien j'ai bien mon fichier WORD
mais apres avoir exécute l'action
Dand le gestionnaire des taches dans onglet Applications
Microsoft Word ne s'y trouve pas
mais dans l'onglet Processus WINWORD.EXE
lui est encore présent
que faire avec ce code pour empecher cela?


---------------------------------code a modifier
Private Sub Commande67_Click()
aa.Object.Application.Options.BackgroundSave = True
aa.Object.Application.Options.AllowFastSave = True
aa.Object.SaveAs "C:\PDF\TEMP.doc"
end sub
----------------------------------------------------
Signaler un problème avec ce contenu

9 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
Raymond [mvp]
Bonjour.

aa étant ton objet Word (tu aurais pu choisir encore plus mal) tu termines
par:
aa.Quit
set aa = Nothing

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"domi" a écrit dans le message de news:
41a9adf2$0$13471$
bonjour a tous

ce code me serts pour copier le contenu d'un champ ole
dans un repertoire en format WORD
tout se passe bien j'ai bien mon fichier WORD
mais apres avoir exécute l'action
Dand le gestionnaire des taches dans onglet Applications
Microsoft Word ne s'y trouve pas
mais dans l'onglet Processus WINWORD.EXE
lui est encore présent
que faire avec ce code pour empecher cela?


---------------------------------code a modifier
Private Sub Commande67_Click()
aa.Object.Application.Options.BackgroundSave = True
aa.Object.Application.Options.AllowFastSave = True
aa.Object.SaveAs "C:PDFTEMP.doc"
end sub
----------------------------------------------------




Avatar
domi
merci raymond
mais ça marche pas




"Raymond [mvp]" a écrit dans le message de
news:
Bonjour.

aa étant ton objet Word (tu aurais pu choisir encore plus mal) tu termines
par:
aa.Quit
set aa = Nothing

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"domi" a écrit dans le message de news:
41a9adf2$0$13471$
bonjour a tous

ce code me serts pour copier le contenu d'un champ ole
dans un repertoire en format WORD
tout se passe bien j'ai bien mon fichier WORD
mais apres avoir exécute l'action
Dand le gestionnaire des taches dans onglet Applications
Microsoft Word ne s'y trouve pas
mais dans l'onglet Processus WINWORD.EXE
lui est encore présent
que faire avec ce code pour empecher cela?


---------------------------------code a modifier
Private Sub Commande67_Click()
aa.Object.Application.Options.BackgroundSave = True
aa.Object.Application.Options.AllowFastSave = True
aa.Object.SaveAs "C:PDFTEMP.doc"
end sub
----------------------------------------------------








Avatar
Raymond [mvp]
Il faudrait un complémént, où se trouve le dim de l'objet application et la
fin des fonctions quand tu veux que word s'arrête.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"domi" a écrit dans le message de news:
41aa1dea$0$7837$
merci raymond
mais ça marche pas



Avatar
domi
j'ai copié ce code que tu as mis dans un forum

apparament il fonctionne bien
voici le code en question

Private Sub Commande95_Click()
aa.Object.Application.Options.BackgroundSave = False
aa.Object.Application.Options.AllowFastSave = True
aa.Object.SaveAs "C:PDFTEMP.doc"
---------------c'est ici que ça deconne
il faut que word se termine ici


dans la bare des taches onglget applications
Microsoft WORD est absent
mais dans processus WINWORD est encore la apres
esxecution du code

le reste du code fonctionne bien



Dim W_App As Object
Set W_App = CreateObject("Word.Application")
With W_App
.Visible = False
.Documents.Open ("C:PDFTEMP.doc")
.Selection.HomeKey Unit:=wdStory
.Selection.EndKey Unit:=wdStory, Extend:=wdExtend
.Selection.Copy
.ActiveDocument.Close wdDoNotSaveChanges

.Quit

Set W_App = Nothing

End With

End Sub

"Raymond [mvp]" a écrit dans le message de
news: #
Il faudrait un complémént, où se trouve le dim de l'objet application et
la

fin des fonctions quand tu veux que word s'arrête.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"domi" a écrit dans le message de news:
41aa1dea$0$7837$
merci raymond
mais ça marche pas







Avatar
Raymond [mvp]
Tu es sûr que ce code est de moi car il ne porte pas du tout ma patte.
le deuxième oui, il est de moi avec l'objet W_App . quelle est la relation
entre les deux codes ? le code sous Commande95 me semble bizarre. tu peux me
retrouver le post archives, que je jette un oeil ?

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"domi" a écrit dans le message de news:
41aa262a$0$7827$
j'ai copié ce code que tu as mis dans un forum

apparament il fonctionne bien
voici le code en question

Private Sub Commande95_Click()
aa.Object.Application.Options.BackgroundSave = False
aa.Object.Application.Options.AllowFastSave = True
aa.Object.SaveAs "C:PDFTEMP.doc"
---------------c'est ici que ça deconne
il faut que word se termine ici


dans la bare des taches onglget applications
Microsoft WORD est absent
mais dans processus WINWORD est encore la apres
esxecution du code

le reste du code fonctionne bien



Dim W_App As Object
Set W_App = CreateObject("Word.Application")
With W_App
.Visible = False
.Documents.Open ("C:PDFTEMP.doc")
.Selection.HomeKey Unit:=wdStory
.Selection.EndKey Unit:=wdStory, Extend:=wdExtend
.Selection.Copy
.ActiveDocument.Close wdDoNotSaveChanges

.Quit

Set W_App = Nothing

End With

End Sub



Avatar
domi
je recapitule
je veux simplement dans un form
j'ai un champ ole (aa) (doc word)
et je veux recuperer le contenu
dans un champ memo (recuptexte)qui se trouve sur le meme form
voila

"domi" a écrit dans le message de news:
41aa262a$0$7827$
j'ai copié ce code que tu as mis dans un forum

apparament il fonctionne bien
voici le code en question

Private Sub Commande95_Click()
aa.Object.Application.Options.BackgroundSave = False
aa.Object.Application.Options.AllowFastSave = True
aa.Object.SaveAs "C:PDFTEMP.doc"
---------------c'est ici que ça deconne
il faut que word se termine ici


dans la bare des taches onglget applications
Microsoft WORD est absent
mais dans processus WINWORD est encore la apres
esxecution du code

le reste du code fonctionne bien



Dim W_App As Object
Set W_App = CreateObject("Word.Application")
With W_App
.Visible = False
.Documents.Open ("C:PDFTEMP.doc")
.Selection.HomeKey Unit:=wdStory
.Selection.EndKey Unit:=wdStory, Extend:=wdExtend
.Selection.Copy
.ActiveDocument.Close wdDoNotSaveChanges

.Quit

Set W_App = Nothing

End With

End Sub

"Raymond [mvp]" a écrit dans le message
de

news: #
Il faudrait un complémént, où se trouve le dim de l'objet application et
la

fin des fonctions quand tu veux que word s'arrête.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"domi" a écrit dans le message de news:
41aa1dea$0$7837$
merci raymond
mais ça marche pas











Avatar
Raymond [mvp]
je pense qu'il faudrait s'entendre et tout dire au départ.
dans le même formulaire tu veux récupérer le contenu d'un champ OLE Word et
le placer daqns un champ mémo ?
si oui, ce sont deux champs complément incompatibles entre eux. pourquoi cet
double affichage ?
le seul moyen à mon avis c'est d'ouvrir le document word ( qui doit être un
document texte brut sans aucun formatage de type RTF ou TXT) par automation
word, copier le texte et le coller dans le champ mémo. ça tu sais faire car
tu as la fonction.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"domi" a écrit dans le message de news:
41aa2bf1$0$30701$
je recapitule
je veux simplement dans un form
j'ai un champ ole (aa) (doc word)
et je veux recuperer le contenu
dans un champ memo (recuptexte)qui se trouve sur le meme form
voila



Avatar
domi
oui le code marche mais il reste
winword dans le processus da la barre des taches
et chaque fois que je fais l'action il s'en ajoute un bonjour le processeur

c'est pourquoi je demande de l'aide
il y a quelque chose qui manque dans le code et je sais pas quoi


"Raymond [mvp]" a écrit dans le message de
news: #
je pense qu'il faudrait s'entendre et tout dire au départ.
dans le même formulaire tu veux récupérer le contenu d'un champ OLE Word
et

le placer daqns un champ mémo ?
si oui, ce sont deux champs complément incompatibles entre eux. pourquoi
cet

double affichage ?
le seul moyen à mon avis c'est d'ouvrir le document word ( qui doit être
un

document texte brut sans aucun formatage de type RTF ou TXT) par
automation

word, copier le texte et le coller dans le champ mémo. ça tu sais faire
car

tu as la fonction.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"domi" a écrit dans le message de news:
41aa2bf1$0$30701$
je recapitule
je veux simplement dans un form
j'ai un champ ole (aa) (doc word)
et je veux recuperer le contenu
dans un champ memo (recuptexte)qui se trouve sur le meme form
voila







Avatar
Raymond [mvp]
Regarde dans la totalité de tes objet.
à tous tes Dim ..... (sauf variables de données) il doit correspondre un set
objet = nothing.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"domi" a écrit dans le message de news:
41aa3482$0$30708$
oui le code marche mais il reste
winword dans le processus da la barre des taches
et chaque fois que je fais l'action il s'en ajoute un bonjour le
processeur

c'est pourquoi je demande de l'aide
il y a quelque chose qui manque dans le code et je sais pas quoi


"Raymond [mvp]" a écrit dans le message
de
news: #
je pense qu'il faudrait s'entendre et tout dire au départ.
dans le même formulaire tu veux récupérer le contenu d'un champ OLE Word
et

le placer daqns un champ mémo ?
si oui, ce sont deux champs complément incompatibles entre eux. pourquoi
cet

double affichage ?
le seul moyen à mon avis c'est d'ouvrir le document word ( qui doit être
un

document texte brut sans aucun formatage de type RTF ou TXT) par
automation

word, copier le texte et le coller dans le champ mémo. ça tu sais faire
car

tu as la fonction.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"domi" a écrit dans le message de news:
41aa2bf1$0$30701$
je recapitule
je veux simplement dans un form
j'ai un champ ole (aa) (doc word)
et je veux recuperer le contenu
dans un champ memo (recuptexte)qui se trouve sur le meme form
voila