Importer données fichier texte excel [Résolu/Fermé]

Sub Recup()
Dim DernLigne As Long
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
 Dim Fichier
    Fichier = Application.GetOpenFilename("Text Files (*.txt), *.txt")
    If Fichier <> False Then
    'crée une requête sur le fichier texte et insère les champs
       'dans la feuille "Feuil1" en partant de "A1" à adapter
       Worksheets("Feuil1").QueryTables.Add("TEXT;" & Fichier, Range("A" & DernLigne)).Refresh 'à adapter
        Range("A1:A" & DernLigne).Select
    Selection.Delete Shift:=xlToLeft
   Else
        MsgBox "Pour importer des données dans Excel, vous devez choisir un fichier texte !"
    End If
End Sub

Option Explicit

Public continuer As Boolean

Sub detection_erreur_pv()

Sheets("PV").Select

If Cells(8, 3).Value = "" Then MsgBox "Numéro de l'OP manquant"
If Cells(9, 4).Value = "" Then MsgBox "Numéro de l'OP manquant"
continuer = False
End Sub

Sub programme_principal()
Application.ScreenUpdating = False
continuer = True
Call suppression_pv
Call ouverture_pv
Call detection_erreur_pv
Sheets("Synthèse").Select
If continuer = False Then
Exit Sub
Else
'tes macros
End If

End Sub

Sub detection_erreur_pv()
Sheets("PV").Select
If Cells(8, 3).Value = "" Then
MsgBox "Numéro de l'OP manquant"
continuer = False
ElseIf Cells(9, 4).Value = "" Then
MsgBox "Numéro de machine manquant"
continuer = False
Else
continuer = True
End If
End Sub

Option Explicit
Public continuer As Boolean
Sub detection_erreur_pv()
Sheets("PV").Select
If Cells(8, 3).Value = "" Then
MsgBox "Numéro de l'OP manquant"
continuer = False
ElseIf Cells(9, 4).Value = "" Then
MsgBox "Numéro de machine manquant"
continuer = False
Else
continuer = True
End If
End Sub

Option Explicit
Sub programme_principal()
Application.ScreenUpdating = False
Call suppression_pv 'continuer = true
Call ouverture_pv 'continuer = true
Call detection_erreur_pv 'continuer = true
If continuer = False Then
Exit Sub 'continuer = false
Else
    Call fermeture 'continuer = true
Sheets("Synthèse").Select 'continuer = true
End If
Application.ScreenUpdating = True
End Sub