Enregistrement d'une action dans une combo box

Dans ce fichier, j'extrait les données d'un fichier txt de manière visible pour pouvoir le modifier.

Quand j'ai sélectionné mon fichier, que ma combo box s'ouvre et que j'ai modifié ce que je souhaite modifier il n'enregistre pas ma modification

Voici le code que j'ai

Option Explicit

Sub traiterDMC()
Dim f As String
Dim uf As ufDMC
Dim dernLigne As Long
  f = Application.GetOpenFilename("Fichier DMC , *.*")
  If f <> "" Then
    If openDMC(f) Then
      Set uf = New ufDMC
      uf.Show
      If uf.bSave Then saveDMC f
      Unload uf
    End If
  End If
End Sub

Private Function openDMC(ByVal f As String) As Boolean
Dim s As String
Dim i As Long
  openDMC = False
  'f = Application.GetOpenFilename("Fichier DMC , *.*")
 'If f <> "" Then
   Worksheets("DATA_DMC").Cells.ClearContents
    Open f For Input As #1
    i = 1
    Do Until EOF(1)
      Line Input #1, s
      Worksheets("DATA_DMC").Cells(i, 1).Value = s
      i = i + 1
    Loop
    Close #1
    openDMC = True
  'End If
End Function

Private Function saveDMC(ByVal f As String) As Boolean
Dim i As Long
  MsgBox "Saved"
  ' - - - - - -
 Exit Function
  ' - - - - - -

 Open f For Output As #2
  i = 1
  With Worksheets("DATA_DMC")
    While .Cells(i, 1).Value <> ""
      'boucle sur cellules
     Write #2, .Cells(i, 1).Value
      i = i + 1
    Wend
  End With
  Close #2
End Function

Quelqu'un pourrait il m'aider

Je vous remercie

Cdt

Bonjour

Pourquoi ce Exit Function en début de ta fonction ?

Bonsoir

Ah oui, peut etre que c'est cela

cdt

Bonsoir

Même en enlevant ce message, cela n'enregistre pas ma modification

Quelqu'un peut il regarder SVP ?

Merci

Cdt

Bonjour

FMAILYS a écrit :

Même en enlevant ce message,

Pas besoin d'enlever le message c'est cette ligne qu'il faut supprimer

Private Function saveDMC(ByVal f As String) As Boolean
Dim i As Long
  MsgBox "Saved"
  ' - - - - - -
 Exit Function
  ' - - - - - -

Bonjour

C'est ce que j'ai fait et cela n'enregistre rien

Cdt

Bonjour

Pour tester il me faut un fichier DMC

Ensuite tu détailles les opérations à faire pour que l'appel de la fonction "saveDMC" soit effectif

Voici le fichier

A l'aide de Cjoint car c'est un .csv

Il faut cliquer sur le bouton Modifier fichier DMC CNETP/CIBTP

Sélectionner le fichier DMC

le combo box s'ouvre, corriger une donnée et faire ok

C'est à ce moment là que l'on doit enregistrer la correction

Merci

cdt

Bonjour

Le programme fonctionne comme il a été conçu

Il faut d'abord modifier un champ

ensuite il faut changer d'enregistrement (avec le ScrollBar) répondre "OUI"

Ensuite Appuyez sur "OK"

Répondre "Oui"

Et le fichier sera (mal ?) modifié

Merci beaucoup

C'est nickel

Cdt