Macro enregistrer fichier csv au format xlsx avec pour nom la valeur cellule B2

Bonjour,
Suis sous office 365,
je souhaite créer un macro qui m’enregistre un fichier csv au format xlsx en prenant pour nom la valeur d’une cellule.
Auriez-vous un fichier exemple ???

Tout ce que j’ai trouvé sur internet ne fonctionne pas

Merci par avance

Bonjour,

Je ne sais pas si ça convient :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub Test()   Dim Cls As Workbook Dim Nom As String   Set Cls = Workbooks("Classeur1.csv")   Nom = "ClasseurModifié.xlsx"   Cls.SaveAs ThisWorkbook.Path & "\" & Nom, 51   End Sub

---

ça ne convient pas car j'ai plusieurs fichier à traiter et je ne peux pas les enregistrer avec le même nom qui est dans la Macro.
Il faut qu'à chaque fichier le nom change et prenne la valeur ID qui est dans la cellule B2.

Bonjour
Tu peux nous dire si tu as déjà fait un peu de VBA, stp ?

Je pratique un peu le VBA
Mais je n'ai pas trouvé la solution à mon problème

J'ai essayé ce code mais ça ne fonctionne pas

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub enregsitrer() ' ' enregsitrer Macro '   ' ChDir "C:\Users\pierr\Downloads\Descrition de 1 à 20000" ActiveWorkbook.SaveAs Filename:= _ "C:\Users\pierr\Downloads\Descrition de 1 à 20000\[B2].xlsx", _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False End Sub

---

Bonjour,
Tout ce que tu met entre guillemets Excel le considère comme du texte, pour insérer une variable il fait utiliser l'opérateur de concaténation &

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub enregsitrer() ' ' enregsitrer Macro '   ' ChDir "C:\Users\pierr\Downloads\Descrition de 1 à 20000" ActiveWorkbook.SaveAs Filename:= _ "C:\Users\pierr\Downloads\Descrition de 1 à 20000\"& range("B2").value &".xlsx", _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False End Sub

---

Merci, ça fonctionne impeccablement