Exporter excel vers Notepad

[matrix]

Bonjour à tous.

Dans ma macro, je transfert les données d'un fichier excel vers un document TXT de notepad.

Je voudrais faire en sorte qu'il me demande le nom du fichier que je veux lui donner et peut-êtres même l'endrois ou le sauvegarder.

Comment faire s.v.p?

Const DELIMITER As String = "" 
        Const PAD As String = " "   
        Dim vFieldArray As Variant
        Dim myRecord As Range
        Dim nFileNum As Long
        Dim i As Long
        Dim sOut As String
        
                vFieldArray = Array(1, 1, 12, 12, 35, 35, 35, 35, 20, 20, 10, 35, 13, 5, 31, 10, 10, 15, 5, 5, 1, 3, 12, 1, 1, 12, 2, 12, 12, 12, 12, 12, 9, 1, 9, 6, 6, 6, 3, 12, 75, 20, 50, 6, 10, 1, 75, 5, 180)
        nFileNum = FreeFile
        Open "Test.txt" For Output As #nFileNum
        For Each myRecord In Range("A2:A" & _
                Range("A" & Rows.Count).End(xlUp).Row)
            With myRecord
                For i = 0 To 9
                    sOut = sOut & DELIMITER & Left(.Offset(0, i).Text & _
                            String(vFieldArray(i), PAD), vFieldArray(i))
                Next i
                Print #nFileNum, Mid(sOut, Len(DELIMITER) + 1)
                sOut = Empty
                For i = 10 To UBound(vFieldArray)
                    sOut = sOut & DELIMITER & Left(.Offset(0, i).Text & _
                            String(vFieldArray(i), PAD), vFieldArray(i))
                Next i
                Print #nFileNum, Mid(sOut, Len(DELIMITER) + 1)
                sOut = Empty
            End With
        Next myRecord
        Close #nFileNum
        
        MsgBox "Terminé"

Merci pour votre aides
🙂

 

[kllmoon]

Re : Exporter excel vers Notepad

Utilise quelque chose du genre

""C:\Documents and Settings\" & InputBox("Quel est votre nom d'utilisateur sur cet ordinateur?") & "\Bureau\test\" & InputBox("Comment voulez-vous nommer votre fichier?") &".txt"""""

Je peux t'aider avec le code complet pour sauvegarder mais je m'en vais me coucher, faudra attendre a demain 🙂

 

[matrix]

Re : Exporter excel vers Notepad

Je peux t'aider avec le code complet pour sauvegarder mais je m'en vais me coucher, faudra attendre a demain

Ça serait super merci pour ton aide.

Je continu de chercher pendant ce temps là car je bloc à cette étape.