declencher une macro suite a une modification d une feuille Excel

Bonjour tout le monde,

Voila mon probleme :
j exporte d access vers excel une liste et je voudrais ecrire sur mon fichier excel (celui qui recoit l exportation) une macro qui transfere une partie de cette liste sur une autre feuille du meme fichier excel. (car je voudrais eviter d avoir a l ouvrir pour effectuer le transfert d une page a l autre)

ex Ma base s appelle BD
mon fichier excel EX

je travaille sur BD (seul fichier ouvert)
je declenche l exportation de ma requete vers EX
(celle ci se placant toujours au meme endroit (en feuille 5))
et juste apres que ma liste soit arrivé en feuille 5 de EX, c'est la que devrait se declenché ma macro pour transferer une partie de ma liste en feuille 2 (toujours de EX).

Mon but est de ne pas avoir a ouvrir le classeur EX.

Comment faire ?

Bonjour,

Quand tu utilises l'exportation de Acces vers Excel, cela doit bien ouvrir Excel non ?

Si c'est le cas, tu peux utiliser l'événement qui suit (dans la feuille d'arrivée):

Code:

---

1 2 3

Private Sub Worksheet_Change(ByVal Target As Range)   End Sub

---

sinon carrément au niveau du classeur avec l'événement :

Code:

---

1 2 3

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)   End Sub

---

+

Théo

ben ca marche pas !

l exportation de access vers Excel se passe bien mais la macro ne se declenche pas

j ai du me planter ou oublir de spécifier qqchose

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub Makro1() Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)   Dim n As Integer n = Sheets(4).Range("a1").End(xlToRight).Column Sheets(4).Activate Range("a1").Select Range(Selection, Cells(1, n - 1)).Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets(2).Range("a1")   End Sub

---

qu est ce que tu en penses??

bonjour

il y a un soucis car tu as 2 Sub imbriqués dans ta procédure:

Code:

---

1 2 3

Sub Makro1() Private Sub Workbook_SheetChange ....

---

Ta procédure evenementielle doit être placée dans le module objet de ta feuille:

http://silkyroad.developpez.com/VBA/EvenementsFeuille/


de plus Workbook_SheetChange et Worksheet_Change, ce n'est pas la meme chose:

http://silkyroad.developpez.com/VBA/EvenementsClasseur/


bonne soirée
michel

pardon pour le sub en trop j ai copié mon code un peu vite ...

mais meme en placant mon code dans le module de ma feuille toujours rien

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub WorkSheet_Change(ByVal, Target As Range)   Dim n As Integer n = Range("a1").End(xlToRight).Column Range("a1").Select Range(Selection, Cells(1, n - 1)).Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets(2).Range("a1")   End Sub

---

lorsque j ouvre le classeur et que je modifie n importequelle cellule de ma feuille (ou g ecrit le code). la, pas de probleme, la macro se declenche automatiquement.

Mais qd j exporte, de ma base de donnée, ma liste vers le fichier excel (celui ci etant biensur fermé) il n y pas de declenchement de la macro a l interieur de celui ci.
pourtant quand je l ouvre, je constate que l importation a bien eu lieu.
l importation a bien sur modifié plein de cellules au niveau de la feuille, elle aurait du declencher la macro ! ?? :koi:
Suis je obligé d ouvrir ce fichu classeur pour executer ma macro ?

bonjour

Citation:

---

Mais qd j exporte, de ma base de donnée, ma liste vers le fichier excel (celui ci etant biensur fermé) il n y pas de declenchement de la macro a l interieur de celui ci.

---

Je n'avais pas compris que le classeur était fermé: Dans ce cas c'est normal qu'il ne se passe rien. A ma connaissance, il n'est pas possible de déclencher une macro dans un classeur fermé.


michel

Bonjour,

Dans ce cas, je pense qu'il faut faire une vérification de la modification du workbook à l'ouverture du fichier et effectuer à ce moment là le traitement que tu souhaites.

L'événement se passant à l'ouverture du fichier est "Workbook_Open()"

Bonne continuation

Théo

L exportation d access vers excel ne pouvant pas se faire tant que mon classeur est ouvert (en plus il contient des feuilles liées a certaines tables de ma bases...),
et si je codais dans ma macro access, apres l exportation de ma requete:
- l ouverture du fameux classeur excel,
- une modification quelconque sur ma feuille genre en A66000, celle ci devrait alors declencher ma macro puisque cette fois ci mon classeur est ouvert...
- la fermeture du classeur excel

