bonjour
j'ai copié ce code que tu as mis dans un forum
apparament il fonctionne bien
mais apres avoir fait plusieurs essais mon pc
n'en pouvais plus et je me suis demandé pourquoi apres avoir cherche je
suis allé voir dans le tray et la j'ai vu des dizaines de word dedans
j'ai du passer par le fin de tache pour les enlever
Set W_App = Nothing ne marche pas
et je ne trouve pas la solution
un petit peu d'aide svp
voici le code en question
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
Pierre CFI [mvp]
bonjour là je prends des risques :o) je serais la modif suivant sur cet excellent code conçu par le génial Raymond
Dim W_App As Object on error resume next Set W_App = GetObject("Word.Application") if err <> 0 then Set W_App = CreateObject("Word.Application") çà veut dire que si une instance est ouvertez on fait joujou averte cela dit çà devrait fermer
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "lou" a écrit dans le message de news:41a7533c$0$31938$
bonjour j'ai copié ce code que tu as mis dans un forum
apparament il fonctionne bien mais apres avoir fait plusieurs essais mon pc n'en pouvais plus et je me suis demandé pourquoi apres avoir cherche je suis allé voir dans le tray et la j'ai vu des dizaines de word dedans j'ai du passer par le fin de tache pour les enlever
Set W_App = Nothing ne marche pas
et je ne trouve pas la solution un petit peu d'aide svp voici le code en question
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
merci de ton aide
bonjour
là je prends des risques :o)
je serais la modif suivant sur cet excellent code conçu par le génial Raymond
Dim W_App As Object
on error resume next
Set W_App = GetObject("Word.Application")
if err <> 0 then Set W_App = CreateObject("Word.Application")
çà veut dire que si une instance est ouvertez on fait joujou averte
cela dit çà devrait fermer
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"lou" <colluluigi@skynet.be> a écrit dans le message de news:41a7533c$0$31938$ba620e4c@news.skynet.be...
bonjour
j'ai copié ce code que tu as mis dans un forum
apparament il fonctionne bien
mais apres avoir fait plusieurs essais mon pc
n'en pouvais plus et je me suis demandé pourquoi apres avoir cherche je
suis allé voir dans le tray et la j'ai vu des dizaines de word dedans
j'ai du passer par le fin de tache pour les enlever
Set W_App = Nothing ne marche pas
et je ne trouve pas la solution
un petit peu d'aide svp
voici le code en question
bonjour là je prends des risques :o) je serais la modif suivant sur cet excellent code conçu par le génial Raymond
Dim W_App As Object on error resume next Set W_App = GetObject("Word.Application") if err <> 0 then Set W_App = CreateObject("Word.Application") çà veut dire que si une instance est ouvertez on fait joujou averte cela dit çà devrait fermer
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "lou" a écrit dans le message de news:41a7533c$0$31938$
bonjour j'ai copié ce code que tu as mis dans un forum
apparament il fonctionne bien mais apres avoir fait plusieurs essais mon pc n'en pouvais plus et je me suis demandé pourquoi apres avoir cherche je suis allé voir dans le tray et la j'ai vu des dizaines de word dedans j'ai du passer par le fin de tache pour les enlever
Set W_App = Nothing ne marche pas
et je ne trouve pas la solution un petit peu d'aide svp voici le code en question
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
merci de ton aide
lou
ok mais par rapport au code de raymond je place le tien ou soory pas beaucoup d experience merci
"Pierre CFI [mvp]" a écrit dans le message de news: u$
bonjour là je prends des risques :o) je serais la modif suivant sur cet excellent code conçu par le génial Raymond
Dim W_App As Object on error resume next Set W_App = GetObject("Word.Application") if err <> 0 then Set W_App = CreateObject("Word.Application") çà veut dire que si une instance est ouvertez on fait joujou averte cela dit çà devrait fermer
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "lou" a écrit dans le message de news:41a7533c$0$31938$
bonjour j'ai copié ce code que tu as mis dans un forum
apparament il fonctionne bien mais apres avoir fait plusieurs essais mon pc n'en pouvais plus et je me suis demandé pourquoi apres avoir cherche je
suis allé voir dans le tray et la j'ai vu des dizaines de word dedans j'ai du passer par le fin de tache pour les enlever
Set W_App = Nothing ne marche pas
et je ne trouve pas la solution un petit peu d'aide svp voici le code en question
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
merci de ton aide
ok mais par rapport au code de raymond je place le tien ou
soory pas beaucoup d experience
merci
"Pierre CFI [mvp]" <XXX_pierresalaun@aol.com> a écrit dans le message de
news: u$Xt7M90EHA.3448@TK2MSFTNGP09.phx.gbl...
bonjour
là je prends des risques :o)
je serais la modif suivant sur cet excellent code conçu par le génial
Raymond
Dim W_App As Object
on error resume next
Set W_App = GetObject("Word.Application")
if err <> 0 then Set W_App = CreateObject("Word.Application")
çà veut dire que si une instance est ouvertez on fait joujou averte
cela dit çà devrait fermer
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"lou" <colluluigi@skynet.be> a écrit dans le message de
news:41a7533c$0$31938$ba620e4c@news.skynet.be...
bonjour
j'ai copié ce code que tu as mis dans un forum
apparament il fonctionne bien
mais apres avoir fait plusieurs essais mon pc
n'en pouvais plus et je me suis demandé pourquoi apres avoir cherche
je
suis allé voir dans le tray et la j'ai vu des dizaines de word dedans
j'ai du passer par le fin de tache pour les enlever
Set W_App = Nothing ne marche pas
et je ne trouve pas la solution
un petit peu d'aide svp
voici le code en question
ok mais par rapport au code de raymond je place le tien ou soory pas beaucoup d experience merci
"Pierre CFI [mvp]" a écrit dans le message de news: u$
bonjour là je prends des risques :o) je serais la modif suivant sur cet excellent code conçu par le génial Raymond
Dim W_App As Object on error resume next Set W_App = GetObject("Word.Application") if err <> 0 then Set W_App = CreateObject("Word.Application") çà veut dire que si une instance est ouvertez on fait joujou averte cela dit çà devrait fermer
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "lou" a écrit dans le message de news:41a7533c$0$31938$
bonjour j'ai copié ce code que tu as mis dans un forum
apparament il fonctionne bien mais apres avoir fait plusieurs essais mon pc n'en pouvais plus et je me suis demandé pourquoi apres avoir cherche je
suis allé voir dans le tray et la j'ai vu des dizaines de word dedans j'ai du passer par le fin de tache pour les enlever
Set W_App = Nothing ne marche pas
et je ne trouve pas la solution un petit peu d'aide svp voici le code en question
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
merci de ton aide
Pierre CFI [mvp]
../.. au lieu de Dim W_App As Object Set W_App = CreateObject("Word.Application")
teste et dis nous :o)
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "lou" a écrit dans le message de news:41a76352$0$9298$
ok mais par rapport au code de raymond je place le tien ou soory pas beaucoup d experience merci
"Pierre CFI [mvp]" a écrit dans le message de news: u$
bonjour là je prends des risques :o) je serais la modif suivant sur cet excellent code conçu par le génial Raymond
Dim W_App As Object on error resume next Set W_App = GetObject("Word.Application") if err <> 0 then Set W_App = CreateObject("Word.Application") çà veut dire que si une instance est ouvertez on fait joujou averte cela dit çà devrait fermer
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "lou" a écrit dans le message de news:41a7533c$0$31938$
bonjour j'ai copié ce code que tu as mis dans un forum
apparament il fonctionne bien mais apres avoir fait plusieurs essais mon pc n'en pouvais plus et je me suis demandé pourquoi apres avoir cherche je
suis allé voir dans le tray et la j'ai vu des dizaines de word dedans j'ai du passer par le fin de tache pour les enlever
Set W_App = Nothing ne marche pas
et je ne trouve pas la solution un petit peu d'aide svp voici le code en question
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
merci de ton aide
../..
au lieu de
Dim W_App As Object
Set W_App = CreateObject("Word.Application")
teste et dis nous :o)
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"lou" <colluluigi@skynet.be> a écrit dans le message de news:41a76352$0$9298$ba620e4c@news.skynet.be...
ok mais par rapport au code de raymond je place le tien ou
soory pas beaucoup d experience
merci
"Pierre CFI [mvp]" <XXX_pierresalaun@aol.com> a écrit dans le message de
news: u$Xt7M90EHA.3448@TK2MSFTNGP09.phx.gbl...
bonjour
là je prends des risques :o)
je serais la modif suivant sur cet excellent code conçu par le génial
Raymond
Dim W_App As Object
on error resume next
Set W_App = GetObject("Word.Application")
if err <> 0 then Set W_App = CreateObject("Word.Application")
çà veut dire que si une instance est ouvertez on fait joujou averte
cela dit çà devrait fermer
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"lou" <colluluigi@skynet.be> a écrit dans le message de
news:41a7533c$0$31938$ba620e4c@news.skynet.be...
bonjour
j'ai copié ce code que tu as mis dans un forum
apparament il fonctionne bien
mais apres avoir fait plusieurs essais mon pc
n'en pouvais plus et je me suis demandé pourquoi apres avoir cherche
je
suis allé voir dans le tray et la j'ai vu des dizaines de word dedans
j'ai du passer par le fin de tache pour les enlever
Set W_App = Nothing ne marche pas
et je ne trouve pas la solution
un petit peu d'aide svp
voici le code en question
../.. au lieu de Dim W_App As Object Set W_App = CreateObject("Word.Application")
teste et dis nous :o)
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "lou" a écrit dans le message de news:41a76352$0$9298$
ok mais par rapport au code de raymond je place le tien ou soory pas beaucoup d experience merci
"Pierre CFI [mvp]" a écrit dans le message de news: u$
bonjour là je prends des risques :o) je serais la modif suivant sur cet excellent code conçu par le génial Raymond
Dim W_App As Object on error resume next Set W_App = GetObject("Word.Application") if err <> 0 then Set W_App = CreateObject("Word.Application") çà veut dire que si une instance est ouvertez on fait joujou averte cela dit çà devrait fermer
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "lou" a écrit dans le message de news:41a7533c$0$31938$
bonjour j'ai copié ce code que tu as mis dans un forum
apparament il fonctionne bien mais apres avoir fait plusieurs essais mon pc n'en pouvais plus et je me suis demandé pourquoi apres avoir cherche je
suis allé voir dans le tray et la j'ai vu des dizaines de word dedans j'ai du passer par le fin de tache pour les enlever
Set W_App = Nothing ne marche pas
et je ne trouve pas la solution un petit peu d'aide svp voici le code en question
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
merci de ton aide
lou
desolé Pierre mais ton message a ete efface du serveur tu peux me le renvoyer merci "lou" a écrit dans le message de news: 41a76352$0$9298$
ok mais par rapport au code de raymond je place le tien ou soory pas beaucoup d experience merci
"Pierre CFI [mvp]" a écrit dans le message de news: u$
bonjour là je prends des risques :o) je serais la modif suivant sur cet excellent code conçu par le génial Raymond
Dim W_App As Object on error resume next Set W_App = GetObject("Word.Application") if err <> 0 then Set W_App = CreateObject("Word.Application") çà veut dire que si une instance est ouvertez on fait joujou averte cela dit çà devrait fermer
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "lou" a écrit dans le message de news:41a7533c$0$31938$
bonjour j'ai copié ce code que tu as mis dans un forum
apparament il fonctionne bien mais apres avoir fait plusieurs essais mon pc n'en pouvais plus et je me suis demandé pourquoi apres avoir cherche je
suis allé voir dans le tray et la j'ai vu des dizaines de word dedans
j'ai du passer par le fin de tache pour les enlever
Set W_App = Nothing ne marche pas
et je ne trouve pas la solution un petit peu d'aide svp voici le code en question
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
merci de ton aide
desolé Pierre mais ton message a ete efface du serveur
tu peux me le renvoyer
merci
"lou" <colluluigi@skynet.be> a écrit dans le message de news:
41a76352$0$9298$ba620e4c@news.skynet.be...
ok mais par rapport au code de raymond je place le tien ou
soory pas beaucoup d experience
merci
"Pierre CFI [mvp]" <XXX_pierresalaun@aol.com> a écrit dans le message de
news: u$Xt7M90EHA.3448@TK2MSFTNGP09.phx.gbl...
bonjour
là je prends des risques :o)
je serais la modif suivant sur cet excellent code conçu par le génial
Raymond
Dim W_App As Object
on error resume next
Set W_App = GetObject("Word.Application")
if err <> 0 then Set W_App = CreateObject("Word.Application")
çà veut dire que si une instance est ouvertez on fait joujou averte
cela dit çà devrait fermer
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"lou" <colluluigi@skynet.be> a écrit dans le message de
news:41a7533c$0$31938$ba620e4c@news.skynet.be...
bonjour
j'ai copié ce code que tu as mis dans un forum
apparament il fonctionne bien
mais apres avoir fait plusieurs essais mon pc
n'en pouvais plus et je me suis demandé pourquoi apres avoir cherche
je
suis allé voir dans le tray et la j'ai vu des dizaines de word
dedans
j'ai du passer par le fin de tache pour les enlever
Set W_App = Nothing ne marche pas
et je ne trouve pas la solution
un petit peu d'aide svp
voici le code en question
desolé Pierre mais ton message a ete efface du serveur tu peux me le renvoyer merci "lou" a écrit dans le message de news: 41a76352$0$9298$
ok mais par rapport au code de raymond je place le tien ou soory pas beaucoup d experience merci
"Pierre CFI [mvp]" a écrit dans le message de news: u$
bonjour là je prends des risques :o) je serais la modif suivant sur cet excellent code conçu par le génial Raymond
Dim W_App As Object on error resume next Set W_App = GetObject("Word.Application") if err <> 0 then Set W_App = CreateObject("Word.Application") çà veut dire que si une instance est ouvertez on fait joujou averte cela dit çà devrait fermer
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "lou" a écrit dans le message de news:41a7533c$0$31938$
bonjour j'ai copié ce code que tu as mis dans un forum
apparament il fonctionne bien mais apres avoir fait plusieurs essais mon pc n'en pouvais plus et je me suis demandé pourquoi apres avoir cherche je
suis allé voir dans le tray et la j'ai vu des dizaines de word dedans
j'ai du passer par le fin de tache pour les enlever
Set W_App = Nothing ne marche pas
et je ne trouve pas la solution un petit peu d'aide svp voici le code en question
