Nouvelle feuille avec ImputBox

Bonjour,

J'utilise une macro pour créer une nouvelle feuille à partir d'une matrice. J'utilise ensuite une boite de dialogue pour demander le nom de la nouvelle feuille. La suite de la macro permet de récupérer ce nom pour le placer dans une cellule déterminée. Le problème c'est que le nom utilise un "." et que lorsqu'il est inséré dans la cellule il est transformé en ",". Comment forcer la saisie du point ?

Sub copiematrice()
a = Sheets.Count
Sheets("Matrice").Select
Sheets("Matrice").Copy After:=Sheets(a)
ActiveSheet.Name = Application.InputBox(Prompt:="Écrire le nouveau nom", _
Title:="Nommer une feuille", Type:=2)
NomOnglet = ActiveSheet.Name
Dim id As String
id = Cells(1, 3)
Range("A3").Value = NomOnglet
End Sub

Merci

Bonjour,

As-tu essayé le point dans le clavier au lieu de point dans le clavier numérique ?

Oui mais ça ne marche pas mieux

bizarre, pour moi ça marche. dis-moi ce qui ne marche pas chez-toi.

Je vais mettre la cellule au format texte, ça sera peut-être plus simple Pourquoi faire simple quand on peut faire compliqué.