VBA Excel dupliquer une feuille en mode protégé et non protégé
Résolu/Fermé
fleurette85
Messages postés
270
Date d'inscription
lundi 24 septembre 2007
Statut
Membre
Dernière intervention
1 août 2013
-
21 janv. 2013 à 16:35
fleurette85 Messages postés 270 Date d'inscription lundi 24 septembre 2007 Statut Membre Dernière intervention 1 août 2013 - 22 janv. 2013 à 14:57
fleurette85 Messages postés 270 Date d'inscription lundi 24 septembre 2007 Statut Membre Dernière intervention 1 août 2013 - 22 janv. 2013 à 14:57
A voir également:
- VBA Excel dupliquer une feuille en mode protégé et non protégé
- Dupliquer ecran - Guide
- Liste déroulante excel - Guide
- God mode - Guide
- Proteger cellule excel - Guide
- Mode sécurisé - Guide
5 réponses
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
22 janv. 2013 à 11:45
22 janv. 2013 à 11:45
C'est que tu n'a pas mis le code à la bonne place.
Quand tu copie une feuille c'est celle là qui est active.
Met la ligne pour changer le nom JUSTE EN DESSOUS de la ligne qui Copy la feuille
Quand tu copie une feuille c'est celle là qui est active.
Met la ligne pour changer le nom JUSTE EN DESSOUS de la ligne qui Copy la feuille
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
Modifié par lermite222 le 21/01/2013 à 18:32
Modifié par lermite222 le 21/01/2013 à 18:32
Bonjour,
A tester
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
A tester
Sub CopieFeuille()
Sheets("Feuil1").Unprotect 'si mot de passe le mettre ici
Sheets("Feuil1").Copy after:=Sheets.Count
ActiveSheet.Name = "Nouveau"
Sheets("Feuil1").Protect 'si mot de passe le mettre ici
End SubA+
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
fleurette85
Messages postés
270
Date d'inscription
lundi 24 septembre 2007
Statut
Membre
Dernière intervention
1 août 2013
2
22 janv. 2013 à 11:07
22 janv. 2013 à 11:07
Bonjour,
Au fait je suis entrain de faire des modifications sur un projet qui existe déjà.
La feuille que je veux copier est déjà protégé donc j'ai le code qui faut pour ça.
Pour ma copie je viens de rajouter une ligne de code à la fin de toutes les fonctions qui existaient déjà nécessaires à faire tous les traitement pour générer la feuille .
J'ai ajouté donc cette ligne là :
ça marche bien j'ai la première feuille qui est protégée et la deuxième qui ne l'est pas ce pendant je ne sais pas si c'est bon ou pas ou bien ça risque de bloquer par la suite :(
Je souhaite maintenant renommer la feuille qui a été générée ' la copie " avec un notre nom
Il faut faire quoi exactement please
Au fait je suis entrain de faire des modifications sur un projet qui existe déjà.
La feuille que je veux copier est déjà protégé donc j'ai le code qui faut pour ça.
Pour ma copie je viens de rajouter une ligne de code à la fin de toutes les fonctions qui existaient déjà nécessaires à faire tous les traitement pour générer la feuille .
J'ai ajouté donc cette ligne là :
'Crée une copie de la Feuille " Prix de Vente" et la positionne à la fin du classeur.
Worksheets("Prix de Vente").Copy After:=Sheets(Sheets.count)
ça marche bien j'ai la première feuille qui est protégée et la deuxième qui ne l'est pas ce pendant je ne sais pas si c'est bon ou pas ou bien ça risque de bloquer par la suite :(
Je souhaite maintenant renommer la feuille qui a été générée ' la copie " avec un notre nom
Il faut faire quoi exactement please
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
Modifié par lermite222 le 22/01/2013 à 11:14
Modifié par lermite222 le 22/01/2013 à 11:14
beh je donne la réponse dans mon poste précédant..
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
ActiveSheet.Name = "Nouveau nom"A+
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
fleurette85
Messages postés
270
Date d'inscription
lundi 24 septembre 2007
Statut
Membre
Dernière intervention
1 août 2013
2
22 janv. 2013 à 11:41
22 janv. 2013 à 11:41
Merci pour tes réponses c'est vraiment gentil de ta part
Cela dit j'ai testé avec cette ligne là mais elle me renomme ma première feuille "l'originale" et ce n'est pas le but voulu.
Moi je souhaite renommer la feuille qui a été créé " la copie " .
Cela dit j'ai testé avec cette ligne là mais elle me renomme ma première feuille "l'originale" et ce n'est pas le but voulu.
Moi je souhaite renommer la feuille qui a été créé " la copie " .
Modifié par fleurette85 le 22/01/2013 à 14:58
Voilà le code finale que j'ai utilisé :
'Crée une copie de la Feuille "Prix de Vente" et la positionne à la fin du classeur. Worksheets(" Prix de Vente").Copy After:=Sheets ActiveSheet.Name = "Copie Prix de Vente "