En VBA sous Excel 2003 copier une feuille dans un classeur
4 réponses
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 ???
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
anomymousA
bonsoir,
tu devrais mettre des guillemets à rencontre lorsque tu renommes la feuille ("Modele Feuille rencontre (2)" et ça devrait marcher tout seul.
A+
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 ???
Quelqu'un pourrait il m'aider ?
Merci
Nota: ce code fonctionne sur mon ancien PC
-- merci et salut Philzig34
bonsoir,
tu devrais mettre des guillemets à rencontre lorsque tu renommes la feuille
("Modele Feuille rencontre (2)" et ça devrait marcher tout seul.
A+
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 ???
tu devrais mettre des guillemets à rencontre lorsque tu renommes la feuille ("Modele Feuille rencontre (2)" et ça devrait marcher tout seul.
A+
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 ???
Quelqu'un pourrait il m'aider ?
Merci
Nota: ce code fonctionne sur mon ancien PC
-- merci et salut Philzig34
philzig34
anomymousA a formulé ce mardi :
bonsoir,
tu devrais mettre des guillemets à rencontre lorsque tu renommes la feuille ("Modele Feuille rencontre (2)" et ça devrait marcher tout seul.
le code qui fonctionne très bien sur Xcel 2000 avce win NT ou XP Sheets("Modele Feuille rencontre").Visible = True Sheets("Modele Feuille rencontre").Copy Before:=Sheets(3) Sheets("Modele Feuille rencontre (2)").Select Sheets("Modele Feuille rencontre (2)").Name = "rencontre" Sheets("Modele Feuille rencontre").Select Sheets("Modele Feuille rencontre").Visible = False
A+
anomymousA a formulé ce mardi :
bonsoir,
tu devrais mettre des guillemets à rencontre lorsque tu renommes la feuille ("Modele Feuille rencontre (2)" et ça devrait marcher tout seul.
le code qui fonctionne très bien sur Xcel 2000 avce win NT ou XP
Sheets("Modele Feuille rencontre").Visible = True
Sheets("Modele Feuille rencontre").Copy Before:=Sheets(3)
Sheets("Modele Feuille rencontre (2)").Select
Sheets("Modele Feuille rencontre (2)").Name = "rencontre"
Sheets("Modele Feuille rencontre").Select
Sheets("Modele Feuille rencontre").Visible = False
A+
anomymousA a formulé ce mardi :
bonsoir,
tu devrais mettre des guillemets à rencontre lorsque tu renommes la feuille
("Modele Feuille rencontre (2)" et ça devrait marcher tout seul.
le code qui fonctionne très bien sur Xcel 2000 avce win NT ou XP Sheets("Modele Feuille rencontre").Visible = True Sheets("Modele Feuille rencontre").Copy Before:=Sheets(3) Sheets("Modele Feuille rencontre (2)").Select Sheets("Modele Feuille rencontre (2)").Name = "rencontre" Sheets("Modele Feuille rencontre").Select Sheets("Modele Feuille rencontre").Visible = False
A+
anomymousA a formulé ce mardi :
bonsoir,
tu devrais mettre des guillemets à rencontre lorsque tu renommes la feuille ("Modele Feuille rencontre (2)" et ça devrait marcher tout seul.
le code qui fonctionne très bien sur Xcel 2000 avce win NT ou XP Sheets("Modele Feuille rencontre").Visible = True Sheets("Modele Feuille rencontre").Copy Before:=Sheets(3) Sheets("Modele Feuille rencontre (2)").Select Sheets("Modele Feuille rencontre (2)").Name = "rencontre" Sheets("Modele Feuille rencontre").Select Sheets("Modele Feuille rencontre").Visible = False
le code qui fonctionne très bien sur Xcel 2000 avce win NT ou XP
Sheets("Modele Feuille rencontre").Visible = True
Sheets("Modele Feuille rencontre").Copy Before:=Sheets(3)
Sheets("Modele Feuille rencontre (2)").Select
Sheets("Modele Feuille rencontre (2)").Name = "rencontre"
Sheets("Modele Feuille rencontre").Select
Sheets("Modele Feuille rencontre").Visible = False
le code qui fonctionne très bien sur Xcel 2000 avce win NT ou XP Sheets("Modele Feuille rencontre").Visible = True Sheets("Modele Feuille rencontre").Copy Before:=Sheets(3) Sheets("Modele Feuille rencontre (2)").Select Sheets("Modele Feuille rencontre (2)").Name = "rencontre" Sheets("Modele Feuille rencontre").Select Sheets("Modele Feuille rencontre").Visible = False