SwimCoachNico79
XLDnaute Occasionnel
Bonsoir à tous,
J'ai un classeur avec 39 onglets dont 37 sont identiques (le premier et le dernier sont différents).
Le dernier = fiche originale qui est nommée "Vide"
J'ai crée cette macro
Sub Suppr()
'
' Suppr Macro
' Supprime les données et colle la feuille originale
'
'
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Vide").Select
Range("A8:M707").Select
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("Dames").Select
ActiveSheet.Paste
Range("A1").Select
Sheets(".").Select
Application.Run "'Fichier CMJ.xlsm'!Relance"
End Sub
Mon soucis est qu'elle ne fonction que dans l'onglet "Dames".
Comment faire pour que cette macro puisse s’exécuter sur l'onglet actif (sans s’exécuter en même temps sur les autres).
Elle est déclenchée par une image.
Merci de votre aide.
SCN79
J'ai un classeur avec 39 onglets dont 37 sont identiques (le premier et le dernier sont différents).
Le dernier = fiche originale qui est nommée "Vide"
J'ai crée cette macro
Sub Suppr()
'
' Suppr Macro
' Supprime les données et colle la feuille originale
'
'
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Vide").Select
Range("A8:M707").Select
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("Dames").Select
ActiveSheet.Paste
Range("A1").Select
Sheets(".").Select
Application.Run "'Fichier CMJ.xlsm'!Relance"
End Sub
Mon soucis est qu'elle ne fonction que dans l'onglet "Dames".
Comment faire pour que cette macro puisse s’exécuter sur l'onglet actif (sans s’exécuter en même temps sur les autres).
Elle est déclenchée par une image.
Merci de votre aide.
SCN79