Discussion :

[yaya.gaga]

Bonjour,

Je suis débutante en VBA. J'ai un fichier file.xlsm auquel l'utilisateur a accès. J'aimerai que lorsqu'il clique sur un bouton du fichier, il y ait une macro qui convertisse le fichier en .xlsx et l'enregistre dans le meme dossier initial avec le meme nom, à savoir file.xlsx.
J'ai essayé de voir à quoi ressemblait le code avec l'enregistreur de macro mais le problème c'est que ca ne conserve pas le file.xlsm initial dans le dossier.

Merci d'avance!

[kiki29]

Salut, affecter un bouton à la procédure "SelFichier"

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Option Explicit
 
Private Sub Renommer(ByVal sFichier As String)
Dim Wkb As Workbook
Dim FSO As Object, sExt As String, sOut As String
 
    Application.ScreenUpdating = False
 
    Set FSO = CreateObject("Scripting.FileSystemObject")
    sExt = FSO.GetExtensionName(sFichier)
    sOut = Left$(sFichier, Len(sFichier) - Len(sExt)) & "xlsx"
    Set FSO = Nothing
 
    Application.DisplayAlerts = False
 
    Set Wkb = Workbooks.Open(sFichier)
    With Wkb
        .SaveAs Filename:=sOut, FileFormat:=xlOpenXMLWorkbook
        .Close
    End With
    Set Wkb = Nothing
 
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub
 
Sub SelFichier()
Dim FD As FileDialog
 
    ChDir ThisWorkbook.Path
    Set FD = Application.FileDialog(msoFileDialogFilePicker)
    With FD
        .InitialFileName = "*.xlsm"
        .AllowMultiSelect = False
        .ButtonName = "Sélection fichier"
        .Title = "Sélectionner un fichier"
    End With
 
    If FD.Show = True Then
        DoEvents
        Renommer FD.SelectedItems(1)
    End If
 
    Set FD = Nothing
End Sub

[Menhir]

il y ait une macro qui convertisse le fichier en .xlsx et l'enregistre dans le meme dossier initial avec le meme nom, à savoir file.xlsx.

Je ne vois pas trop la différence entre :
- convertir le fichier en xlsx
- enregistrer dans le même dossier initial avec le même nom, à savoir file.xlsx

Si tu souhaites enregistrer ton fichier xlsm en xlsx, la ligne suivante devrait faire l'affaire :

Code :

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

ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path&"\"&ActiveWorkbook.Name, FileFormat:= xlOpenXMLWorkbook

Le problème, c'est que ton fichier contient une macro (celle que tu souhaites utiliser pour faire cet enregistrement) et que les fichier au format xlsx ne peuvent pas contenir de macro.

Je pense donc que mettre la macro (et le bouton) dans le fichier que tu veux enregistrer n'est pas une bonne idée.
Il vaudrait mieux que tu mettes la macro dans un fichier xlam qui s'ouvre automatiquement avec Excel (regarde le gestionnaire de projet de ton éditeur VBA, tu devrais en voir un) et déclencher la macro depuis un bouton se trouvant dans ta barre d'outils à accès rapide.

[yaya.gaga]

Merci à vous deux pour ces réponses rapides mais malheureusement ce n'est pas le résultat que j'attends.

kiki29, j'ai essayé ton morceau de code et il me fait apparaitre une fenetre où l'utilisateur doit enregistrer dans un format imposé qui n'est pas xlsx. Ceci nécessite une action manuelle de la part de l'utilisateur alors que moi, je souhaiterai que par exemple pour un fichier tata.xlsm lorsqu'il clique sur le bouton, ceci enregistre en tata.xlsx mais garde le tata.xlsm.

Menhir, j'ai également essayé ton code et ceci m'indique erreur de syntaxe :/

[Menhir]

Menhir, j'ai également essayé ton code et ceci m'indique erreur de syntaxe :/

Remplace les & par des +.

[yaya.gaga]

Ouiii, ca fonctionne! Merci