[VBA] Code pour ouverture de dossier

Version imprimable

Bonjour,
voici mon code pour l'ouverture de dossiers.

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
Private Sub CommandButton1_Click()
 
    Dim OuvrirFichiers As Variant
    'modification du chemin par defaut'
    ChDir ("c:\")
    'affichage de la boite de dialogue Ouvrir
    OuvrirFichiers = Application.GetOpenFilename(filefilter:="classeur Microsoft Excel(*.xls),*.xls,All Files (*.*),*.*,PageWeb(*.htm;*.html),*.htm;*.html", filterindex:=2, Title:="Ouverture des fichiers d'inspections", MultiSelect:=True)
    If OuvrirFichiers = False Then
    MsgBox "aucun fichier n'a été sélectionné. Fin de la procédure", _
            vbOKOnly + vbCritical, "fin de la procédure"
    Exit Sub
    End If
    'si l 'utilisateur a selectionné plusieurs fichiers
    If UBound(OuvrirFichiers) > 1 Then
       Dim rep As Long
       Dim liste As String
       Dim compteur As Byte
       For compteur = 1 To UBound(OuvrirFichiers)
         liste = liste & vbCr & OuvrirFichiers(compteur)
         Next compteur
         'affichage de l'ensemble de la liste des fichiers et proposition d'ouverture
         rep = MsgBox("L'utilisateur a selectionné plusieurs fichiers. En voici la liste." & liste & vbCr & "voulez-vous les ouvrir ?", vbYesNo + vbQuestion, "ouvrir les fichiers ?")
 
         'Ouverture des fichiers en cas de réponse positive
         If rep = vbYes Then
           For compteur = 1 To UBound(OuvrirFichiers)
             Worbooks.Open Filename:=OuvrirFichiers(compteur)
           Next compteur
         End If
     'si un seul fichier a été selectionné, il est ouvert
     Else
       Workbooks.Open Filename:=OuvrirFichiers(1)
     End If
 
End Sub

Mon programme ne marche plus lorsque j'ai ajouté les lignes pour la fermeture de la fenetre.
Je pense que cela est due au type de OuvrirFichiers mais je n'arrive pas a rectifier le programme.
Pouvez-vous m'aider

30/09/2008, 15h24
decondelite

Si tu nous donnais ce que t'as rajouté, stp. ;)

Pour l'instant je ne vois pas de problème: variant est supposé être compatible pour tout faire.
30/09/2008, 16h08
Trust
Effectivement ça te retourne une erreur de type car en mettant le multiselect à True, La fonction GetOpenFileName renvoit un tableau de 1 à n fichiers et donc ton test de booléen ne fonctionne plus

Remplace

Code:

If OuvrirFichiers = False Then

Par

Code:

If OuvrirFichiers(1) = False Then

et tu as une erreur là
Code:

1 2 3 4 5 If rep = vbYes Then For compteur = 1 To UBound(OuvrirFichiers) Worbooks.Open Filename:=OuvrirFichiers(compteur) Next compteur End If
il manque un "k" à ton Workbooks.

Cordialement,

P.S : pense à gérer si le fichier et déjà ouvert dans ta fonction

Code:

Workbooks.Open Filename:=OuvrirFichiers(1)

pour éviter les erreurs. :aie:
01/10/2008, 10h06
"Rone"

Merci de vos reponses.

J'ai reussi a simplifier le programme, et de le faire fonctionné.

Merci encore