copie feuille d'un classeur protégé dans un autre fichier

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

tibtelcom

XLDnaute Nouveau
Bonjour, j'ai un classeur protégé et dont les feuilles le sont aussi.
J'aimerais, en cliquant sur un bouton, copier la "feuil1" du classeur (en enlevant les macros) et la mettre dans un autre dossier.
De plus il faudrait que cette fonction me renvoie true ou false pour opuvoir ensuite envoyer la réponse par mail (j'ai déjà fait l'algorithme d'envoi)

Voilà mon code pour la copie de la feuille :

Sub Copie()
Dim dossier As String
Application.ScreenUpdating = False

'Chemin de destination
dossier = "C:\Mes Documents\test\"
Destination = dossier & ThisWorkbook.Name

'Supprimer les boutons
ActiveWorkbook.Sheets(1).Shapes("CommandButton1").Delete
ActiveWorkbook.Sheets(1).Shapes("CommandButton2").Delete

'Copie
ActiveWorkbook.Sheets("Feuil1").Copy After:=Workbooks(Destination).Sheets("Feuil1")
l'erreur vient ici "l'indice n'appartient pas à la sélection"
ActiveSheet.Cells.Copy
ActiveSheet.Cells.PasteSpecial Paste:=xlPasteValues
ActiveSheet.Range("A1").Select


End Sub

Si vous avez une idée...
Merci
 
Re : copie feuille d'un classeur protégé dans un autre fichier

Code:
ActiveWorkbook.Sheets("Feuil1").Select
ActiveWorkbook.Sheets("Feuil1").Copy
ActiveSheet.Cells.Copy
ActiveSheet.Cells.PasteSpecial Paste:=xlPasteValues
ActiveSheet.Range("A1").Select

Pour la protection, ajoute unprotect au début et protect à la fin. Pour le true et false, c'est quoi qui est true ou false?
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour