Importer un fichier text

Salut forum

Je cherche une solution qui permet d'importer une fichier text dans mon fichier excel avec Données-Données externe-Importation données, et à partir de la fenêtre explorer de windows, je pourrais sélectionner mon fichier text.

Merci pour toutes les réponses.

A tout soudain

Bobby

si tu as office 2007, clique sur data et sur l'icone "from text"

pour 2003, il me semble que tu dois faire: données/données externes/importer des données externes/ et là dans type de fichier tu sélectionnes .txt

Bonjour,

Je comprends la question d’une manière différente

J e la reformulerais ainsi

Ouvrir l’explorateur Windows pour chercher UN fichier TXT depuis Excel

J’avais un truc via une macro

En voici une que j’avais plus ou moins adaptée à mes besoins du moment

Sub R01_RechercherFichierTXT()

'Déclare une variable de type clsCommonDialogs

Dim BoîteOuvrir As New clsCommonDialogs

'Titre de la boîte de dialogue

BoîteOuvrir.TitreBoîte = "Ouvrir un fichier TXT de données"

'Chemin théorique

BoîteOuvrir.Repertoire = ThisWorkbook.Path

'Filtre

BoîteOuvrir.Filtre = "Fichier TXT (*.TXT) " & Chr(0) & "*.TXT" & Chr(0) & "Tous fichiers (*.*)" & Chr(0) & "*.*" & Chr(0)

'Affichage de la boîte de dialogue "Ouvrir"

MonFichierEnLecture = BoîteOuvrir.ShowOpen

If MonFichierEnLecture = "" Then Exit Sub

'Si la boîte n'a pas été annulée...

MonFichierEnLecture = Left(MonFichierEnLecture, Len(MonFichierEnLecture) - 1)

If MonFichierEnLecture <> "" Then

'...si le fichier est bien un fichier Access...

If UCase(Right(MonFichierEnLecture, 3)) = "TXT" Then

' ici les traitement a faire

'par exemple mémoriser le nom du fichier

Sheets("Menu").Range("E5").Formula = MonFichierEnLecture

Else

MsgBox "Seuls les Fichiers Texte de type TXT sont autorisées."

End If

End If

End Sub

Si cela peut servir

Cordialement

Alain

ben pour moi dans ce cas, pas besoin d'une macro aussi longue, ou alors je pige pas le truc...

Si l'ouverture par macro alors on peut faire:

Sub test()

Application.Dialogs(xlDialogImportTextFile).Show

End Sub

Sinon je pige pas le truc...

Bonjour Souri84, Salut à tous

Effectivement, c’est nettement plus simple

Le seul avantage de ma loooonguuuue macro, (faut bien que je lui en trouve un !)

C’est qu’en principe les arguments de recherches je les positionne

Ici c’est des TXT, mais cela pourrait être que des CSV, XLS, DOC, JPG , des .TRUC, des .MAChins . . . Etc.

Bon honnêtement, je ne savais pas qu’il existait : « Application.Dialogs(xlDialogImportTextFile).Show »

Ma macro date de l’époque ou j’utilisais Excel97

Et quand un TrucMachin fonctionne pourquoi chercher lorsque dans sa bibliothèque de macro nous trouvons notre satisfaction :

Au plaisir de futures rencontres (J’ai bien rattrapé le coup ! Non ?) Aller

Cordialement

Alain