Discussion :

[OCABY]

Bonjour,

J'ai une question sur les macros Excel et MS Project.
J'aimerais ouvrir un fichier MS Project, cliquer sur un bouton (macro MS ?) et ça vient ouvrir un fichier Excel précis (toujours sauvegardé au même endroit).
L'utilisateur complète le fichier Excel, clique sur un bouton (macro Excel ?) et une page entière d'Excel vient se mapper (selon un mappage prédéfini, enregistré ?) dans MS Project.

Donc deux choses :
- un bouton (sur MS) pour que MS Project aille ouvrir un fichier Excel précis.
- un bouton (sur Excel) pour que Excel lance un mappage automatique (prédéfini) vers MS.

Actuellement j'ouvre mon Excel et je fais le mappage avec l'assistant, mais l'outil est destiné à des gens qui ne connaissent absolument pas les macros (encore moins que moi), donc j'aimerais qu'ils aient des boutons pour leur simplifier la vie.

Merci pour votre aide et/ou vos idées !

[Menhir]

ça vient ouvrir un fichier Excel précis (toujours sauvegardé au même endroit).

Pour ouvrir un fichier Excel, méthode Workbooks.Open.
https://docs.microsoft.com/fr-FR/off...workbooks.open

Le reste ne concerne pas Excel.

[OCABY]

Pour ouvrir un fichier Excel, méthode Workbooks.Open.
https://docs.microsoft.com/fr-FR/off...workbooks.open

Le reste ne concerne pas Excel.

Merci pour le retour, mais cette commande permet d'ouvrir un Excel depuis un Excel... Je cherche à ouvrir un Excel en cliquant sur un bouton (qu'il faut créer) depuis MS Project. C'est un peu plus compliqué, je le reconnais

[Menhir]

Fonction GetObject()
https://docs.microsoft.com/fr-fr/off...bject-function

Placer la valeur renvoyée dans une variable de type Excel.Workbook.
Ne pas oublier d'activer la bibliothèque d'objets Excel dans les références du VBE.

[OCABY]

Bonjour,

J'aimerais être dans un fichier MS Project "A.mpp", cliquer sur un bouton lié à une macro qui m'ouvre directement un fichier Excel "B.xlsm" enregistré dans un endroit précis.

Ci-dessous ce que j'ai essayé mais qui ne fonctionne pas...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Questionnaire_Clic()
Dim appXL As Excel.Application
Dim WB As Excel.Workbook
 
Set appXL = CreateObject("Excel.Application")
appXL.Visible = True
Set WB = appXL.Workbooks.Open("C:\Users\Desktop\B.xlsm")
End Sub

Merci pour votre aide