Accueil
Accueil Le Club Delphi Kylix C C++ Java J2EE DotNET & C# Visual Basic Access Pascal Dev Web PHP ASP XML UML SQLSGBD Windows Linux Autres
logo
Sommaire > VBA > Interaction avec d'autres applications > Applications Office
        Comment piloter une autre application Office à partir de MS Access ?
        Comment exécuter une macro Access depuis n'importe quelle application Office supportant VBA ?
        Comment exécuter une procédure Access depuis n'importe quelle application Office supportant VBA ?
        Comment, depuis n'importe quelle application Office supportant VBA, commander l'exportation de tables ou requêtes Access au format Excel ?
        11.7.1.1. Excel (13)
                Comment exporter un fichier Excel vers CSV
                Tester si une feuille Excel existe au sein d'un classeur
                Piloter Excel via Access : exemples d'opérations courantes effectuées sur cellules, plages, lignes ou colonnes excel à partir d'access.
                Importation de fichier Excel
                Lors d'export vers Excel, comme forcer Excel à interpréter les données comme du texte ?
                Comment exporter le résultat d'une requête sous Excel ?
                Comment envoyer des données Access sur Excel ?
                Récupérer le nom du classeur Excel actif
                Comment ouvrir un fichier vierge basé sur un modèle et travailler sur cette session d'Excel, puis retourner dans Access
                Comment vérifier qu'Excel soit installé sur un poste ?
                Comment enregistrer (ou non) les modifications apportées à un classeur excel, sans demander à l'utilisateur ?
                Comment lister les onglets d'un fichier excel sans l'ouvrir
                Comment modifier la valeur d'une cellule d'un classeur excel fermé en DAO ?
        11.7.1.2. Outlook (6)
                Comment envoyer un mail avec Outlook ?
                Comment récupérer le carnet d'adresses d'Outlook ?
                Ajout de rendez-vous dans Microsoft Outlook à l'aide d'Automation
                Comment ajouter des contacts dans la liste des contacts commune sous Outlook avec un serveur Exchange ?
                Comment sauvegarder un mail ?
                Comment envoyer un mail format HTML avec Outlook
        11.7.1.3. Word (4)
                Publipostage de données Access vers Word (en VBA)
                Comment exécuter une macro Word à partir d'Access
                Comment imprimer un document Word ?
                Comment ouvrir un document Word depuis VBA en désactivant les macro qu'il contient ?
        11.7.1.4. Access (4)
                Comment ouvrir un formulaire ou un état depuis une autre application Access ? (intégration d'applications)
                Comment ouvrir par le code une autre base Access et ouvrir un de ses formulaires ?
                Comment travailler sur une autre base de données Access protégée par un mot de passe ?
                Comment récupérer le code d'une base Access non ouverte par VBA ?
        11.7.1.5. Power Point (1)
                Comment exécuter une présentation PowerPoint depuis Access ?

precedent    sommaire    suivant   


Comment piloter une autre application Office à partir de MS Access ?
auteur : Bidou
    Dim xlApp As Object
    Dim mySheet As Object
    
    Set xlApp = CreateObject("Excel.Application")
    Set mySheet = xlApp.Workbooks.Open("D:\EXCEL\test.xls") ' Définit le fichier EXCEL à ouvrir
    
    ' endroit  mettre le code de pilotage

    ' Code de fermeture
    mySheet.Save
    mySheet.Close
    xlApp.Quit
    Set xlApp = Nothing
    Set mySheet = Nothing
Remarque : si vous créez un nouveau fichier plutôt que d'en ouvrir un nouveau en utilisant
    Set mySheet = xlApp.Workbooks.Add 
vous devrez obligatoirement remplacer
     mySheet.Save
par
     mySheet.SaveAs "NomDuFichier" 
Car quand le nom du fichier n'est pas connu la méthode Save affiche une boîte de dialogue ne sera visible que si Excel l'est, ce qui n'est pas le cas dans notre exemple. En dehors de la phase de test il est préférable de ne pas rendre l'application visible pour éviter que l'utilisateur n'interfère, par exemple en fermant Excel.

lien : fr Utiliser Excel à partir de Visual Basic
lien : fr VB/VBA : Programmer efficacement avec Excel

Comment exécuter une macro Access depuis n'importe quelle application Office supportant VBA ?
auteur : tibadabo
Sub ExécuterMacroAccess()
 Dim MonAccess As New Access.Application
 MonAccess.OpenCurrentDatabase "D:\etude.mdb" 'Ici le chemin de la bdd Access
 DoCmd.RunMacro "Export" 'Ici le nom de la macro
 MonAccess.Quit acquitsaveNone
 Set MonAccess = Nothing
End Sub

Comment exécuter une procédure Access depuis n'importe quelle application Office supportant VBA ?
auteur : Lucifer
Dans Access on fait une procédure dans un module.

exemple :
Public Sub test(pArg as string)
MsgBox "Bonjour Maître "  & pArg
End Sub
et on l'appelle de la façon suivante depuis Excel ou tout autre application office-vba :
Sub Bouton1_QuandClic()
Dim MonAccess As New Access.Application
MonAccess.OpenCurrentDatabase "D:\etude.mdb"
MonAccess.run "test", "Lucifer"
MonAccess.Quit acquitsaveNone
Set MonAccess = Nothing
End Sub

Comment, depuis n'importe quelle application Office supportant VBA, commander l'exportation de tables ou requêtes Access au format Excel ?
auteur : Lucifer
On définit au préalable dans un module Access, la procédure d'exportation :

exemple :
Public Sub Export()
DoCmd.TransferSpreadsheet acExport, , "table1", "D:\Etudes1.xls", False, ""
DoCmd.TransferSpreadsheet acExport, , "table2", "D:\Etudes2.xls", False, ""
DoCmd.TransferSpreadsheet acExport, , "requête3", " D:\EtudesSuite.xls ", False, ""
DoCmd.TransferSpreadsheet acExport, , "requête4", " D:\EtudesSuite.xls ", False, ""
DoCmd.TransferSpreadsheet acExport, , "X OPCVM brut", " D:\EtudesAutre.xls ", False, ""
End Sub
Ensuite on appelle la procédure Export de la façon suivante depuis excel ou tout autre application office-vba :
Sub Bouton1_QuandClic()
Dim MonAccess As New Access.Application
MonAccess.OpenCurrentDatabase "D:\etude.mdb"
MonAccess.run "Export"
MonAccess.Quit acquitsaveNone
Set MonAccess = Nothing
End Sub 

precedent    sommaire    suivant   

Consultez les autres F.A.Q's


Les sources présentés sur cette pages sont libre de droits, et vous pouvez les utiliser à votre convenance. Par contre cette page de présentation de ces sources constitue une oeuvre intellectuelle protégée par les droits d'auteurs. Copyright ©2004  Developpez LLC. Tout droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à 3 ans de prison et jusqu'à 300 000 E de dommages et intérets. Cette page est déposée à la SACD.

Vos questions techniques : forum d'entraide Accueil - Publiez vos articles, tutoriels, cours et rejoignez-nous dans l'équipe de rédaction du club d'entraide des développeurs francophones. Nous contacter - Copyright 2000..2005 www.developpez.com