1- est ce jouable ? :?
2- si oui, connaissez vous ce genre de code en SQL ?

Hello,

Pourquoi ne pas mettre ton code de copie de colonne directement dans ton exportation Access ?
Sinon pour lancer une macro depuis Access c'est :

Code:

---

<objApplicationExcel>.Run "Nom Macro"

---

Citation:

---

Envoyé par chamus

pardon pour le sub en trop j ai copié mon code un peu vite ...

mais meme en placant mon code dans le module de ma feuille toujours rien

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub WorkSheet_Change(ByVal, Target As Range)   Dim n As Integer n = Range("a1").End(xlToRight).Column Range("a1").Select Range(Selection, Cells(1, n - 1)).Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets(2).Range("a1")   End Sub

---

lorsque j ouvre le classeur et que je modifie n importequelle cellule de ma feuille (ou g ecrit le code). la, pas de probleme, la macro se declenche automatiquement.

Mais qd j exporte, de ma base de donnée, ma liste vers le fichier excel (celui ci etant biensur fermé) il n y pas de declenchement de la macro a l interieur de celui ci.
pourtant quand je l ouvre, je constate que l importation a bien eu lieu.
l importation a bien sur modifié plein de cellules au niveau de la feuille, elle aurait du declencher la macro ! ?? :koi:
Suis je obligé d ouvrir ce fichu classeur pour executer ma macro ?

---

Citation:

---

Envoyé par cafeine

Hello,

Pourquoi ne pas mettre ton code de copie de colonne directement dans ton exportation Access ?
Sinon pour lancer une macro depuis Access c'est :

Code:

---

<objApplicationExcel>.Run "Nom Macro"

---

---

Bonjour,

Cela fonctionne en effet à condition que la macro appelée soit déclarée comme publique.

+

Théo

Citation:

---

Envoyé par Chamus

- l ouverture du fameux classeur excel,

---

Théo te donne une indication pour que la macro soit lancée à l'ouverture du fichier Excel, pas besoin d'aller chercher une cellule A66000 pour la déclencher.
Tu places ta macro Workbook_Open() dans un module standard de ton fichier Excel et quand tu ouvres ton fichier, elle s'exécute.
A toutes fins utiles ;)

Voila in fine mon bricolage:
j utilise un macro Workbook_open() dans mon classeur excel

Et dans mon fichier access, j ai le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9

Function OuvertureClasseur(ByVal nom As String) Dim chemin As String Dim MonApp As Object Set MonApp = CreateObject("Excel.Application") chemin = "C:\Documents and Settings\Administrateur\Bureau\" & nom & ".xls" MonApp.workbooks.Open chemin MonApp.workbooks("nom" & ".xls").Close   End Function

---

comme ca mon fichier excel s ouvre et ca declenche la macro :P

juste 2 questions finales :
-mon dernier code bug sur la derniere ligne, apparemment c est pas la bonne syntaxe pour coder la fermeture du fichier excel
-mon fichier excel a beau etre ouvert, il n est pas affiché.
je pensait qu il ne s ouvrait pas au depart, mais des que j ouvre un autre fichier excel, il apparait aussitot (y a t il une explication ou s agit il d un caprice de mon micro vieillissant ?)

Code:

---

MonApp.workbooks("nom" & ".xls").Close

---

ce ne serait pas mieux avec ?

Code:

---

MonApp.workbooks(nom & ".xls").Close

---

Ouais c est beaucoup mieux ....:D


Le code DAO que tu m a proposé sur le forum access aurait été plus pratique, mais bon en attendant, celui la fonctionne.
Merci beaucoup.

bonne soirée a tous

Citation:

---

Envoyé par chamus

...

Code:

---

1 2 3 4 5

... MonApp.workbooks.Open chemin MonApp.workbooks("nom" & ".xls").Close   End Function

---

...
-mon fichier excel a beau etre ouvert, il n est pas affiché.
je pensait qu il ne s ouvrait pas au depart, mais des que j ouvre un autre fichier excel, il apparait aussitot (y a t il une explication ou s agit il d un caprice de mon micro vieillissant ?)

---

Personnellement, j'utiliserais un objet WorkBook

Code:

---

1 2 3 4 5 6 7 8

dim wk as Excel.Workbook   set wk = MonApp.workbooks.Open(chemin) wk.windows(1).visible=true wk.Close set wk = nothing ...

---

Ainsi, tu ne te tracasses plus du nom, et c'est plus simple pour rendre l'objet visible.

ok, merci Pierre. ;)