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 Aller chercher la valeur d'une cellule excel dans une macro word

Aller chercher la valeur d'une cellule excel dans une macro word

4 réponses
Avatar
Fabien
Bonjour =E0 tous,

Je suis en train de cr=E9er une macro sous word et je=20
souhaiterai dans le code de ma macro faire r=E9f=E9rence =E0=20
une cellule qui se trouve dans un fichier excel.
Pourriez vous m'indiquez le code qui permet d'ouvrir=20
excel via word et d'affecter la valeur qui se trouve dans=20
une cellule (par ex ligne 1 et colonne 2) =E0 une variable=20
nomm=E9 toto par exemple.

Merci pour votre aide.

Cordialement,

Fabien
Signaler un problème avec ce contenu

4 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
Asterix
bonjour

Set AppExcel = New Excel.Application
Set FicExcel = AppExcel.Workbooks.Open("classeur1.xls")
toto = FicExcel.Sheets("Feuil1").Range("B1").Value

bon courage

Aserix
Avatar
michdenis
Bonjour,

Si tu utilises ce code dans Word, tu devras ajouter une référence à ta macro dans word.
"Microsoft excel object librairy"


Tu peux obtenir la même chose sans référence avec ceci :

Dim xl as object
dim Wk as object

set Xl = createobject("Excel.application")
set Wk = xl.workbooks("C:Mes documentsNomDuClasseur.xls")
'.../...


set Xl=Nothing : Set Wk = Nothing



Salutations!




"Asterix" a écrit dans le message de news:%
bonjour

Set AppExcel = New Excel.Application
Set FicExcel = AppExcel.Workbooks.Open("classeur1.xls")
toto = FicExcel.Sheets("Feuil1").Range("B1").Value

bon courage

Aserix
Avatar
Asterix
Bonjour

oui, bien vu, c'est mieux
je suis loin d'etre un pro!

Asterix
Avatar
michdenis
Bonjour Astérix,

Ta solution était très bien.

Bon, tout le monde peut oublier d'indiquer la référence à ajouter ...

;-)


Bonne journée,


salutations!


"Asterix" a écrit dans le message de news:es%
Bonjour

oui, bien vu, c'est mieux
je suis loin d'etre un pro!

Asterix