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
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
