Log. Conversion Excel
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 !
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 !
Configuration: Windows XP Internet Explorer 7.0
3 réponses
-
ModérateurSalut,
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
-
ModérateurRe,
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 -
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....)
