MimiExcel
Nouveau membre
Bonjour à tous !!
Je crée ce sujet car vous m'avez tous superbement aidée à coder pour créer un classeur à partir d'un existant grâce à un précédent sujet.
MAIS il me reste deux petits problèmes. En gros, je travaille avec un classeur contenant deux feuilles. L'une avec des calculs, l'autre qui les synthétise automatiquement pour le client.
Bien sûr, je ne peux que lui donner la synthèse et pas mes calculs savants.
1. Apparemment, il n'aime pas trop le .xlsm ...
2. Mon bouton d'exécution me pose problème car il se copie aussi sur la synthèse et j'aimerai l'éviter.
Quelqu'un peut-il m'aider s'il vous plaît ? Voici le code complet mais je crois qu'il se répète avec mon bouton d'exécution...
Private Sub CommandButton1_Click()
For Each feuille In ActiveWorkbook.Sheets
feuille.Copy
With ActiveWorkbook
.Title = feuille.Name
.Subject = feuille.Name
.ActiveSheet.Copy
.SaveAs Filename:=feuille.Name + ".xlsm"
End With
Next
End Sub
Private Sub Worksheet_Activate()
For Each feuille In ActiveWorkbook.Sheets
feuille.Copy
With ActiveWorkbook
.Title = feuille.Name
.Subject = feuille.Name
.ActiveSheet.Copy
.SaveAs Filename:=feuille.Name + ".xlsm"
End With
Next
End Sub
Merci beaucoup par avance à celui ou celle qui pourra m'aider.
Cordialement.
Je crée ce sujet car vous m'avez tous superbement aidée à coder pour créer un classeur à partir d'un existant grâce à un précédent sujet.
MAIS il me reste deux petits problèmes. En gros, je travaille avec un classeur contenant deux feuilles. L'une avec des calculs, l'autre qui les synthétise automatiquement pour le client.
Bien sûr, je ne peux que lui donner la synthèse et pas mes calculs savants.
1. Apparemment, il n'aime pas trop le .xlsm ...
2. Mon bouton d'exécution me pose problème car il se copie aussi sur la synthèse et j'aimerai l'éviter.
Quelqu'un peut-il m'aider s'il vous plaît ? Voici le code complet mais je crois qu'il se répète avec mon bouton d'exécution...
Private Sub CommandButton1_Click()
For Each feuille In ActiveWorkbook.Sheets
feuille.Copy
With ActiveWorkbook
.Title = feuille.Name
.Subject = feuille.Name
.ActiveSheet.Copy
.SaveAs Filename:=feuille.Name + ".xlsm"
End With
Next
End Sub
Private Sub Worksheet_Activate()
For Each feuille In ActiveWorkbook.Sheets
feuille.Copy
With ActiveWorkbook
.Title = feuille.Name
.Subject = feuille.Name
.ActiveSheet.Copy
.SaveAs Filename:=feuille.Name + ".xlsm"
End With
Next
End Sub
Merci beaucoup par avance à celui ou celle qui pourra m'aider.
Cordialement.