Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel problème macro "Application.Run "OnGenericSetSheetActive""

problème macro "Application.Run "OnGenericSetSheetActive""

7 réponses
Avatar
morprr
Bonjour,

Pour une raison que j'ignore et surtout subitement, j'ai cette erreur
dans mes macros :
Application.Run "OnGenericSetSheetActive"

Pourquoi si vous pouvez me dire, merci.
Signaler un problème avec ce contenu

7 réponses

Supprimer
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
Avatar
michdenis
Bonjour morprr,

Si ta macro a une gestion d'erreur, désactive les lignes de code responsable pour cette gestion, et exécute ton code.
Excel devrait t'indiquer la ligne de code problème !

Publie l'ensemble de ta macro problème ici et soulignant la ligne de code problème ...il doit y avoir une
explication....


Salutations!


"morprr" a écrit dans le message de news: 41beee13$0$13832$
Bonjour,

Pour une raison que j'ignore et surtout subitement, j'ai cette erreur
dans mes macros :
Application.Run "OnGenericSetSheetActive"

Pourquoi si vous pouvez me dire, merci.
Avatar
morprr
Merci michdenis,

Voici les lignes, malheusreusement toutes mes macros semblent avoir le
même virus.

ChDir "C:aaaFimg_pro"
Workbooks.OpenText Filename:="C:aaaFimg_profimg_pro",
Origin:=xlWindows _
, StartRow:=1, DataType:=xlFixedWidth, OtherChar:=":",
FieldInfo:=Array _
(Array(0, 1), Array(12, 1), Array(23, 1), Array(33, 1),
Array(44, 1), Array(53, 1))
Application.Run "OnGenericSetSheetActive"
Rows("1:1409").Select
Selection.Delete Shift:=xlUp
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
ChDir "D:Stats NOM"
Workbooks.Open Filename:= _
"D:Stats NOMLOTGLOBAL.xls"
Application.Run "OnGenericSetSheetActive" -----> à cet
endroit, la macro s'arrête !!!!!!!
Sheets("GPAO-vte tot img et proj").Select
Application.Run "OnGenericSetSheetActive"
ActiveWorkbook.Save
Windows("fimg_pro").Activate
Application.Run "OnGenericSetSheetActive"
Selection.Copy
Windows("LOTGLOBAL.xls").Activate
Application.Run "OnGenericSetSheetActive"
ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
Application.Run "OnGenericSetSheetActive"
ActiveWindow.Close
Application.Run "OnGenericSetSheetActive"
ActiveWorkbook.Save
End Sub>



Bonjour morprr,

Si ta macro a une gestion d'erreur, désactive les lignes de code responsable pour cette gestion, et exécute ton code.
Excel devrait t'indiquer la ligne de code problème !

Publie l'ensemble de ta macro problème ici et soulignant la ligne de code problème ...il doit y avoir une
explication....


Salutations!


"morprr" a écrit dans le message de news: 41beee13$0$13832$
Bonjour,

Pour une raison que j'ignore et surtout subitement, j'ai cette erreur
dans mes macros :
Application.Run "OnGenericSetSheetActive"

Pourquoi si vous pouvez me dire, merci.




Avatar
michdenis
Bonjour,

'---------------------------
Classeur Fermé:
Application.Run "'C:Mes documentsAnswer.xls'!test1"


'Procédure dans un module standard
Classeur Ouvert:
Application.Run "Answer.xls!test1"



L'utilisation des apostrophes "'" permet d'utiliser
un nom de classeur contenant des espaces , sans
ces dernieres, point de salut.

LaMacro = "'" & ThisWorkbook.Name & "'!macro1"
Application.Run LaMacro
'---------------------------


Salutations!



"morprr" a écrit dans le message de news:
Merci michdenis,

Voici les lignes, malheusreusement toutes mes macros semblent avoir le
même virus.

