Excel-Project-VBA

Résolu/Fermé
GermPeru Messages postés 172 Date d'inscription mercredi 7 décembre 2016 Statut Membre Dernière intervention 27 mars 2018 - 24 juin 2017 à 00:20
GermPeru Messages postés 172 Date d'inscription mercredi 7 décembre 2016 Statut Membre Dernière intervention 27 mars 2018 - 26 juin 2017 à 22:30
Bonjour a tous,

J´ai une question assez simple!

Je n´ai pas réussi a fiare une projection propre en excel vba, du coup je me suis penché sur le MS Project, apres qulque jours de tuto j´arrive a faire manuellement ce que je veux. Maintenant je cherche a automatiser par VBA...

J´ai plusieurs maccro sur excel qui me permettent d´extraire des donnnées de différents fichier et de les travailler.

Donc je cherche a utiliser ces données excel dans une interface sous project... Mais je viens de me rendre compte que ceci n´est pas permis:

Dim Appli As Excel.Application, Wb As Excel.Workbook


Ma question est assez simple est ce qu´il est possible de interconnecter mon MS Project a mon Excel? Si oui comment!

Question simple non? Mais j´ai peur de la réponse...

Merci d´avance!
A voir également:

2 réponses

yg_be Messages postés 22821 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 28 mai 2024 1 471
24 juin 2017 à 10:55
bonjour, je suppose que la ligne de code VBA est dans Project?
je n'utilise pas Project. cependant, quand j'essaie ce code dans Access, cela ne fonctionne que si j'ajoute Microsoft Excel dans les références du projet VBA.
peut-être suffit-il de faire la même chose dans Project?
https://docs.microsoft.com/fr-fr/office/vba/language/how-to/check-or-add-an-object-library-reference?redirectedfrom=MSDN
0
GermPeru Messages postés 172 Date d'inscription mercredi 7 décembre 2016 Statut Membre Dernière intervention 27 mars 2018
Modifié le 26 juin 2017 à 17:52
ReBonjour,

Je ene sais pas si tu suis toujours la discussion, mais j´ai un autre probleme toujours relationné avec vba et MS Project:

Dim wbExcel As Excel.Workbook
Dim stCaminoExcel$, stFichExcel$
stFichExcel = "PlaneamientoProtegido V-8.xlsm"
stCaminoExcel = "C:\Users\user\Desktop\Proyectos\Planeamiento\" & stFichExcel
'j´utilise pour faire un test si mon classseur excel est ouvert ce qui fonctionne mais quand j´essaye d' assigner ce classeur a une variable cela bug
Set wbExcel = Workbooks(stCaminoExcel)


As tu une idée?

Merci d´avance
0
yg_be Messages postés 22821 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 28 mai 2024 1 471 > GermPeru Messages postés 172 Date d'inscription mercredi 7 décembre 2016 Statut Membre Dernière intervention 27 mars 2018
Modifié le 26 juin 2017 à 19:05
juste une idée:
Dim Appli As Excel.Application, Wb As Excel.Workbook
Set wb = Appli.Workbooks(stCaminoExcel)
0
GermPeru Messages postés 172 Date d'inscription mercredi 7 décembre 2016 Statut Membre Dernière intervention 27 mars 2018 > yg_be Messages postés 22821 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 28 mai 2024
Modifié le 26 juin 2017 à 19:22
Bonjour et merci de ta réponse,

Mais j´avais déja essayé mais cela me mets le message d´erreur suivant:
Variable objet ou bloque with non établit...

Je pense que cela doit etre possble, mais je n´arrive pas a selectionner mon classeur et pourtant quand je tape mon code il me propose
.activate
... ect

comprends pas trop
0
GermPeru Messages postés 172 Date d'inscription mercredi 7 décembre 2016 Statut Membre Dernière intervention 27 mars 2018
26 juin 2017 à 19:23
J´arrive a tester si le fichier est ouvert mais je n´arrive a acceder a ce fichier...
0
yg_be Messages postés 22821 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 28 mai 2024 1 471 > GermPeru Messages postés 172 Date d'inscription mercredi 7 décembre 2016 Statut Membre Dernière intervention 27 mars 2018
Modifié le 26 juin 2017 à 20:54
Dim Appli As Excel.Application, Wb As Excel.Workbook
Set Appli = New Excel.Application
Set Wb = Appli.Workbooks(stCaminoExcel)

Set Wb = Appli.Workbooks.Open(stCaminoExcel)
0
GermPeru Messages postés 172 Date d'inscription mercredi 7 décembre 2016 Statut Membre Dernière intervention 27 mars 2018
Modifié le 26 juin 2017 à 14:45
Bonjour et merci de la réponse,

C' était exactement ca, simple et pertinent!


Bonne journée et encore merci
0