Exporter le contenu d'une colonne vers un fichier texte

j'ai ce code qui me permet de copier le contenu de la colonne 'H' de mon classeur excel, et de le sauvegarder dans un fichier texte dans la partition 'D'.

Je veux le modifier d'une sorte qu'il me laisse choisir le nom et l'emplacement de sauvegarde.

Sub Export()

Dim i As Long, derLig As Long, tabl

derLig = Range("H" & Cells.Rows.Count).End(xlUp).Row
tabl = Range("H1:H" & derLig)
Open "D:\CCP.txt" For Output As #1
For i = 1 To UBound(tabl, 1)
If tabl(i, 1) <> "" Then
Print #1, tabl(i, 1)
End If
Next
Close #1
MsgBox ("Le Fichier CCP A Eté Créé Dans Le Disque D")
End Sub

Merci d'avance.

Bonjour

nomfich = Application.GetOpenFilename
If nomfich = False Then Exit Sub

A+ François

Merci fanfan38

peut tu m'écrire le code en totalité ?

Sub Export()
  Dim i As Long, derLig As Long, tabl, nomfich
  derLig = Range("H" & Cells.Rows.Count).End(xlUp).Row
  tabl = Range("H1:H" & derLig)
  nomfich = Application.GetOpenFilename
  If nomfich = False Then Exit Sub
  Workbooks.Open Filename:=nomfich
  For i = 1 To UBound(tabl, 1)
    If tabl(i, 1) <> "" Then Print #1, tabl(i, 1)
  Next
  ActiveWorkbook.Save
  ActiveWorkbook.Close
  MsgBox ("Le Fichier CCP A Eté Créé dans " & Chr(10) & Chr(13) & nomfich)
End Sub

A+ François

C'est bon, on a fait ses courses...

Tu n'as pas vu ma signature...

La politesse est de dire merci...

A+ François