ChDir "C:aaaFimg_pro"
Workbooks.OpenText Filename:="C:aaaFimg_profimg_pro",
Origin:=xlWindows _
, StartRow:=1, DataType:=xlFixedWidth, OtherChar:=":",
FieldInfo:=Array _
(Array(0, 1), Array(12, 1), Array(23, 1), Array(33, 1),
Array(44, 1), Array(53, 1))
Application.Run "OnGenericSetSheetActive"
Rows("1:1409").Select
Selection.Delete Shift:=xlUp
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
ChDir "D:Stats NOM"
Workbooks.Open Filename:= _
"D:Stats NOMLOTGLOBAL.xls"
Application.Run "OnGenericSetSheetActive" -----> à cet
endroit, la macro s'arrête !!!!!!!
Sheets("GPAO-vte tot img et proj").Select
Application.Run "OnGenericSetSheetActive"
ActiveWorkbook.Save
Windows("fimg_pro").Activate
Application.Run "OnGenericSetSheetActive"
Selection.Copy
Windows("LOTGLOBAL.xls").Activate
Application.Run "OnGenericSetSheetActive"
ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
Application.Run "OnGenericSetSheetActive"
ActiveWindow.Close
Application.Run "OnGenericSetSheetActive"
ActiveWorkbook.Save
End Sub>



Bonjour morprr,

Si ta macro a une gestion d'erreur, désactive les lignes de code responsable pour cette gestion, et exécute ton code.
Excel devrait t'indiquer la ligne de code problème !

Publie l'ensemble de ta macro problème ici et soulignant la ligne de code problème ...il doit y avoir une
explication....


Salutations!


"morprr" a écrit dans le message de news: 41beee13$0$13832$
Bonjour,

Pour une raison que j'ignore et surtout subitement, j'ai cette erreur
dans mes macros :
Application.Run "OnGenericSetSheetActive"

Pourquoi si vous pouvez me dire, merci.




Avatar
morprr
Merci pour l'explication à laquelle je n'es rien comprise.
CE que je souhaite savoir, c'est à quoi correspond la macro
OnGenericSetSheetActive, le message d'erreur est qu'il est impossible
de trouver cette macro.
Selon ton explication, il me faut des espaces dans mes noms de
classeurs, mes ces macros ont fonctionné pendant 6 mois sans problème et
du jour au lendeamin, rideau. merci.



Bonjour,

'---------------------------
Classeur Fermé:
Application.Run "'C:Mes documentsAnswer.xls'!test1"


'Procédure dans un module standard
Classeur Ouvert:
Application.Run "Answer.xls!test1"



L'utilisation des apostrophes "'" permet d'utiliser
un nom de classeur contenant des espaces , sans
ces dernieres, point de salut.

LaMacro = "'" & ThisWorkbook.Name & "'!macro1"
Application.Run LaMacro
'---------------------------


Salutations!


Avatar
morprr
Merci michdenis pour l'explication.
Cependant elle ne me va pas. Pendant 6 mois, ces macros ont fonctionné.
Je ne vois pas pourquoi, aujourd'hui, elles se mettent en rade.
Excel me dit qu'il y a une erreur dans l'execution de la macro qui porte
le nom de OnGenericSetSheetActive, pourquoi, je le sais pas. En tout
cas, quand je le refais, elle fonctionne. Le problème, c'est que j'ai 7
macros ayant OnGenericSetSheetActive, donc je souhaiterais savoir à quoi
correspond cette application, merci.


Bonjour,

'---------------------------
Classeur Fermé:
Application.Run "'C:Mes documentsAnswer.xls'!test1"


'Procédure dans un module standard
Classeur Ouvert:
Application.Run "Answer.xls!test1"



L'utilisation des apostrophes "'" permet d'utiliser
un nom de classeur contenant des espaces , sans
ces dernieres, point de salut.

LaMacro = "'" & ThisWorkbook.Name & "'!macro1"
Application.Run LaMacro
'---------------------------


Salutations!



"morprr" a écrit dans le message de news:
Merci michdenis,

Voici les lignes, malheusreusement toutes mes macros semblent avoir le
même virus.

ChDir "C:aaaFimg_pro"
Workbooks.OpenText Filename:="C:aaaFimg_profimg_pro",
Origin:=xlWindows _
, StartRow:=1, DataType:=xlFixedWidth, OtherChar:=":",
FieldInfo:=Array _
(Array(0, 1), Array(12, 1), Array(23, 1), Array(33, 1),
Array(44, 1), Array(53, 1))
Application.Run "OnGenericSetSheetActive"
Rows("1:1409").Select
Selection.Delete Shift:=xlUp
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
ChDir "D:Stats NOM"
Workbooks.Open Filename:= _
"D:Stats NOMLOTGLOBAL.xls"
Application.Run "OnGenericSetSheetActive" -----> à cet
endroit, la macro s'arrête !!!!!!!
Sheets("GPAO-vte tot img et proj").Select
Application.Run "OnGenericSetSheetActive"
ActiveWorkbook.Save
Windows("fimg_pro").Activate
Application.Run "OnGenericSetSheetActive"
Selection.Copy
Windows("LOTGLOBAL.xls").Activate
Application.Run "OnGenericSetSheetActive"
ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
Application.Run "OnGenericSetSheetActive"
ActiveWindow.Close
Application.Run "OnGenericSetSheetActive"
ActiveWorkbook.Save
End Sub>



