Ajouter un fichier Excel dans Access

Bolska -  
Le Pingou Messages postés 12276 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

Pourriez-vous m'aider à trouver comment ajouter un bouton dans Access pour qu'il ouvre un fichier Excel?
Merci de votre aide.
Configuration: Windows XP
Internet Explorer 6.0

1 réponse

  1. Le Pingou Messages postés 12276 Date d'inscription   Statut Contributeur Dernière intervention   1 478
     
    Bonsoir,
    Vous rattachez votre bouton de commande à ce code :

    Sub VersExcel()
    '---- Déclarations des variables
    Dim Xl As Excel.Application
    Dim Classeur As Excel.Workbook
    Dim Feuille As Excel.Worksheet

    '---- Ouvre Excel et le classeur sur la feuille 3
    Set Xl = New Excel.Application
    Xl.Visible = True
    Set Classeur = Xl.Workbooks.Open("P:\**\**\**\Divers\Mon_Classeur.xls")
    Set Feuille = Mon_Classeur.Worksheets("Feuil3")

    End Sub
    0