Discussion :

[nidhal fekih]

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 :

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

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

[fring]

Bonjour,

Essaie ceci :

Code :

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

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)

[nidhal fekih]

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

[patricktoulon]

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 :

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
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 :

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

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