Discussion :

[kykyn]

Bonjour,

Mon problème est très simple

Au sein de mon service, nous avons migré sur Excel 2007.

Or, comme vous le savez, les extensions ne sont plus .XLS mais .XLSM ou .XLSX.

Le truc, c est que tous nos fichiers sont en liens les uns avec les autres, et certains d entre eux ont dû être enregistrés en .XLSM pour que les macros tournent correctement.

D'où ma question...existe t il un moyen d'enregistrer tous mes .XLS en .XLSM de façon automatique, et ainsi éviter de les faire 1 par 1?

Merci de votre aide et bonne journée

[Pierre Fauconnier]

Bonjour

Voici une approche très basique du problème, qui travaille sur un dossier particulier, dont il faudra adapter le chemin dans ton code

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
Sub Test()
    Dim fs As Object
    Dim Dossier As Object
    Dim Fichier As Object
    Dim Classeur As Workbook
 
    Set fs = CreateObject("scripting.filesystemobject")
    Set Dossier = fs.GetFolder("d:\données\test")
    For Each Fichier In Dossier.Files
        If Right(Fichier.Name, 4) = ".xls" Then
            Set Classeur = Workbooks.Open(Fichier.Path)
            Classeur.SaveAs Filename:=Replace(Fichier.Path, ".xls", ""), FileFormat:=xlOpenXMLWorkbookMacroEnabled
            Classeur.Close
        End If
    Next Fichier
End Sub

Ce code parcourt le dossier, ouvre chaque XLS qui s'y trouve et le sauvegarde en XLSM...

C'est une approche à adapter à ton cas, car:

• Si des fichiers sont liés, il faudra adapter les liaisons
• Les fichiers sont systématiquement enregistrés en XLSM, même s'ils ne contiennent pas de macros
• Si un fichier contient une macro lancée à l'ouverture, cette macro prend le pas sur la macro de conversion
• ...

Cela me fait dire qu'il me paraît illusoire de pouvoir automatiser ce processus...

[kykyn]

En effet c'est la solution à laquelle j'avais songé..

Et pour répondre aux différents points justement soulevés :

- en effet on a de multiples liaisons donc j adapterai la macro
- ça ne me dérange pas que tous les fichiers soient en XLSM, et je ne pense pas que celà pose de problème particulier
- Normalement, nous n'avons aucun fichier avec lancement automatique de macro.

Donc je vais tenter cette solution, de toutes façons pour le moment je vois pas comment faire autrement!

Merci!