Discussion :

[traderpierre54]

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

[Theze]

Bonjour,

Je ne sais pas si ça convient :

Code :

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

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

[traderpierre54]

ç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.

[sogedic]

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

[traderpierre54]

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 :

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

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

[halaster08]

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 :

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

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

[traderpierre54]

Merci, ça fonctionne impeccablement