Bonjour,

Je souhaite parcourir un dossier contenant des fichiers excel aux formats différents (.XLSB, .xls, .xlsx) et les ouvrir.
J'ai adopté la méthode suivante :
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
 
On Error GoTo vieux_format
Application.DisplayAlerts = False
Workbooks.Open (source_extraction & ".XLSB")
Exit Sub
 
vieux_format:
On Error GoTo encore_plus_vieux_format
    Workbooks.Open (source_extraction & ".xlsx")
    Exit Sub
 
encore_plus_vieux_format:
    Workbooks.Open (source_extraction & ".xls")
    Exit Sub
Application.DisplayAlerts = True
Le premier passage se passe bien (dans le cas d'un fichier .xlsx, il s'ouvre bien )
Mais lorsque j'essaye d'ouvrir un fichier .xls, je reste bloqué dans vieux_format et je reçois un message d'erreur sur le fait que le fichier en .xlsx n'existe pas.

Pourriez-vous m'aider ?

Par avance merci et excellente journée à tous !