Supprimer les points dans le nom des onglets

Bonjour à tous,

j'ai une macro qui me créer un onglet par fournisseur, elle marche très bien mais parfois cela créer un onglet qui s'appelle par exemple "Fournisseur S.A". Le problème est que quand je veux envoyer cet onglet par mail, il crois que ".A" est une extension du fichier donc quand j'essaye de l'ouvrir ca ne marche pas.

il me faudrait une macro qui parcourt tout les onglets un par un et lorsqu'il y'a un point ca le supprime.

Est-ce possible ?

Jawst

Bonjour Jawst, bonjour le forum,

Essaie comme ça :

Sub Macro1()
Dim O As Worksheet
For Each O In Sheets
    O.Name = Replace(O.Name, ".", "")
Next O
End Sub

Les points sont supprimés...

merci ThauThème

c'est ce que je voulais