Boite de dialogue OUVRIR

[Fredox]

Bonsoir,
J'ai ce code, il permet d'ouvrir une boite de dialogue pour importer un fichier type csv:

Dim Fichier As Variant
' ChDir ThisWorkbook.Path
ChDrive "D"
ChDir "D:\Docs"
Fichier = Application.GetOpenFilename("Bon de commande JETI, *.bst")
If Fichier <> False Then
Lire Fichier
End If

Mon probleme est que si le dossier D:\Docs n'existe pas sur l'ordinateur, une erreur apparait. Est-il possible de definir un autre répertoir (comme c:\) si le premier n'est pas valide ?

Merci

 

[tirex28]

Re : Boite de dialogue OUVRIR

Bonsoir,

tu peux intercepter l'erreur, la corriger et reprendre l'execution:

Public Sub Ouvrir()
    Dim Fichier As Variant
    On Error GoTo errh
    ChDrive "D"
    ChDir "D:\Docs"
    Fichier = Application.GetOpenFilename("Bon de commande JETI, *.bst")
    If Fichier <> False Then
        Lire Fichier
    End If
    Exit Sub
errh:
    MsgBox Err.Number & Err.Description
    ChDrive "C"
    ChDir Application.Path  'Definit un autre dossier
    Resume Next             'Reprend a la ligne suivante
End Sub

Cordialement,

Tirex28/

 

[Fredox]

Re : Boite de dialogue OUVRIR

Super !

Impec, c'est exactement ca.

Avec quelques modif pour toujours faire mieux, mais rien a dire, c'est parfait.



MERCI 🙂