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 Excel Ole word en vba

Ole word en vba

1 réponse
Avatar
Pierre CFI [mvp]
Bonjour
question 1/2 excel 1/2 word, mais comme il y a plein de polyvalents (je parle pas du fisc jps, donc pas la peine de te cacher)
par code j'insere un fichier word dans excel
Dim fich As String
'ChDir "C:\Documents and Settings\Sandy\Mes documents\Legris\SupportEPmàjdéc04vfss3P.SALAUN\"
fich = Application.GetOpenFilename("Documents, *.doc", , "Rechercher et selectionner le fichier")

'On Error Resume Next
Referentiel.Select
Referentiel.OLEObjects("RefWord1").Delete
ActiveSheet.Range("b7").Select
Referentiel.OLEObjects.Add(Filename:=fich, Link:=True, DisplayAsIcon:=False).Select
Selection.Name = "RefWord1"
bon, mais je n'en voudrait qu'un bout, le contenu d'un signet (actprincipale) donc on doit ajouter qq chose à la variable fich du
genre !actprincipale
mais je bute sur la syntaxe
merci

--
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
Signaler un problème avec ce contenu

1 réponse

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
Pierre CFI [mvp]
bonjour mon petit Pierre CFI
bon, j'ai bricolé un truc qui marche
j'insere bien le contenu du signet
mais bizarre que je puisse pas faire en un seul coup
***********************
Dim fich As String
'ChDir "C:Documents and SettingsSandyMes documentsLegrisSupportEPmàjdéc04vfss3P.SALAUN"
fich = Application.GetOpenFilename("Documents, *.doc", , "Rechercher et selectionner le fichier")

On Error Resume Next
Referentiel.Select
Referentiel.OLEObjects("RefWord1").Delete
ActiveSheet.Range("b7").Select

Referentiel.OLEObjects.Add(Filename:=fich, Link:=True, DisplayAsIcon:úlse).Select

Selection.Name = "RefWord1"
'// ici modif de la source
Referentiel.OLEObjects("refword1").SourceName = "Word.Document.8|C:Documents and SettingsSandyMes
documentsLegrisSupportEPmàjdéc04vfss3P.SALAUNEmploicompétenceRégleurInjectionPSALAUN.doc!'!'actprincipale"
...

--
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
"Pierre CFI [mvp]" a écrit dans le message de news:
Bonjour
question 1/2 excel 1/2 word, mais comme il y a plein de polyvalents (je parle pas du fisc jps, donc pas la peine de te cacher)
par code j'insere un fichier word dans excel
Dim fich As String
'ChDir "C:Documents and SettingsSandyMes documentsLegrisSupportEPmàjdéc04vfss3P.SALAUN"
fich = Application.GetOpenFilename("Documents, *.doc", , "Rechercher et selectionner le fichier")

'On Error Resume Next
Referentiel.Select
Referentiel.OLEObjects("RefWord1").Delete
ActiveSheet.Range("b7").Select
Referentiel.OLEObjects.Add(Filename:=fich, Link:=True, DisplayAsIcon:úlse).Select
Selection.Name = "RefWord1"
bon, mais je n'en voudrait qu'un bout, le contenu d'un signet (actprincipale) donc on doit ajouter qq chose à la variable fich du
genre !actprincipale
mais je bute sur la syntaxe
merci

--
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