Discussion :

[Fitis]

Bonjour à tous,

Je suis novice en Macro Excel/VBA et j'aurais besoin de votre aide concernant la création d'une macro.
J'ai utilisé l'outil Enregistrer une macro pour l'instant.

Mon souhait serait dans une même macro :
- de dupliquer la première feuille (création d'une deuxième feuille dupliquée qui sera utilisée pour modification)
- verrouiller la première feuille afin que les résultats ne soient plus modifiables

Le problème qui se pose c'est que j'ai des fichiers générés automatiquement pour lesquels le nom de la première feuille est toujours différent et donc je bute puisqu'il faut un nom identique de la feuille 1 pour appliquer la macro. J'aimerais donc avoir une solution soit pour faire comprendre que la macro doit fonctionner sur la première feuille même si les noms sont différents ou alors renommer chacune des premières feuilles en un nom identique pour permettre le fonctionnement de la macro par la suite.
Je vous joins en pièce-jointe un fichier type.


Merci d'avance pour votre réponse !

[Daniel.C]

Bonjour,

La première feuille a pour index "1", quel que soit son nom tu peux y référer avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets(1)

[Menhir]

pour rajouter un détail à ce qu'à écrit Daniel.C ( ), je te conseille de placer la référence des feuilles dans des variables, surtout si tu les renommes.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim WS_Source As Worksheet
Set WS_Source = Worksheets(1)

[Fitis]

Merci pour ta réponse Daniel mais ça bloque toujours quand je lance la macro.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub SEC()
'
' SEC Macro
'
' Touche de raccourci du clavier: Ctrl+Shift+F
'
    Sheets("1").Select
    Sheets("1").Copy After:=Sheets(1)
    Sheets("1").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Range("E21").Select
End Sub

[Daniel.C]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets(1)

pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("1")

[Menhir]

Et les lignes contenant Select ne servent à rien.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub SEC()
    Sheets(1).Copy After:=Sheets(1)
    Sheets(1).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

[Fitis]

Merci beaucoup pour vos réponses !