d'un form VBA Access vers Excell Fermé

Question

yo
kelk'un pourrait-il m'expliquer en francais (vraiment etape par etape) comment on peut transferer le contenu d'une lisbox dans un formulaire access vers une feuille excell

en fait, je n'arrive pas a copier le contenu de ma liste box (quand je fait copier-coller, je recolte que la premiere cas de toute ma selection)

j'aimerai le faire avec un bouton sur le formulaire mais si deja vous m'expliquez le copier coller, ca le fait.

merci les amis

DaNot · Answer

Salut,

Personnellement, lorsque j'ai un lien de Access vers Excel, j'utilise un objet ActiveX. Voici, le code que j'utilise (module de classe) :

Option Compare Database
Option Explicit

Public gExcelApp As Excel.Application

Private Sub Class_Initialize()
    
   On Error GoTo NoExcelLaunched
   
   gExcelAppLaunched = False
   
   'Try to get Excel application (if running)
   Set gExcelApp = GetObject(, "Excel.Application")
   GoTo CommonEnd

NoExcelLaunched:
   On Error GoTo EndOfSub
   'No Excel running => Creation
   Set gExcelApp = CreateObject("Excel.Application")

CommonEnd:
   Exit Sub

EndOfSub:
   MsgBox "Error occured during launch Excel application (class ExcelClass)"

End Sub

Private Sub Class_Terminate()
    
   Set gExcelApp = Nothing

End Sub

Ensuite, il suffit d'instancier cet objet dans une macro :

Dim lExcel As MSExcel_Class
Set lExcel = New MSExcel_Class
...
lExcel.gExcelApp.Workbooks.Add
...
Set lExcel = Nothing

MSExcel_Class est le nom du module de classe défini plus haut.
Avec la variable lExcel.gExcelApp, tu pointes un objet Application d'Excel comme dans une macro Excel classique.

En esperant que ca pourra t'aider...

DaNot
un Libre ouvert à la source ...

D'un form VBA Access vers Excell

1 réponse

Discussions similaires