Log. Conversion Excel

Question

Bonjour,

Notre société dispose d'environ 660 anciens fichiers ".xls". (1995)
Nous sommes passé en Microsft Office 2007. 
Ces fichiers ne s'ouvre pas. 

Nous avons trouvé une solution: 
   Les ouvrir avec Microsoft Excel 2000 et les ré-enregistrer en classeur ".xls"
   Après cette manipulation ils sont lisibles sur Excel 2007.

Ma question est simple:

Existe t-il un logiciel capable de faire cette conversion automatiquement ?
ou bien
Possibilité d'automatiser cela par une appli (VB?) ?

car faire 660 fichiers à la main.............. !!!


Merci d'avance !

lami20j · Answer

Salut,

Peut être avec une macro.
Donc tu ouvres Excel 2000 et tu lances là macro.
Quand tu exécutes la macro tu fermes d'abord tous les fichiers excel déjà ouverts.

Sub enregistrer_sous()
Dim fic, repbase
Application.DisplayAlerts = False

repbase = "C:\chemin\vers\repertoire\" ' à modifier en fonction de ton arborescence
fic = Dir(repbase & "*.xls")
'
Do While fic <> ""
   Workbooks.Open Filename:=repbase & fic
   ActiveWorkbook.SaveAs Filename:= _
        repbase & fic, FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
    ActiveWorkbook.Close
    fic = Dir
Loop
Application.DisplayAlerts = True
End Sub

lami20j · Answer

Re,

Il faudra mieux penser à eviter le remplacement au cas où, donc j'ai rajouté un préfixe 2000 au nom de fichier

Sub enregistrer_sous()
Dim rep, fic
Dim repbase
Application.DisplayAlerts = False

repbase = "\f-renoutet-md\home4$\p049784\MyDocs\conversion\"
fic = Dir(repbase & "*.xls")
'
Do While fic <> ""
   Workbooks.Open Filename:=repbase & fic
   ActiveWorkbook.SaveAs Filename:= _
        repbase & "2000_" & fic, FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
    ActiveWorkbook.Close
    fic = Dir
Loop
Application.DisplayAlerts = True
End Sub

Steuve · Answer

OK !
Sa marche !

Niquel ;) Je te remerci !


ps: j'ai pa eu besoin du suffixe, car j'ai changé la destination en rajoutant une variable.

(c'est entrain de tourner la....)

Log. Conversion Excel

3 réponses

Discussions similaires

Newsletters