declencher une macro suite a une modification d une feuille Excel

**chamus** · 08/01/2007, 17h53

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 ?

**Theocourant** · 08/01/2007, 18h00

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 VB :

Sélectionner tout - Visualiser dans une fenêtre à part

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 VB :

Sélectionner tout - Visualiser dans une fenêtre à part

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

+

Théo

**chamus** · 08/01/2007, 18h35

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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??

**SilkyRoad** · 08/01/2007, 18h57

bonjour

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**chamus** · 09/01/2007, 00h07

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ! ??

Suis je obligé d ouvrir ce fichu classeur pour executer ma macro ?

**SilkyRoad** · 09/01/2007, 05h42

bonjour

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

**Theocourant** · 09/01/2007, 09h13

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

**chamus** · 09/01/2007, 11h24

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 ?

**cafeine** · 09/01/2007, 11h53

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

<objApplicationExcel>.Run "Nom Macro"

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ! ??

Suis je obligé d ouvrir ce fichu classeur pour executer ma macro ?

**Theocourant** · 09/01/2007, 11h56

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

<objApplicationExcel>.Run "Nom Macro"

Bonjour,

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

+

Théo

**ouskel'n'or** · 09/01/2007, 11h59

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

**chamus** · 10/01/2007, 16h03

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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 ?)

**cafeine** · 10/01/2007, 16h22

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ce ne serait pas mieux avec ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**chamus** · 10/01/2007, 18h41

Ouais c est beaucoup mieux ....

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

**Pierre Fauconnier** · 10/01/2007, 18h48

Envoyé par chamus

...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

**chamus** · 11/01/2007, 10h50

ok, merci Pierre.

declencher une macro suite a une modification d une feuille Excel

Macros et VBA Excel

Discussions similaires

Partager

Partager