Discussion :

[rungis]

Bonjour,

Je ne sais pas comment faire pour ouvrir un fichier Excel au format 2003 et l'enregistrer au format 2007 car le nom de ce fichier peut être variable et comporter la date et l'heure à la fin du nom.

Code :

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

1
2
3
4
5
6
7
Sub Macro4()
Workbooks.Open "S:\Stocks\ListadoRenault-AutoTransStock*.xls"
ActiveWorkbook.SaveAs Filename:= _
        "S:\Stocks\ListadoRenault-AutoTransStock.xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Close
End Sub

L'étoile fonctionne évidemment pas dans mon code. Savez-vous comment faire svp ?

Merci d'avance

[Pierre Fauconnier]

Salut.

Pas d'autre choix que d'écrire une boucle pour récupérer chaque fichier correspondant au pattern de nom de fichier souhaité

Code VB :

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
17
18
19
20
21
22
23
Sub SauvegardeXL2007()
  Dim Filename As String
  Dim NewName As String
  Dim Path As String
  Dim wb As Workbook
 
  Path = "S:\Stocks\"
  Filename = Dir("S:\Stocks\ListadoRenault-AutoTransStock*.xls")
 
  ' Boucle sur tous les fichiers correpondant au pattern de nom
  While Filename <> ""
    ' Recomposition du nom complet et ouverture
    Set wb = Workbooks.Open(Path & Filename)
    'Sauvegarde sous le nouveau format
    NewName = Path & Filename
    NewName = Replace(NewName, "xls", "xlsx")
    wb.SaveAs Filename:= _
      NewName, FileFormat:= _
      xlOpenXMLWorkbook, CreateBackup:=False
    ' Récupération du nom de fichier suivant, vaudra "" après le dernier fichier
    Filename = Dir()
  Loop
End Sub

PS: Petite correction du code (au niveau de la sauvegarde du nouveau classeur). Attention aux anciens fichiers s'il contiennent des macros... => boum

[rungis]

slt,
Apparemment le replace ne fonctionne pas:

[Menhir]

Je pense que c'est parce que dans ton Explorer, tu as coché l'option "Masquer les extensions", ce qui fait que le .xls n'apparait pas quand on demande le nom du fichier.

Pour le vérifier, juste après le NewName = Path & Filename, ajoute un

Code :

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

debug.print NewName

Si c'est bien ça, il te suffit de décocher cette option DANS L'EXPLORATEUR DE FICHIER WINDOWS pour que ça marche.