Enchaînement de macros

Bonjour,
Vous insérez le nom de la deuxième procédure dans la première:
Exemple:

Sub NouveauBénéficiaire() 
Sheets("Planning Bénéficiaire").Copy After:=Sheets(3) 
ActiveSheet.Visible = True 

call renommer

End Sub

je ne suis pas spécialiste, mais je ferais une troisième macro qui exécuterai les 2 autres macro et + si nécessaire, avec des raccourcis clavier que tu leur attribuerais au préalable.

Salut le forum

Si ta cellule [A3] est vide ou que le nom existe déjà
ActiveSheet.Name = [A3] va générer une erreur.

Merci de mieux expliquer ta demande.

Mytå

Bonjour,
Code à modifier en fonction du contenu souhaité de la cellule A3 (texte, nombre, date ...)

Sub NouveauBénéficiaire()   
Dim resultat As String   
Sheets("Planning Bénéficiaire").Copy After:=Sheets(3)   
ActiveSheet.Visible = True
resultat = InputBox("Inscrire en Cellule A3 : ","Saisie A3")  
[A3] = resultat 'à modifier si l'on veux un résultat en nombre : CInt(resultat) ou CDate(resultat) etc...  
ActiveSheet.Name = [A3]  
End Sub

Cordialement,
-- Tout problème à sa solution. S'il n'y a pas de solution, ou est le problème? --

Re- tout le monde,
Une autre solution consiste à exécuter la macro 1 et créer dans la nouvelle feuille une macro évènementielle se déclenchant lors de la saisie dans A3 :

Sub NouveauBénéficiaire() 
Dim X As Integer 
Sheets("Feuil1").Copy After:=Sheets(3) 
ActiveSheet.Visible = True

With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule 
    X = .CountOfLines 
    .InsertLines X + 1, "Private Sub Worksheet_Change(ByVal Target As Range)" 
    .InsertLines X + 2, "If IsEmpty([A3]) Or ActiveSheet.Name = [A3] Then" 
    .InsertLines X + 3, "Exit Sub" 
    .InsertLines X + 4, "Else" 
    .InsertLines X + 5, "ActiveSheet.Name = [A3]" 
    .InsertLines X + 6, "End If" 
    .InsertLines X + 7, "End Sub" 
End With 
End Sub

Attention tout de même : à chaque fois que l'on modifie le contenu de A3 dans cette feuille, la macro changera le nom de la feuille... Selon les cas cela peut être pratique...ou pas!
Cordialement,
-- Tout problème à sa solution. S'il n'y a pas de solution, ou est le problème? --