Table des matières
Ouvrir le fichier Excel
Cette fonction ci-dessous ouvrira un fichier Excel avec Access VBA.
Avant d'utiliser la fonction, assurez-vous d'ajouter une référence à Bibliothèque d'objets Microsoft Excel en allant à Outils > Références et vérifier Bibliothèque d'objets Microsoft Excel.
Fonction publique OpenExcelFile(strFilePath As String) As Boolean 'Required : Tools > References : Add reference to Microsoft Excel Object Library Dim appExcel As Excel.Application Dim myWorkbook As Excel.Workbook Set appExcel = CreateObject("Excel.Application") Set myWorkbook = appExcel.Workbooks.Open(strFilePath) appExcel.Visible = True 'Faire quelque chose ou simplement laisser ouvert Set appExcel = Nothing Set myWorkbook = Nothing End Function 'Exemple d'utilisation Sub OpenExcelFile_Example() Appeler OpenExcelFile("C:\Users\StevePC2\Downloads\ test.xlsx") End Sub
Ouvrir un document Word à l'aide d'Access VBA
Définissez d'abord une référence à la bibliothèque Word pour l'environnement Access VBA.
Noter: Pour ce faire, dans le VBE, accédez à Outils> Références et cochez la bibliothèque d'objets Microsoft Word 15.0.
Le code suivant vous permettra d'ouvrir votre document Word en utilisant Access :
Dim WordDoc As Object Set WordDoc = CreateObject("Word.Application") WordDoc.Visible = True WordDoc.Documents.Open "C:\Users\Taryn\Desktop\BusinessDocument.docx" Set WordDoc = Nothing
Ou vous pouvez adapter la fonction Ouvrir un fichier Excel ci-dessus pour créer une fonction permettant d'ouvrir un document Word à partir d'Access VBA.
