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 Word récupération de la valeur d'une cellule excel

récupération de la valeur d'une cellule excel

2 réponses
Avatar
Sky
bonjour à tous,

comment faire à partir d'une macro word pour récupérer la valeur d'une
cellule excel ?

Merci pour votre aide
Signaler un problème avec ce contenu

2 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
Jean-Guy Marcil
Sky was telling us:
Sky nous racontait que :

bonjour à tous,

comment faire à partir d'une macro word pour récupérer la valeur d'une
cellule excel ?



Cette macro devrait prendre le contenu de la cellule A4 du classeur Excel
"text.xls" et placer ce contenu à la toute fin du document actif.

Sub test()

Dim XlApplication As Excel.Application
Dim XlClasseur As Excel.Workbook
Dim XlFeuille As Excel.Worksheet
Dim XLCellule As String

Set XlApplication = New Excel.Application
Set XlClasseur = XlApplication.Workbooks.Open("C:DocumentsExceltest.xls")

Set XlFeuille = XlClasseur.Worksheets(1)
'ou, si on conna^t le nom de la feuille:
'Set XlFeuille = XlClasseur.Worksheets("Nom de la Feuille")

XLCellule = XlFeuille.Range("A4")

XlApplication.Quit

Set XlFeuille = Nothing
Set XlClasseur = Nothing
Set XlApplication = Nothing

ActiveDocument.Content.InsertAfter XLCellule

End Sub

--
Salut!
_______________________________________
Jean-Guy Marcil - Word MVP

Word MVP site: http://www.word.mvps.org

Avatar
Sky
Merci , ça fonctionne

@+

"Jean-Guy Marcil" a écrit dans le message de news:

Sky was telling us:
Sky nous racontait que :

bonjour à tous,

comment faire à partir d'une macro word pour récupérer la valeur d'une
cellule excel ?



Cette macro devrait prendre le contenu de la cellule A4 du classeur Excel
"text.xls" et placer ce contenu à la toute fin du document actif.

Sub test()

Dim XlApplication As Excel.Application
Dim XlClasseur As Excel.Workbook
Dim XlFeuille As Excel.Worksheet
Dim XLCellule As String

Set XlApplication = New Excel.Application
Set XlClasseur =
XlApplication.Workbooks.Open("C:DocumentsExceltest.xls")

Set XlFeuille = XlClasseur.Worksheets(1)
'ou, si on conna^t le nom de la feuille:
'Set XlFeuille = XlClasseur.Worksheets("Nom de la Feuille")

XLCellule = XlFeuille.Range("A4")

XlApplication.Quit

Set XlFeuille = Nothing
Set XlClasseur = Nothing
Set XlApplication = Nothing

ActiveDocument.Content.InsertAfter XLCellule

End Sub

--
Salut!
_______________________________________
Jean-Guy Marcil - Word MVP

Word MVP site: http://www.word.mvps.org