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 :
Le premier passage se passe bien (dans le cas d'un fichier .xlsx, il s'ouvre bien )
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
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 !
Partager