Bonjour,

Je suis sur un fichier Excel "Fichier1.xlsm" dans le dossier C:\USER\Mes documents\Dossier1\Dossier2\Dossier3\Fichier1.xlsm.

J'ai ouvert le VBA de ce "Fichier1.xlsm" sur lequel j'écris une macro pour ouvrir un "Fichier2.csv" et l'enregistrer sous "Fichier2.xlsx".

A noter que le chemin du "Fichier2.csv" est : C:\USER\Mes documents\Dossier1\Dossier2\Dossier3\Fichier2.csv.

J'ai exécuté cette macro mais c'est le fichier Fichier1.xlsm qui est enregistré sous Fichier1.xlsx alors que mon but c'est que le Fichier2.csv soit enregistré sous Fichier2.xlsx.

Si c'est possible de me communiquer SVP un simple code puisque je suis débutant en VBA.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
 
    '.....
 
    Dim CheminPC As String
 
    CheminPC = "C:\USER\Mes documents\Dossier1\Dossier2\Dossier3\"
 
    Dim objSaveBox As FileDialog
 
    Set objSaveBox = Application.FileDialog(msoFileDialogSaveAs)
 
    With objSaveBox
 
    .InitialFileName = CheminPC & "Fichier2.csv"
    .FilterIndex = 1
    .Show
    .Execute
 
    End With
 
    '...
Merci par avance pour votre aide