Utiliser une cellule pour donner un nom au fichier

Dim nom As String
nom = Mid(Range('A1'), 20) & '-' & Right(Range('A2'), 10)

Cliquez pour agrandir...

Bonjour Régis, bonjour le forum,

Si en A1 le nombre de chiffres avant le nom est toujours le même (5) et si en A2 le nombre de chiffres après le tiret est toujours le même (9) ce code fonctionne :

Dim nom As String
nom = Mid(Range('A1'), 20) & '-' & Right(Range('A2'), 10)

Cliquez pour agrandir...

Cliquez pour agrandir...

Sub Macro1()
Dim nom1 As String
Dim nom As String

Range('A1').Value = Trim(Range('A1').Value) 'supprime les espaces avant et après
Range('A2').Value = Trim(Range('A2').Value) 'supprime les espaces avant et après

For x = 15 To Len(Range('A1').Value) 'boucle sur tous les caractères de A1 (en partant du 15ème)
'condition si le code ASCII du caractère est > 64 alors sort de la boucle
'cela veut dire que c'est de l'alpha-numérique...
If Asc(Mid(Range('A1').Value, x, 1)) > 64 Then Exit For
Next x

nom1 = Mid(Range('A1').Value, x) & '-' 'définit la variable nom1

nom = nom1 & Right(Range('A2'), 9) 'définit la variable nom

MsgBox nom 'tu supprimeras cette ligne...
End Sub

Cliquez pour agrandir...