ouvrir un fichier Excel peut importe le format

Version imprimable

Bonjour,

J'ai une macro qui doit aller chercher un fichier Excel. Cependant ce fichier peut etre en format 2003 (xls) ou 2007 (xlsx). J'ai donc créé ce bout de code pour gérer la situation :
Code:

1 2 3 4 5 6 7 8 9 10 11 'Ouverture du classeur On Error Resume Next 'Gestion de l'erreur possible d'ouverture en format 2003 Set Classeur = ExcelApp.Workbooks.Open(Filename:="\\R.xls", UpdateLinks:=False, ReadOnly:=True) 'Ouverture sans mise à jour des liens, et mode lecture seule. 'Validation de l'ouverture du fichier en format 2003 If Classeur Is Nothing Then 'Ouverture du classeur en format 2007 Set Classeur = ExcelApp.Workbooks.Open(Filename:="\\R.xlsx", UpdateLinks:=False, ReadOnly:=True) 'Ouverture sans mise à jour des liens, et mode lecture seule. End If On Error GoTo 0 'Rétablissement de la gestion des erreurs normales
Cependant cela affiche un message d'erreur si le fichier est en format 2007. C'est qu'il ne trouve pas le format 2003 alors il affiche le message d'erreur et puis il cherche le format 2007.

Y aurait t-il une autre façon pour gérer tout ça.

Merci d'avance

Bonjour,

Essaie ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Dim Classeur As Workbook, Fichier As String
 
If Dir("\\R.xls") <> "" Then
    Fichier = "\\R.xls"
ElseIf Dir("\\R.xlsx") <> "" Then
    Fichier = "\\R.xlsx"
Else
    MsgBox "le fichier n'existe pas"
    Exit Sub
End If
 
Set Classeur = Workbooks.Open(Filename:=Fichier, UpdateLinks:=False, ReadOnly:=True)

20/11/2010, 06h15
nidhal fekih

Merci beaucoup :) ça m'a vraiment aidé!!!!!!

bonjour
puisque apparement tu connais le nom de ton fichier pourquoi utiliser l'extention comme filtre utilise plutot le "nom"
et voila tout

EDIT:
ici je fait une recherche sur tout le disque "C:" par le nom "toto" sans l 'extention des qu'il est trouvé il s'ouvre ;)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
Dim fini As Boolean
Sub sfdsf()
 
   Dim rep As String, filtre As String
   rep = "C:" ' ici le répertoire à fouuiller, qui peut être un lecteur entier
   filtre = "toto.*" 'ici ton filtre, ' si tu en souhaites un ou le nom complet
   fini = False
   dir_dans_dir rep, filtre
End Sub
 
Sub dir_dans_dir(ByVal chemin As String, flt As String)
 
   If fini = True Then Exit Sub
 
   Dim Nomfic As String, nbfic As Integer, tremplin As String, i As Integer
   If Right$(chemin, 1) <> "\" Then chemin = chemin & "\"
   Nomfic = Dir$(chemin, vbDirectory)
   nbfic = 1
   Do While Nomfic <> ""
      If Nomfic <> "." And Nomfic <> ".." Then
       tremplin = chemin & Nomfic
       If GetAttr(tremplin) And vbDirectory Then '===>> tu peux même décider d'ignorer (conditions d'attributs) des dossiers complets à attributs spéciaux
        ' ListBox1.AddItem tremplin & "\" & Nomfic
         dir_dans_dir tremplin, flt
         Nomfic = Dir$(chemin, vbDirectory)
         For i = 2 To nbfic
            Nomfic = Dir$
         Next
       Else ' ====>>> c'est là que tu vas pouvoir, au bedsoin, mettre tes conditions d'attributs
         If Nomfic Like flt Then
           Workbooks.Open tremplin: fini = True
 
         End If
       End If
     End If
     Nomfic = Dir$
     nbfic = nbfic + 1
   Loop
fin:
 
End Sub

au plaisir

ou bien dans ton systeme a toi

ici je cherche le toto.xls sans donner l'extention et puis voila

Code:

1
2
3
4
5
6
 
sub cherche_toto ()
If Dir("C:\Users\Patrick\Desktop\toto.*") <> "" Then
    MsgBox "coucou"
end if 
end sub