D'un form VBA Access vers Excell
Fermé
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
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
A voir également:
- D'un form VBA Access vers Excell
- Windows 7 vers windows 10 - Accueil - Mise à jour
- Clavier qwerty vers azerty - Guide
- Trier un tableau excel - Guide
- Vers quelle adresse web renvoie ce lien - Guide
- Votre envoi est réacheminé vers son site de distribution - Forum Consommation & Internet
1 réponse
DaNot
Messages postés
221
Date d'inscription
mardi 30 septembre 2003
Statut
Membre
Dernière intervention
4 novembre 2005
163
29 sept. 2004 à 09:49
29 sept. 2004 à 09:49
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) :
Ensuite, il suffit d'instancier cet objet dans une macro :
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 ...
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 ...
29 sept. 2004 à 13:14
et merci
mais vu que j'y connais pas grand chose en macro excell et module et tout et tout, j'ai pas bien compris la marche a suivre....
je vais me renseigner un peu et ca devrait venir vite
merci