Demande aide

[Are]

Bonjour forum

j'ai fait un programme qui ouvre un fichier txt recupére les données,crée un autre fichier pour y mettre les données

Open mon_fichier For Input As #1
Open 'C:\\mon_fichier1.txt' For Output As #2
write#2,.....

mé le probléme c'est comment faire aulieu de mettre tjrs dans C:
mon_fichier1,il me demande de donner un nom pour l'enregistrer


merci pour votre aide car j'en ai besoin

 

[MichelXld]

bonsoir

tu peux tester cette macro pour choisir le repertoire

Sub choixRepertoire()
Dim objShell As Object, objFolder As Object
Dim SecuriteSlash As Integer
Dim Chemin As String

Set objShell = CreateObject('Shell.Application')
Set objFolder = objShell.BrowseForFolder(&H0&, 'Choisir un répertoire', &H1&)

On Error Resume Next
Chemin = objFolder.ParentFolder.ParseName(objFolder.Title).Path
SecuriteSlash = InStr(objFolder.Title, ':')
If SecuriteSlash > 0 Then Chemin = Mid(objFolder.Title, SecuriteSlash - 1, 2) & ''

If Chemin = '' Then Exit Sub

MsgBox Chemin

'.....
'Open mon_fichier For Input As #1
'Open Chemin & '\\mon_fichier1.txt' For Output As #2
'write#2,.....
'.....

End Sub

bonne soiree
MichelXld