Microsoft 365 Assistant Importation de texte en VBA

[bibbip35]

Bonjour à tous

Je "but" sur un problème en VBA malgré des recherches sur le forum et le NET

Aujourd'hui , j'utilise une Macro pour importer du texte dans une feuille excel
Mon problème est que les délimiteurs du fichiers texte peuvent être aussi bien un espace , une tabulation , une virgule , un point virgule; ; etc...

J’aurais donc voulu quand je charge le fichier texte via ma macro , qu'il ouvre la fonction excel "Assistant Importation texte " natif d'excel ...
Aujourd'hui , je dois transformer le fichier texte en amont du chargement ... Et j’aurais donc souhaiter pour faciliter l'utilisation pour l'utilisateur
regrouper ces fonctions si c'est un fichier texte

Voici mon code utilisé :

Sub Ouvre_XY()
Dim wbMyWb As Workbook
Dim Nom_Fichier As Variant


APPLICATION_PROGFAISEUR = (Sheets("Paramêtres").Range("B63").Value) 'Fichier PROGFAISEUR

MsgBox "Veuillez SVP selectioner le fichier XY que vous souhaitez importer ", 64, "Import Pick and place"

Nom_Fichier = Application.GetOpenFilename("Pick and place (*.*),*.* ", 1, "Sélectionnez le pick and place à importer", , False)
If Nom_Fichier <> False Then
Set wbMyWb = Workbooks.Open(Nom_Fichier)
'wbMyWb.Activate
Windows(APPLICATION_PROGFAISEUR).Activate
Sheets("Paramêtres").Range("B66") = wbMyWb.Name

Merci à tous pour votre aide

Bibbip35