Discussion :

[Invité]

Bonjour le forum,

J'utilise un Userform pour faire un search and Replace d'un nom de fichier.
Je rentre le nom du fichier dans un Numéro_Change()

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveWorkbook.SaveAs FileName:= _
         Répertoire + "\" + Numéro + "_CONTENU.xls", FileFormat _

Le numéro est alors modifier.
J'aimerai effectuer une modification: Mon numéro est une chaîne à 16 caractères.
Quand je rentre les 9 premiers, excel me récupère les 7 suivants.
Je pensais à diviser le nom de mon fichier en 2: Numéro => Numéro + Suite.
Je connais la fonction Right() pour extraire les caractères 'une chaîne déjà connues. Est-ce possible de faire l'inverse ?

Je mets en PJ le code de mon Userform.
Merci à vous et bonne journée !

Cdlt
aure_8

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Avant = left("1234567890123456", 9)
suivant = Right("1234567890123456", 7)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Num = "1234567890123456"
p9 = "123456789"
suivant = Num
Mid(suivant, 1, Len(p9)) = "~"
 
suivant = Replace(suivant, "~", "")

[Invité]

Bonjour rdurupt,

Super, merci !

Bonne après-midi et @+