Bonjour morprr,

Si ta macro a une gestion d'erreur, désactive les lignes de code responsable pour cette gestion, et exécute ton code.
Excel devrait t'indiquer la ligne de code problème !

Publie l'ensemble de ta macro problème ici et soulignant la ligne de code problème ...il doit y avoir une
explication....


Salutations!


"morprr" a écrit dans le message de news: 41beee13$0$13832$
Bonjour,

Pour une raison que j'ignore et surtout subitement, j'ai cette erreur
dans mes macros :
Application.Run "OnGenericSetSheetActive"

Pourquoi si vous pouvez me dire, merci.









Avatar
michdenis
Bonjour Morpr,

Je ne connais pas cette expression : "OnGenericSetSheetActive"

Effectivement, cela semble être une référence à une macro à l'extérieur du fichier où ta macro existe. La question
est-ce que tu utilisais une macro complémentaire personnalisée où une référence particulière lors de l'exécution de
celle-ci. Est-ce que ton environnement s'est modifié récemment ? Une réinstallation de Microsoft Office ?

Désolé, je ne sais pas à quoi "OnGenericSetSheetActive" fait référence !


Salutations!



"morprr" a écrit dans le message de news:
Merci michdenis pour l'explication.
Cependant elle ne me va pas. Pendant 6 mois, ces macros ont fonctionné.
Je ne vois pas pourquoi, aujourd'hui, elles se mettent en rade.
Excel me dit qu'il y a une erreur dans l'execution de la macro qui porte
le nom de OnGenericSetSheetActive, pourquoi, je le sais pas. En tout
cas, quand je le refais, elle fonctionne. Le problème, c'est que j'ai 7
macros ayant OnGenericSetSheetActive, donc je souhaiterais savoir à quoi
correspond cette application, merci.


Bonjour,

'---------------------------
Classeur Fermé:
Application.Run "'C:Mes documentsAnswer.xls'!test1"


'Procédure dans un module standard
Classeur Ouvert:
Application.Run "Answer.xls!test1"



L'utilisation des apostrophes "'" permet d'utiliser
un nom de classeur contenant des espaces , sans
ces dernieres, point de salut.

LaMacro = "'" & ThisWorkbook.Name & "'!macro1"
Application.Run LaMacro
'---------------------------


Salutations!



"morprr" a écrit dans le message de news:
Merci michdenis,

Voici les lignes, malheusreusement toutes mes macros semblent avoir le
même virus.

ChDir "C:aaaFimg_pro"
Workbooks.OpenText Filename:="C:aaaFimg_profimg_pro",
Origin:=xlWindows _
, StartRow:=1, DataType:=xlFixedWidth, OtherChar:=":",
FieldInfo:=Array _
(Array(0, 1), Array(12, 1), Array(23, 1), Array(33, 1),
Array(44, 1), Array(53, 1))
Application.Run "OnGenericSetSheetActive"
Rows("1:1409").Select
Selection.Delete Shift:=xlUp
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
ChDir "D:Stats NOM"
Workbooks.Open Filename:= _
"D:Stats NOMLOTGLOBAL.xls"
Application.Run "OnGenericSetSheetActive" -----> à cet
endroit, la macro s'arrête !!!!!!!
Sheets("GPAO-vte tot img et proj").Select
Application.Run "OnGenericSetSheetActive"
ActiveWorkbook.Save
Windows("fimg_pro").Activate
Application.Run "OnGenericSetSheetActive"
Selection.Copy
Windows("LOTGLOBAL.xls").Activate
Application.Run "OnGenericSetSheetActive"
ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
Application.Run "OnGenericSetSheetActive"
ActiveWindow.Close
Application.Run "OnGenericSetSheetActive"
ActiveWorkbook.Save
End Sub>



Bonjour morprr,

