Bonjour à tous,
Je suis en train de réaliser un code vba pour traiter un fichier de point txt ( nuage de point X et Y).
J’ai réalisé la partie traitement, détection des signaux et calcul pour un seul fichier txt.
Je souhaiterai maintenant créer une macro qui me permet de sélectionner tous mes fichiers txt et de les importer dans un seul classeur avec le nom de chaque fichier sur la première ligne.
Je dois aussi supprimer les caractères d’ouverture et de fermeture qui sont en début et en fin de fichier. Tous les fichiers txt ne font pas la même taille.
J’ai commençé le code avec une box qui s’ouvre et qui demande de sélectionner tous les fichiers (pas forcément dans le même que le fichier excel contenant la macro import souhaitée) en commençant par le dernier pour les classer dans l’ordre dans le classeur.
J’ai mis un exemple du fichier xls que je souhaiterai obtenir après l’importation de tous mes fichiers txt ainsi que 3 fichiers txt.
Avez-vous une idée pour compléter mon début de code et réaliser la macro ?
Je vous remercie d’avance pour votre aide
Bonne journée à tous et merci !
Jojo
Sub Feuil1_Bouton1_Cliquer()
Dim o As String
Dim OuvrirFichier As FileDialog
Dim FichierSélectionné As Variant
Set OuvrirFichier = Application.FileDialog(msoFileDialogOpen)
With OuvrirFichier
.AllowMultiSelect = True
.Show
For Each FichierSélectionné In .SelectedItems
o = FichierSélectionné
‘nom du fichier
‘importer données
‘convertir séparateur espace
‘supprimer entête et fin de fichier
‘copier nomfichier en première ligne
Next
'convertir point en virgule de tout le classeur
End With
Application.ScreenUpdating = True
Je suis en train de réaliser un code vba pour traiter un fichier de point txt ( nuage de point X et Y).
J’ai réalisé la partie traitement, détection des signaux et calcul pour un seul fichier txt.
Je souhaiterai maintenant créer une macro qui me permet de sélectionner tous mes fichiers txt et de les importer dans un seul classeur avec le nom de chaque fichier sur la première ligne.
Je dois aussi supprimer les caractères d’ouverture et de fermeture qui sont en début et en fin de fichier. Tous les fichiers txt ne font pas la même taille.
J’ai commençé le code avec une box qui s’ouvre et qui demande de sélectionner tous les fichiers (pas forcément dans le même que le fichier excel contenant la macro import souhaitée) en commençant par le dernier pour les classer dans l’ordre dans le classeur.
J’ai mis un exemple du fichier xls que je souhaiterai obtenir après l’importation de tous mes fichiers txt ainsi que 3 fichiers txt.
Avez-vous une idée pour compléter mon début de code et réaliser la macro ?
Je vous remercie d’avance pour votre aide
Bonne journée à tous et merci !
Jojo
Sub Feuil1_Bouton1_Cliquer()
Dim o As String
Dim OuvrirFichier As FileDialog
Dim FichierSélectionné As Variant
Set OuvrirFichier = Application.FileDialog(msoFileDialogOpen)
With OuvrirFichier
.AllowMultiSelect = True
.Show
For Each FichierSélectionné In .SelectedItems
o = FichierSélectionné
‘nom du fichier
‘importer données
‘convertir séparateur espace
‘supprimer entête et fin de fichier
‘copier nomfichier en première ligne
Next
'convertir point en virgule de tout le classeur
End With
Application.ScreenUpdating = True
Pièces jointes
Dernière édition: