EXEMPLE SHOWOPEN SHOWSAVE AINCI QUE ACCES AUX FICHIERS

'premiere methode (pour tout les fichier mais tout le fichier est en memoire ...

Dim Memoire As String 'TRES important pour le premier cas autremant ca marche pas !

CommonDialog1.ShowOpen
Fichier_In = CommonDialog1.filename
Debug.Print Fichier_In

Open Fichier_In For Binary Access Read As #1
    Memoire = Input(LOF(1), #1)
Close #1

Suite1:

CommonDialog1.ShowSave
Fichier_Out = CommonDialog1.filename
Debug.Print Fichier_Out

If Fichier_Out = Fichier_In Then MsgBox "Merci de metre deux nom de fichier differants !": GoTo Suite1

Open CommonDialog1.filename For Binary As #1
    Put #1, , Memoire
Close #1

'seconde methode (pour les fichier text, le problme en fair c'est qu'il rajoute des caractere de controle qui fait planter les exe, bmp,jpg... seul les texte passe sans prob
MsgBox "Seconde methode"

CommonDialog1.ShowOpen
Fichier_In = CommonDialog1.filename
Debug.Print Fichier_In


CommonDialog1.ShowSave
Fichier_Out = CommonDialog1.filename
    Debug.Print Fichier_Out
If Fichier_Out = Fichier_In Then MsgBox "Merci de metre deux nom de fichier differants !": GoTo Suite2

Open Fichier_In For Input As #1
Open Fichier_Out For Output As #2
Do While Not EOF(1) ' Vérifie si la fin du fichier
    
    Line Input #1, InputData    ' Lit les lignes de
    
    Debug.Print InputData   ' Imprime dans la fenêtre
    'reecri le nouveau fichier
    
    Print #2, InputData

Loop
Close #1    ' Ferme le fichier.
Close #2
Suite2: