Bonjour,

Voila mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Write_DB()
    Dim dlg As New dlgFile
    
    Application.ScreenUpdating = False
    
    If Check_All Then
        If Worksheets("DB").Cells(1, 3) <> "" Then
            dlg.dlgFindDBFile.ShowSave
            If dlg.dlgFindDBFile.FileName <> "" Then
                Write_DB_In_File dlg.dlgFindDBFile.FileName
            End If
        Else
            MsgBox "DB-Number is missing"
            Worksheets("DB").Cells(1, 3).Select
        End If
    End If
    
    Application.ScreenUpdating = True
    
    Set dlg = Nothing
End Sub
Ce code compile sur certain PC mais sur d'autres une erreur apparait à la ligne soulignée (Compile error : method or data member not found)

Je crois que VB ne reconnait pas ShowSave mais je ne sais pas quoi faire pour que ça marche.
Si vous avez des idées je suis prenneur.
Merci