VBA Excel demander à l'utilisateur de sélectionner un fichier dans un dossier par défaut

Je voudrais demander à l'utilisateur d'ouvrir un fichier Excel dans un dossier par défaut. Je ne sais pas comment faire pour ouvrir un dossier par défaut. 

Sub Program1()
    DefaultFolder = "C:\user\dump"
    FName = Application.GetOpenFilename
    If FName <> False Then
        Set WorkB2 = Workbooks.Open(FName)
        ' some codes here
    End If
End Sub
InformationsquelleAutor Mohsen | 2015-05-29
  1. 7

    Utiliser chdir:

    Sub Program1()
  Chdir "C:\user\dump"
  FName = Application.GetOpenFilename
  If FName <> False Then
    Set WorkB2 = Workbooks.Open(FName)
    ' some codes here
  End If
End Sub
    InformationsquelleAutor vacip
  2. 1

    Ici est un exemple d'ouverture d'un fichier excel

    Option Explicit
Sub OpenFile()
    Dim xlFile      As Variant

    ChDir "C:\temp"

    '//Showing Excel Dialog
    xlFile = Application.GetOpenFilename("All Excel Files (*.xls*)," & _
    "*.xls*", 1, "Select Excel File", "Open", False)

    '//If Cancel then exit
    If TypeName(xlFile) = "Boolean" Then
        Exit Sub
    End If

    '//Open selected file
    Workbooks.Open xlFile
End Sub
    • Je pense que c'était pas la question. "Je voudrais demander à l'utilisateur d'ouvrir un fichier Excel dans un dossier par défaut." Si je comprends bien, il est à la recherche d'un moyen de définir le dossier par défaut. Regardez sa tentative dans le code: DefaultFolder = "C:\user\dump"
    • grrr je pense que j'ai besoin d'obtenir de café de mon erreur @vacip
    • Je suis heureux u mentionné cette méthode, je n'ai jamais utilisé Application.FileDialog(msoFileDialogOpen), donc je vais lui donner un aller la prochaine fois. 🙂
    • votre wellcome j'aime votre réponse +1
    InformationsquelleAutor 0m3r