XL 2019 Erreur avec CurDir

[re4]

Bonjour,
N'étant pas un expert ;-( je bloque sur ce petit code, j'ai remplacé ChDir par CurDir pour rester dans le même répertoire à l'ouverture d'une autre fenêtre mais il y a une erreur ici
If Fichier <> False Then

Pouvez-vous m'aider c'est visiblement pas la bonne procédure
Merci

' ChDir ThisWorkbook.Path
    CurDir ThisWorkbook.Path
    Fichier = Application.GetOpenFilename("Fichier CSV (*.csv), *.csv")
    If Fichier <> False Then
        LireCSV Fichier
    End If

 

[TooFatBoy]

J'avais cru comprendre que tu voulais ouvrir la boîte de dialogue directement sur un dossier particulier, mais si #6 fonctionne et te convient, alors c'est parfait. 👍


Sauf erreur de ma part, la variable MyPath ne te sert à rien dans la macro de #6, donc tu dois pouvoir enlever ces deux lignes. 😉

Dim MyPath
MyPath = CurDir 'ThisWorkbook.Path

 

[re4]

Exact ,-) Ca fonctionne, ça simplifie...

Sub csv()
Sheets("Mise_en_forme").Visible = True
Worksheets("Mise_en_forme").Select
       Fichier = Application.GetOpenFilename("Fichier CSV (*.csv), *.csv")
    If Fichier <> False Then
        LireCSV Fichier
    End If
End Sub

 

[Staple1600]

Bonjour le fil

Au cas où

Sub le_petit_bonus_dispensable()
Dim Message$
Message = "Bonjour," & Application.UserName & ", veux-tu bien choisir le fichier CSV, stp"
Fichier = Application.GetOpenFilename("Fichier CSV (*.csv), *.csv", , Message, , False)
End Sub