none
Ouvrir Excel depuis Outlook

    Question

  • Bonjour,


    Je repose une question déjà posée ailleurs que sur ce forum.


    Je cherche à faire dialoguer Outlook avec Excel. La procédure entière fonctionne, mais à certaines conditions et j'aimerais pouvoir les modifier.


    J'ai défini mes variables de la façon suivante :


    Dim XlApp, XlClas, XlSheet

        'Création d'un Excel
        Set XlApp = CreateObject("Excel.Application")
        'Ouverture du classeur
        Set XlClas = XlApp.Workbooks.Open("C:\Users\sandr\Documents\Mes sources de données\TEST3.xlsm") 'UpdateLinks:=0

        ' de la feuille

        Set XlSheet = XlClas.Sheets("Suivi dossiers")


    Je termine ensuite ma procédure par ceci :

     'Sauvegarde des modifications et fermeture du classeur
        XlClas.Close True 'Close True
        'On quitte Excel
        XlApp.Quit
        'On libère la mémoire des variables
        Set XlClas = Nothing
        Set XlApp = Nothing



    A ce stade, je cherche

    - à signaler à Excel de ne pas mettre à jour les valeurs; le UpdateLinks:=0 ne fonctionne pas alors quel pourrait être le code ?

    - à ce que la procédure fonctionne également si le fichier est déjà ouvert;

    - à ne pas quitter Excel tout en évitant que mon fichier ne se retrouve en lecture seule et utilisé par Excel.


    Merci par avance à toute personne qui pourra m'apporter son aide, sachant que je suis encore novice !
    vendredi 6 juillet 2018 12:16