Lancer une macro en fermant mon fichier Excel

Question

Bonjour à tous et à toutes,

J'utilise le code suivant pour copier les cellules d'une colonne et les coller dans une colonne se situant dans un autre fichier.
Range("C2:C34").Select
    Selection.Copy
    Range("E11").Select
    Workbooks.Open FileName:= _
        "X:\Chemin
om de mon fichier.xls "
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False

La macro fonctionne mais je souhaite savoir s'il est possible de la lancer en fermant mon fichier Excel et non pas en passant par Outis\Macro\Macros: autrement dit comment forcer l'exécution de cette macro.

Merci pour vous conseils.

jrivet · Answer

Salut,

Tu peux essayer de te servir de l'&#233;v&#233;nement suivant propre &#224; un classeur:

Private Sub Workbook_BeforeClose(Cancel As Boolean)


End Sub



@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

cs_ZANUS · Answer

Salut Julien



Merci pour ta r&#233;ponse. J'essaie demain.



Bonne soir&#233;e.

jrivet · Answer

Re,

Mais y a pas de quoi.
J esp&#232;re que ceci pourra t'aider.
Tiens moi au courant (m&#234;me si c'est avec un r&#233;ponse acc&#233;pt&#233;e)

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

cs_ZANUS · Answer

Bonjour,

Malheureusement, pour l'instant ça ne fonctionne pas mais je n'ai pas de message d'erreur. Le fichier sur lequel je copie la colonne se ferme mais le fichier sur lequel le collage doit se faire ne s'ouvre pas.Et dans tous les cas, si je l'ouvre manuellement pour faire la vérification, il n' y a pas de collage (ce qui est logique puisqu'il ne s'ouvre pas. Pour l'instant je n'ai pas mis de lignes de code pour l'enregistrement des modifications et la fermeture).

Je continue à chercher

Bye

jrivet · Answer

Re,

En debug ca te donnes quoi?

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

cs_ZANUS · Answer

Bonsoir,



Je veux bien d&#233;bugger mais justement je n'ai pas de message d'erreur:
compilation, ex&#233;cution,d&#233;passement de capacit&#233;, variable non d&#233;clar&#233;e.

Par contre, je ne sais pas si &#231;a joue ou pas et que je n'ai pas pr&#233;cis&#233;
c'est que le fichier que le fichier sur  lequel, se trouve la
colonne &#224; copier ne se trouve pas sur le m&#234;me r&#233;seau que celui sur
lequel se trouve le fichier dans lequel, je veux coller la colonne en
question. Pourtant, si je lance classoquement ma macro, il n'y a aucun
souci.

Ou mon erreur vient du fait que je ne colle pas la ligne au bon
endroit: je dois bien la mettre dans VBAProject (nom du fichier.xls)?



Merci pour ta pers&#233;v&#233;rance

jrivet · Answer

Salut,

Private Sub Workbook_BeforeClose(Cancel As Boolean)
End Sub

Tu dois coller ce code dans la fenetre ThisWorkBook

Ensuite pour ce qui du fichier r&#233;seau, je ne sais pas si cela peux venir de ca, en revanche ce que tu peux essayer de faire c'est faire une copie locale de ce fichier pour voir si ca marche d&#233;ja en local, et ensuite seulement essayer en r&#233;seau

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

cs_ZANUS · Answer

Bonjour,

J'ai essayé effectivement de faire une copie locale. Voici ce qui se passe après avoir cliqué sur la croix de fermeture. Le fichier sur lequel je veux faire le collage s'ouvre bien avec un message sur le document du type: "Un fichier nommé.....existe déjà à cet emplacement. Voulez-vous le remplacer?". Tu vas penser que c'est normal puisque le fichier a été modifié suite au collage. Mais le problème, c'est que justement le fichier n'a pas été modifié. Je le vois sur l'écran et bien sûr j'ai vérifié en répondant oui et en ouvrant à nouveau le fichier: le collage n'a pas été fait.
C'est assez étrange puisque que si je lance classiquement ma macro, le collage se fait bien et là je trouve normal que j'ai une fenêtre qui m'indique que mon fichier a été modifié.
Je ne sais pas si t'as saisi ce que j'ai voulu dire mais en tout cas, je ne comprends pas pourquoi la macro fonctionne dans un cas et pas dans l'autre mais sans fenêtre de débogage.C'est comme si après ouvert le fichier sur lequel je veux faire le collage, la macro ne tenait plus compte del'instruction Range("C2:C34").Select
                Selection.Copy
Attention la copie se fait sur mon premier fichier.
Si t'arrives à voir où est mon problème, fais moi signe.

Merci beaucoup

@+

Lancer une macro en fermant mon fichier Excel

8 réponses

Discussions similaires