Si ta macro a une gestion d'erreur, désactive les lignes de code responsable pour cette gestion, et exécute ton code.
Excel devrait t'indiquer la ligne de code problème !

Publie l'ensemble de ta macro problème ici et soulignant la ligne de code problème ...il doit y avoir une
explication....


Salutations!


"morprr" a écrit dans le message de news: 41beee13$0$13832$
Bonjour,

Pour une raison que j'ignore et surtout subitement, j'ai cette erreur
dans mes macros :
Application.Run "OnGenericSetSheetActive"

Pourquoi si vous pouvez me dire, merci.









Avatar
morprr
Merci michdenis, je vais remettre une macro complémentaire
que j'ai enlevé, peut-être la solution !!!


Bonjour Morpr,

Je ne connais pas cette expression : "OnGenericSetSheetActive"

Effectivement, cela semble être une référence à une macro à l'extérieur du fichier où ta macro existe. La question
est-ce que tu utilisais une macro complémentaire personnalisée où une référence particulière lors de l'exécution de
celle-ci. Est-ce que ton environnement s'est modifié récemment ? Une réinstallation de Microsoft Office ?

Désolé, je ne sais pas à quoi "OnGenericSetSheetActive" fait référence !


Salutations!



"morprr" a écrit dans le message de news:
Merci michdenis pour l'explication.
Cependant elle ne me va pas. Pendant 6 mois, ces macros ont fonctionné.
Je ne vois pas pourquoi, aujourd'hui, elles se mettent en rade.
Excel me dit qu'il y a une erreur dans l'execution de la macro qui porte
le nom de OnGenericSetSheetActive, pourquoi, je le sais pas. En tout
cas, quand je le refais, elle fonctionne. Le problème, c'est que j'ai 7
macros ayant OnGenericSetSheetActive, donc je souhaiterais savoir à quoi
correspond cette application, merci.



Bonjour,

'---------------------------
Classeur Fermé:
Application.Run "'C:Mes documentsAnswer.xls'!test1"


'Procédure dans un module standard
Classeur Ouvert:
Application.Run "Answer.xls!test1"



L'utilisation des apostrophes "'" permet d'utiliser
un nom de classeur contenant des espaces , sans
ces dernieres, point de salut.

LaMacro = "'" & ThisWorkbook.Name & "'!macro1"
Application.Run LaMacro
'---------------------------


Salutations!



"morprr" a écrit dans le message de news:
Merci michdenis,

Voici les lignes, malheusreusement toutes mes macros semblent avoir le
même virus.

ChDir "C:aaaFimg_pro"
Workbooks.OpenText Filename:="C:aaaFimg_profimg_pro",
Origin:=xlWindows _
, StartRow:=1, DataType:=xlFixedWidth, OtherChar:=":",
FieldInfo:=Array _
(Array(0, 1), Array(12, 1), Array(23, 1), Array(33, 1),
Array(44, 1), Array(53, 1))
Application.Run "OnGenericSetSheetActive"
Rows("1:1409").Select
Selection.Delete Shift:=xlUp
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
ChDir "D:Stats NOM"
Workbooks.Open Filename:= _
"D:Stats NOMLOTGLOBAL.xls"
Application.Run "OnGenericSetSheetActive" -----> à cet
endroit, la macro s'arrête !!!!!!!
Sheets("GPAO-vte tot img et proj").Select
Application.Run "OnGenericSetSheetActive"
ActiveWorkbook.Save
Windows("fimg_pro").Activate
Application.Run "OnGenericSetSheetActive"
Selection.Copy
Windows("LOTGLOBAL.xls").Activate
Application.Run "OnGenericSetSheetActive"
ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
Application.Run "OnGenericSetSheetActive"
ActiveWindow.Close
Application.Run "OnGenericSetSheetActive"
ActiveWorkbook.Save
End Sub>



Bonjour morprr,


Si ta macro a une gestion d'erreur, désactive les lignes de code responsable pour cette gestion, et exécute ton code.
Excel devrait t'indiquer la ligne de code problème !

Publie l'ensemble de ta macro problème ici et soulignant la ligne de code problème ...il doit y avoir une
explication....


Salutations!


"morprr" a écrit dans le message de news: 41beee13$0$13832$
Bonjour,

Pour une raison que j'ignore et surtout subitement, j'ai cette erreur
dans mes macros :
Application.Run "OnGenericSetSheetActive"

Pourquoi si vous pouvez me dire, merci.