alan
XLDnaute Occasionnel
Bonjour,
J'ai une macro qui me permets de copier/coller valeurs toutes mes feuilles d'un meme classeur 1 afin d'eliminer ses equations. J'aimerai adapter cette macro pour qu'elle me supprime dans la foulee (apres l'action de cette macro) toutes les feuilles qui ont un nom de plus de 2 chiffres ou qui contiennent une lettre.
Je ne garderai en fait que les onglets appeles 12, 13 ou 49 et supprimmerai ceux appelles BT21, topur ou encore 123 par exemple.
De plus, est il possible que j'applique cette action a distance cad a partir d'un autre classeur 2 sans ouvrir le classeur 1?
Sub copy()
Application.ScreenUpdating = False
Nb = ActiveWorkbook.Sheets.Count
For Sh = 1 To Nb
Sheets(Sh).Activate
On Error Resume Next
ActiveSheet.UsedRange.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next Sh
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Merci d'avance
J'ai une macro qui me permets de copier/coller valeurs toutes mes feuilles d'un meme classeur 1 afin d'eliminer ses equations. J'aimerai adapter cette macro pour qu'elle me supprime dans la foulee (apres l'action de cette macro) toutes les feuilles qui ont un nom de plus de 2 chiffres ou qui contiennent une lettre.
Je ne garderai en fait que les onglets appeles 12, 13 ou 49 et supprimmerai ceux appelles BT21, topur ou encore 123 par exemple.
De plus, est il possible que j'applique cette action a distance cad a partir d'un autre classeur 2 sans ouvrir le classeur 1?
Sub copy()
Application.ScreenUpdating = False
Nb = ActiveWorkbook.Sheets.Count
For Sh = 1 To Nb
Sheets(Sh).Activate
On Error Resume Next
ActiveSheet.UsedRange.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next Sh
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Merci d'avance