Excel-Project-VBA

Résolu
GermPeru -  
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!

2 réponses

  1.  yg_be Contributeur
    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
    1. GermPeru Auteur
      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
    2. yg_be Contributeur
      @GermPerujuste une idée: 
      Dim Appli As Excel.Application, Wb As Excel.Workbook
Set wb = Appli.Workbooks(stCaminoExcel)
    3. GermPeru Auteur
      @yg_beBonjour 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
    4. GermPeru Auteur
      J´arrive a tester si le fichier est ouvert mais je n´arrive a acceder a ce fichier...
    5. yg_be Contributeur
      @GermPeru
      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)
  2. GermPeru Auteur
    Bonjour et merci de la réponse,

    C' était exactement ca, simple et pertinent!

    Bonne journée et encore merci