Salut Steelson,
Un tout grand merci pour ton aide. J’ai maintenant eu le temps de tester tout ça.
Tes deux propositions fonctionnent très bien, mais …….
En fait, la solution qui me plairait le plus serait de pouvoir écrire un code. J’ai réussi à utiliser ton dernier exemple, mais ça se complique lorsque je veux insérer une MsgBox. Il y a effectivement un problème vu le nombre de guillemets.
J’ai essayé de mettre des parenthèses, mais sans succès.
.InsertLines ligne + 2, "MsgBox ("Attention !")"
Je me suis alors dit que je pouvais utiliser ton autre proposition, mais – dans mon fichier réel de base - j’ai déjà du code dans Thisworkbook, code qui fait appel à une macro disparue dans le fichier nouvellement créé (Fichier 3 dans mes exemples pour ce fil). Et ceci malgré le fait que j’ai placé un passage spécial en début de code, comme ci-dessous.
Private Sub Workbook_Open()
Dim i As Integer
If ActiveWorkbook.Name = "Fichier 3" Then
MsgBox "Attention !"
Exit Sub
End If
Call Macro_disparue
End Sub
Je pense donc qu’il y a deux solutions, mais je n’en connais l'application d’aucune : a) soit il y a une possibilité de contourner ce problème de guillemets afin que la ligne en rouge dans mon image passe, soit b) je pourrais placer dans le fichier de base un UserForm qui comporterait mon message ‘’Attention !’’, un code le copierait-collerait dans le Fichier 3 nouvellement créé et un autre code écrirait une macro sans guillemets dans ThisWorkbook, macro qui ouvrirait ce UserForm à l’ouverture du Fichier 3.
Très facile à dire, mais plus dur à réaliser, ou bien ?