OVH Cloud OVH Cloud

Macro VBA bloqué par Anti Virus Kaspersky

2 réponses
Avatar
philzig34
Salut à tous et Meilleurs Voeux pour 2005

Dans une macro, j'affiche une feuille modèle masquée "Modele Feuille
rencontre" je veux la copier dans le classeur et la renommer.
et enfin masquer la feuille modèle.

code ci dessous
1 Sheets("Modele Feuille rencontre").Visible = True
2 Sheets("Modele Feuille rencontre").Copy Before:=Sheets(3)
3 Sheets("Modele Feuille rencontre (2)").Select
4 Sheets("Modele Feuille rencontre (2)").Name = rencontre
5 Sheets("Modele Feuille rencontre").Select
6 Sheets("Modele Feuille rencontre").Visible = False

la macro s'arrête après la ligne 1 et revient dans le classeur sans
exécuter les lignes suivantes ???

En fait pour Je vous signale que j'ai trouvé la raison

La protection en temps réel par défaut de KASPERSKY (antivirus) bloque
pas mal d'instructions des macros en VBA...
Cela peut servir à d'autres.
salut

--
merci et salut
Philzig34

2 réponses

Avatar
Jacky
Meilleurs Voeux à toi aussi

Sheets(3) =Sheets("Feuil3") (si cela doit être la feuille du nom feuil3
sinon c'est la 3ème)
rencontre ="rencontre"

Ceci fonctionne parfaitement chez moi:

Sheets("Modele Feuille rencontre").Visible = True
Sheets("Modele Feuille rencontre").Copy Before:=Sheets("Feuil3")
Sheets("Modele Feuille rencontre (2)").Select
Sheets("Modele Feuille rencontre (2)").Name = "rencontre"
Sheets("Modele Feuille rencontre").Select
Sheets("Modele Feuille rencontre").Visible = False

Salutations
JJ

"philzig34" a écrit dans le message
de news:
Salut à tous et Meilleurs Voeux pour 2005

Dans une macro, j'affiche une feuille modèle masquée "Modele Feuille
rencontre" je veux la copier dans le classeur et la renommer.
et enfin masquer la feuille modèle.

code ci dessous
1 Sheets("Modele Feuille rencontre").Visible = True
2 Sheets("Modele Feuille rencontre").Copy Before:=Sheets(3)
3 Sheets("Modele Feuille rencontre (2)").Select
4 Sheets("Modele Feuille rencontre (2)").Name = rencontre
5 Sheets("Modele Feuille rencontre").Select
6 Sheets("Modele Feuille rencontre").Visible = False

la macro s'arrête après la ligne 1 et revient dans le classeur sans
exécuter les lignes suivantes ???

En fait pour Je vous signale que j'ai trouvé la raison

La protection en temps réel par défaut de KASPERSKY (antivirus) bloque
pas mal d'instructions des macros en VBA...
Cela peut servir à d'autres.
salut

--
merci et salut
Philzig34



Avatar
Jacky
Re...
Même que tu peux supprimer ces 2 lignes

3 Sheets("Modele Feuille rencontre (2)").Select
5 Sheets("Modele Feuille rencontre").Select


JJ

"philzig34" a écrit dans le message
de news:
Salut à tous et Meilleurs Voeux pour 2005

Dans une macro, j'affiche une feuille modèle masquée "Modele Feuille
rencontre" je veux la copier dans le classeur et la renommer.
et enfin masquer la feuille modèle.

code ci dessous
1 Sheets("Modele Feuille rencontre").Visible = True
2 Sheets("Modele Feuille rencontre").Copy Before:=Sheets(3)
3 Sheets("Modele Feuille rencontre (2)").Select
4 Sheets("Modele Feuille rencontre (2)").Name = rencontre
5 Sheets("Modele Feuille rencontre").Select
6 Sheets("Modele Feuille rencontre").Visible = False

la macro s'arrête après la ligne 1 et revient dans le classeur sans
exécuter les lignes suivantes ???

En fait pour Je vous signale que j'ai trouvé la raison

La protection en temps réel par défaut de KASPERSKY (antivirus) bloque
pas mal d'instructions des macros en VBA...
Cela peut servir à d'autres.
salut

--
merci et salut
Philzig34