Discussion :

[moimm007]

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

[Pierre Fauconnier]

Salut.

Perso, je ne passerais pas par les boites de dialogue, si le chemin est connu. En affectant le fichier ouvert à une variable, tu maîtriseras quel fichier tu souhaites enregistrer

Code :

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

1
2
3
4
  Dim wb As Workbook
 
  Set wb = Workbooks.Open("C:\USER\Mes documents\Dossier1\Dossier2\Dossier3\Fichier2.csv")
  wb.SaveAs "C:\USER\Mes documents\Dossier1\Dossier2\Dossier3\Fichier2.xlsx", XlFileFormat.xlOpenXMLWorkbook

[moimm007]

Bonjour,

Merci pour votre réponse,

C'est enregistré sous "Fichier2.xlsx" mais en ouvrant le fichier à le contenu des colonnes est toujours sous csv (.

A noter que si j'ouvre manuellement le fichier "Fichier2.csv" et je fais enregistrer sous et je sélectionne Classeur Excel et j'enregistre sous "Fichier2.xlsx" alors le contenu des colonnes est bien sous format Excel.

Merci.

[Pierre Fauconnier]

Je suppose que ton csv utilise le ; comme séparateur de colonnes. Perso, j'ai essayé avec un "vrai" csv avec la virgule comme séparateur et ça fonctionne. Je sais cependant que le ; comme séparateur pose parfois problème lors de l'ouverture par VBA, quels que soient les paramètres renseignés. Il y a un peu de littérature sur le net à ce sujet.

Mais à relire ton problème initial, le souci n'est pas dans l'ouverture, mais dans la sauvegarde. Pourquoi utiliser la boite de dialogue alors que l'objet Workbook expose la méthode SaveAs que j'ai illustrée dans ma première réponse? il faut savoir que lorsque l'on ouvre un classeur, il devient le classeur actif. Donc, si tu ne changes pas de classeur entretemps, tu peux utiliser ActiveWorkbook comme ceci:

Code :

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

ActiveWorkbook.SaveAs "C:\USER\Mes documents\Dossier1\Dossier2\Dossier3\Fichier2.xlsx", XlFileFormat.xlOpenXMLWorkbook

Ce que je voulais illustrer, c'est que si tu attribues le fichier que tu ouvres (ou que tu viens juste d'ouvrir) à une variable, tu peux manipuler cette variable par la suite pour être sûr de ne pas te mélanger les pinceau entre activeworkbook et thisworkbook qui ne pointent pas toujours vers le même classeur: ActiveWorkbook pointe vers le classeur actif dans l'interface Excel alors que ThisWorkbook pointe vers le classeur qui contient la macro en train de s'exécuter.

Donc, en fonction de la manière utilisée pour ouvrir ton csv (workbooks.open ou workbooks.opentext, par exemple), tu pourras soit affecter directement le classeur qui s'ouvre à une variable (workbooks.open) soit ouvrir le fichier puis affecter directement le classeur actif (celui qui vient de s'ouvrir) à une variable pour lever l'ambiguïté (workbooks.opentext).