Mettre à jour un classeur Excel intégré dans un formulaire Access

Mettre à jour un classeur Excel intégré dans un formulaire Access - VB/VBA/VBS - Programmation

Marsh Posté le 14-12-2005 à 18:40:58    

Bonjour à tous,
Je précise tout de suite histoire qu'il n'y ait aucun malentendu que je suis une bille en VBA.
 
Mon pb est le suivant:
J'affiche dans un formulaire Access le résultat d'une requête
Dans ce même formulaire j'ai un classeur excel qui a été intégré en temps qu'objet.
Je souhaite faire une macro (ou autre chose :??: ) qui me colle le contenu du champ de mon formulaire dans une cellule de ce classeur Excel.
 
Ca à l'air tout con mais ça fait 2 jours que je tourne en rond dessus :cry:
 
Merci pour votre aide :jap:

Reply

Marsh Posté le 14-12-2005 à 18:40:58   

Reply

Marsh Posté le 15-12-2005 à 19:46:03    

Up! Personne pour m'aider?

Reply

Marsh Posté le 15-12-2005 à 23:04:08    

Dans access il te faut référencer excel (outil/référence/excel 9.0 ou 10.0 suivant ta version
Ensuite tu déclares deux variables dans un module
style :
Public xlAppList As Excel.Application
Public ThisWorkbook As Excel.Workbook
Tu définis dans ton formulaire access le chemin vers ton fichier excel :
PathExcelFile = App.Path & "\" & NameExcelFile
Tu vas ouvrir ce fichier excel :
Set xlAppList = CreateObject("Excel.Application" ) 'crée une instance excel
Ouvre le classeur avec :
set thisWorkbook=xlAppList.Workbooks.Open PathExcelFile, 0, , , "MotDePasseSiExiste"
 tu vas lire la valeur que tu souhaite intégrer dans excel :
ValeurAColler=champX.value
tu fais :
xlAppList.Thisworkbook.sheets("nomdela feuille" ).select
puis
xlAppList.Thisworkbook.activeSheet.range("A1" ).activate (si tu veux mettre la valeur dans la cellule A1
et
Activecell.value=valeurAColler
pense à refermer le classeur en l'enregistrant
désinstancier tes variables
Set xlAppList = nothing
set thisWorkbook=nothing
Il faudra sans doute voir l'action à faire pour que l'objet excel intégré soit mis à jour...cela dépend de la liaison..
Je te mets tout cela de tête...demain au bureau j'ai des codes sur la questions donc si besoin relance...


---------------
jmlucienvb
Reply

Marsh Posté le 15-12-2005 à 23:32:06    

[:foxy92] bcp je teste demain au boulo et je te tiens au courant :)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed