Sujet Précédent Sujet Suivant

Log. Conversion Excel

Steuve -  
 Steuve -
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 !
A voir également:

3 réponses

Réponse 1 / 3
lami20j Messages postés 21644 Date d'inscription   Statut Modérateur, Contributeur sécurité Dernière intervention   3 570
 
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
0
Réponse 2 / 3
lami20j Messages postés 21644 Date d'inscription   Statut Modérateur, Contributeur sécurité Dernière intervention   3 570
 
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
0
Réponse 3 / 3
Steuve
 
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....)
0