Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Word lancement macro excel

lancement macro excel

2 réponses
Avatar
Sky
Bonjour à tous,

j'aimerais lancer une macro excel à partir de word

j'ai tapé le code suivant mais cela ne fonctionne pas

Dim XlApplication As Excel.Application
Dim XlClasseur As Excel.Workbook
Dim XlCtt As Excel.Worksheet


Set XlApplication = New Excel.Application
Set XlClasseur = Workbooks.Open("E:\PROJET EN COURS\CONTRATS
WORD\planning.xls")
Set XlCtt = Worksheets("contrat")

With XlCtt
Application.Run ("insertion")
end with


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,

j'aimerais lancer une macro excel à partir de word

j'ai tapé le code suivant mais cela ne fonctionne pas


Généralement, c'est bien de donner plus de détails.... "ça ne fonctionne
pas" est très vague.
Est -ce-que la macro génère un message d'erreur? Est-ce-qu'elle roule mais
aucun résultat visible? Il y a des résultats, mais pas ceux souhaités, etc.
Si tu exécute ligne par ligne (F8 à partir de la fenêtre de VBA), quelle
ligne bloque, s'il y en a une?

Dim XlApplication As Excel.Application
Dim XlClasseur As Excel.Workbook
Dim XlCtt As Excel.Worksheet


Ici tu déclares des variables, mais tu ne les utilises pas...

Set XlApplication = New Excel.Application
Set XlClasseur = Workbooks.Open("E:PROJET EN COURSCONTRATS
WORDplanning.xls")


Ic, Word va interpréter Workbooks comme un Objet Word, mais il 'y en a pas!

Set XlCtt = Worksheets("contrat")


Même chose pour Worksheets

With XlCtt
Application.Run ("insertion")
end with


Essaie:
Set XlApplication = New Excel.Application
Set XlClasseur = XlApplication.Workbooks.Open("E:PROJET EN COURSCONTRATS
WORDplanning.xls")
Set XlCtt = XlClasseur.Worksheets("contrat")

Est-ce-que cela fait une différence ou est-ce que le problèm est au niveau
de
With XlCtt
Application.Run ("insertion")
End With

Si oui, cela ne devrait pas être:
XlApplication.Run "insertion"
Car dans
Application.Run ("insertion")
Application fait référence à Word...

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

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

Avatar
Sky
re

Encore merci :)

j'avais omis le "Xl" devant application

@+


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

Sky was telling us:
Sky nous racontait que :

Bonjour à tous,

j'aimerais lancer une macro excel à partir de word

j'ai tapé le code suivant mais cela ne fonctionne pas


Généralement, c'est bien de donner plus de détails.... "ça ne fonctionne
pas" est très vague.
Est -ce-que la macro génère un message d'erreur? Est-ce-qu'elle roule mais
aucun résultat visible? Il y a des résultats, mais pas ceux souhaités,
etc.
Si tu exécute ligne par ligne (F8 à partir de la fenêtre de VBA), quelle
ligne bloque, s'il y en a une?

Dim XlApplication As Excel.Application
Dim XlClasseur As Excel.Workbook
Dim XlCtt As Excel.Worksheet


Ici tu déclares des variables, mais tu ne les utilises pas...

Set XlApplication = New Excel.Application
Set XlClasseur = Workbooks.Open("E:PROJET EN COURSCONTRATS
WORDplanning.xls")


Ic, Word va interpréter Workbooks comme un Objet Word, mais il 'y en a
pas!

Set XlCtt = Worksheets("contrat")


Même chose pour Worksheets

With XlCtt
Application.Run ("insertion")
end with


Essaie:
Set XlApplication = New Excel.Application
Set XlClasseur = XlApplication.Workbooks.Open("E:PROJET EN COURSCONTRATS
WORDplanning.xls")
Set XlCtt = XlClasseur.Worksheets("contrat")

Est-ce-que cela fait une différence ou est-ce que le problèm est au niveau
de
With XlCtt
Application.Run ("insertion")
End With

Si oui, cela ne devrait pas être:
XlApplication.Run "insertion"
Car dans
Application.Run ("insertion")
Application fait référence à Word...

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

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