Bonjour,
Voila mon code :
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)
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
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
Partager