Ajouter un fichier Excel dans Access
Fermé
Bolska
-
4 déc. 2007 à 20:53
Le Pingou Messages postés 12048 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 26 avril 2024 - 4 déc. 2007 à 21:09
Le Pingou Messages postés 12048 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 26 avril 2024 - 4 déc. 2007 à 21:09
A voir également:
- Ajouter un fichier Excel dans Access
- Fichier rar - Guide
- Liste déroulante excel - Guide
- Fichier host - Guide
- Fichier iso - Guide
- Comment réduire la taille d'un fichier - Guide
1 réponse
Le Pingou
Messages postés
12048
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
26 avril 2024
1 427
4 déc. 2007 à 21:09
4 déc. 2007 à 21:09
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
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