Problème de Code VBA

[archi]

Bjr,

J'ai un prob avec un code VBA suivant:

With Sheets('Saisie individuel').Range('C2')
If InStr(1, .Value, ' ') < 1 Then Exit Sub
Nom = Left(.Value, InStr(1, .Value, ' ') + 1)
Nom = Application.WorksheetFunction.Proper(Nom)
End With

étant débutant dans le VBA, je n'arrive pas à insérer le symbole '.'
après la 1ère lettre du prénom, car l'intitulé de mon onglet est du type 'Dupont J.'

Merci de votre aide
bye

 

[deudecos]

Bonjour Archi, le forum,

Je crois que je comprends quel est ton probleme, mais pour etre sur de pouvoir y remedier, il serait bon que tu nous fasse parvenir un fichier en exemple de ce que tu desire...
Fichier Zip de moins de 50ko et sans accent ni signes.

Bonne journee

Olivier

 

[archi]

Merci,
voici le fichier en question
bye [file name=Test_BDV8.zip size=41180]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Test_BDV8.zip[/file]

 

[myDearFriend!]

Re archi,
Bonsoir deudecos,

Peut-être une façon de faire :

      With Sheets('Saisie individuel').Range('C2')
            If InStr(1, .Value, ' ') < 1 Then Exit Sub
            Nom = Left(.Value, InStr(1, .Value, ' ') + 1) + '.'
            Nom = Application.WorksheetFunction.Proper(Nom)
      End With

Cordialement,

 

[archi]

tout simplement, merci pour tous didier
bye