Discussion :

[Pierre67]

Bonjour

un petit souci de syntaxe.
Un userform me permet d'ouvrir un fichier qui a une extension xls, je souhaite dans la foulée qu'il soit automatiquement enregistré avec l'extension xlsm

mais j'ai un problème de syntaxe
si vous pouviez me dépanner
merci

[issoram]

Bonjour,

Si tu es sous 2007 ou 2010:

Code :

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

ThisWorkbook.SaveAs "C:\toto.xlsm", fileformat:=52

Cordialement.

[Pierre67]

merci
cela marche bien même avec l'enregistreur

mais moi je veux enregister le fichier excel que j'ouvre (il est en xls) en fichier xlsm en conservant le même nom

[fring]

Bonjour,

Essaie ceci :

Code :

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

ThisWorkbook.SaveAs Split(ThisWorkbook.FullName, ".xls")(0) & ".xlsm", 52

[Pierre67]

j'ai écris ce bout de code

Code :

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

1
2
3
4
5
6
7
chemin = ActiveWorkbook.Name
pos = InStr(chemin, ".xls")
nomfichier = Left(chemin, pos - 1)
 
       ActiveWorkbook.SaveAs Filename:= _
        repertoire & nomfichier & ".xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

j'obtiens bien une extension xlsm mais suivi de (mode de compatibilité)

[fring]

Après avoir sauvegardé le fichier au format xlsm, ferme et réouvre ton fichier, le mode de compatibilité devrait disparaître.

Pour cette partie du code

Code :

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

1
2
3
chemin = ActiveWorkbook.Name
pos = InStr(chemin, ".xls")
nomfichier = Left(chemin, pos - 1)

Ceci fonctionne aussi

Code :

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

nomfichier = Split(ThisWorkbook.Name, ".xls")(0)

[Pierre67]

grace à vos contributions, j'ai résolu mon pb en rajoutant les lignes

Code :

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

1
2
3
4
5
        ActiveWorkbook.SaveAs Filename:= _
        repertoire & nomfichier & ".xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
        ActiveWorkbook.Close
        Workbooks.Open Filename:=repertoire & nomfichier & ".xlsm"

ça fonctionne
merci pour tout