Stopper l'éxecution de macro à l'ouverture d'un classeur Excel ?
1 réponse
Geth44
Bonjour,
Petit souci avec l'ouverture de classeur Excel dans VB. Quelqu'un
connaitrait-il un moyen pour empécher l'éxecution d'une macro Auto-Open ou
d'une procédure (auto) Workbook_Open lors de l'ouverture du classeur. Les
paramètres de la commande ObjectExcel.Workbooks.Open (...) ne le permette pas
!
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Alain CROS
Bonjour,
La macro Auto_Open n'est jamais executé lorsque le classeur est ouvert par ObjectExcel.Workbooks.Open ... Il faut le spécifier . L'évenement Workbook_Open, lui, est toujours déclanché sauf si les évènements sont désactivés.
Un petit exemple en vbs qui déclanche la macro Auto_Open mais qui empéche l'évènement Workbook_Open.
Dim XL Set XL = CreateObject("Excel.Application") With XL .Visible = True .EnableEvents = False .Workbooks.Open "LeNomCompletDuFichier.xls" .EnableEvents = True .ActiveWorkbook.RunAutoMacros 1 End With Set XL = Nothing
Alain CROS
"Geth44" a écrit dans le message de news: | Bonjour, | | Petit souci avec l'ouverture de classeur Excel dans VB. Quelqu'un | connaitrait-il un moyen pour empécher l'éxecution d'une macro Auto-Open ou | d'une procédure (auto) Workbook_Open lors de l'ouverture du classeur. Les | paramètres de la commande ObjectExcel.Workbooks.Open (...) ne le permette pas | ! | | Merci d'avance | -- | TG
Bonjour,
La macro Auto_Open n'est jamais executé lorsque le classeur est ouvert par ObjectExcel.Workbooks.Open ...
Il faut le spécifier .
L'évenement Workbook_Open, lui, est toujours déclanché sauf si les évènements sont désactivés.
Un petit exemple en vbs qui déclanche la macro Auto_Open mais qui empéche l'évènement Workbook_Open.
Dim XL
Set XL = CreateObject("Excel.Application")
With XL
.Visible = True
.EnableEvents = False
.Workbooks.Open "LeNomCompletDuFichier.xls"
.EnableEvents = True
.ActiveWorkbook.RunAutoMacros 1
End With
Set XL = Nothing
Alain CROS
"Geth44" <geth44-a.virer@cegetel.net> a écrit dans le message de news: 84433FBD-2005-4E23-A744-39D5D018A642@microsoft.com...
| Bonjour,
|
| Petit souci avec l'ouverture de classeur Excel dans VB. Quelqu'un
| connaitrait-il un moyen pour empécher l'éxecution d'une macro Auto-Open ou
| d'une procédure (auto) Workbook_Open lors de l'ouverture du classeur. Les
| paramètres de la commande ObjectExcel.Workbooks.Open (...) ne le permette pas
| !
|
| Merci d'avance
| --
| TG
La macro Auto_Open n'est jamais executé lorsque le classeur est ouvert par ObjectExcel.Workbooks.Open ... Il faut le spécifier . L'évenement Workbook_Open, lui, est toujours déclanché sauf si les évènements sont désactivés.
Un petit exemple en vbs qui déclanche la macro Auto_Open mais qui empéche l'évènement Workbook_Open.
Dim XL Set XL = CreateObject("Excel.Application") With XL .Visible = True .EnableEvents = False .Workbooks.Open "LeNomCompletDuFichier.xls" .EnableEvents = True .ActiveWorkbook.RunAutoMacros 1 End With Set XL = Nothing
Alain CROS
"Geth44" a écrit dans le message de news: | Bonjour, | | Petit souci avec l'ouverture de classeur Excel dans VB. Quelqu'un | connaitrait-il un moyen pour empécher l'éxecution d'une macro Auto-Open ou | d'une procédure (auto) Workbook_Open lors de l'ouverture du classeur. Les | paramètres de la commande ObjectExcel.Workbooks.Open (...) ne le permette pas | ! | | Merci d'avance | -- | TG