Discussion :

[juberrebi]

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 !

[Menhir]

Les On Error, c'est à éviter autant que possible et les Goto encore plus.

Si tu veux savoir si un fichier existe, utilise la fonction Dir().
https://docs.microsoft.com/fr-fr/off...p/dir-function

Code :

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

1
2
3
4
5
Dim test as Integer
test = 0
If Dir(source_extraction & ".XLSB") <> "" Then test = 1
ElseIf Dir(source_extraction & ".XLSX") <> "" Then test = 2
ElseIf Dir(source_extraction & ".XLS") <> "" Then test = 3

[juberrebi]

ça me semble être la solution idéale, mais lorsque j'utilise ton code, il me dit que j'utilise un Else sans If

[Menhir]

ça me semble être la solution idéale, mais lorsque j'utilise ton code, il me dit que j'utilise un Else sans If

Et tu ne peux pas essayer de passer un peu plus que 9 min pour corriger ça ?

Code :

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

1
2
3
4
5
6
7
If Dir(source_extraction & ".XLSB") <> "" Then
    test = 1
ElseIf Dir(source_extraction & ".XLSX") <> "" Then
    test = 2
ElseIf Dir(source_extraction & ".XLS") <> "" Then 
    test = 3
EndIf

[juberrebi]

Je suis honteux

Merci beaucoup à toi, ça marche parfaitement

[Igloobel]

bonjour,

Perso je ferais plus simple :

la fonction Dir en VBA accepte les Jockers du DOS comme l'étoile (*)
donc voici un exemple d'utilisation

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Dir_fic_Excel()
    Doss = "D:\"
    fic = "*.xls*"
 
    rep = Dir(Doss & fic)
    mess = rep
    Do
        rep = Dir
        mess = mess & vbCrLf & rep
    Loop While rep <> ""
    MsgBox mess
End Sub

Dans Rep on a le nom complet avec la bonne extention

adapté à ta macro cela donne :

Code :

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

1
2
3
4
5
6
Rep = Dir(source_extraction & ".XLS*") 
If Rep <>"" then
   Workbooks.Open (Rep)
else
  Msgbox "Fichier inexistant"
end if

donc un seul if et la gestion de l'erreur est dans le else

enfin c'est que j'aurais fait


A bientôt