Excel-Project-VBA

Résolu
GermPeru Messages postés 172 Date d'inscription   Statut Membre Dernière intervention   -  
GermPeru Messages postés 172 Date d'inscription   Statut Membre Dernière intervention   -
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

Réponse 1 / 2
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
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   Statut Membre Dernière intervention  
 
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 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584 > GermPeru Messages postés 172 Date d'inscription   Statut Membre Dernière intervention  
 
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   Statut Membre Dernière intervention   > yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention  
 
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   Statut Membre Dernière intervention  
 
J´arrive a tester si le fichier est ouvert mais je n´arrive a acceder a ce fichier...
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584 > GermPeru Messages postés 172 Date d'inscription   Statut Membre Dernière intervention  
  
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
Réponse 2 / 2
GermPeru Messages postés 172 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour et merci de la réponse,

C' était exactement ca, simple et pertinent!


Bonne journée et encore merci
0