Utlisation DialogFilePicker

Bonjour a tous,

Déjà merci beacoup a tous ceux qui bossent sur se site, qui font un travail super.

Vous m'avez à plusieurs reprises sortis de situation compliquées. Voilà mon problème:

Je souhaiterais crées une macro qui, via un bouton, ouvrira un boite de dialogue afin de choisir

un fichier txt, copiera le contenu du fichier dans mon premier fichier excel dans des colonnes differentes.

J'ai reussi tous faire jusqu'a ouvrir la boite de dialogue pour la selection du fichier (DialogFilePicker) mais pour la suite je sèche.

Je vous ai mis le fichier .txt que je souhaite utiliser.

Est-ce que vous pouvez m'aider ?

Merci

Bonne Journée

Bonjour,

Ci-joint une proposition à tester.

> Bouton violet => sélection du fichier texte à importer => résultat dans l'onglet "Donnees"

> modification des 2 colonnes de date (14.11.2016 => 14/11/2016)

Bonne journée

Bouben

Salut,

Une proposition en PJ.

Meric beaucoup pour vos réponses. Voilà ce que j'ai faits.

Private Sub Importdata_Click()

fileToOpen = Application _

.GetOpenFilename("Text Files (*.txt), *.txt")

If fileToOpen <> False Then

MsgBox "Open " & fileToOpen

End If

Workbooks.OpenText Filename:=fileToOpen, _

DataType:=xlDelimited, Tab:=True

ActiveWorkbook.SaveAs Filename:="emplacement" & Date & ".xls" _

ActiveSheet.Range("A2:Z500").Select

selection.Copy

Workbooks("fichier a copier.xlsm").Activate