Discussion :

[bosk1000]

bonjour a tous
je suis en train de migrer un code fait sur 2007 en 2003
sur une manip, le code plante avec le message d'erreur
erreur d'execution 2147024809
objet spécifié introuvable
mais ce qui est bizare c'est que la commande de la ligne se fait quand meme

voici le 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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
 
année4 = Year(Date)
année2 = Right(année4, 2)
 
caisse 'ouvre le fichier caisse
 
For i = 1 To 10
'place les dates
If Me.Controls("txt_gestion_libelle" & i).Value <> "" Then Range("b65536").End(xlUp).Offset(1, 0) = Date
' placer fiche depense
If Me.Controls("txt_gestion_libelle" & i).Value <> "" Then Range("c65536").End(xlUp).Offset(1, 0).Value = "fiche depense"
' placer les noms
If Me.Controls("txt_gestion_libelle" & i).Value <> "" Then Range("d121").End(xlUp).Offset(1, 0).Value = Me.Controls("txt_gestion_libelle" & i).Value
' placer la ventilation
If Me.Controls("txt_gestion_libelle" & i).Value <> "" Then Range("e65536").End(xlUp).Offset(1, 0).Value = 14
' placer la depense
If Me.Controls("txt_gestion_mtt" & i).Value <> "" Then Range("g104").End(xlUp).Offset(1, 0).Value = Me.Controls("txt_gestion_mtt" & i).Value
 
 
Next i
ActiveWorkbook.Save
ActiveWindow.Close
 
' OUVRE LE FICHIER DE VENTILATION
Fichier = Dir("e:\COMITE\compta " & année4 & "\gesti" & année2 & ".xls")
    If Fichier <> "" Then
        'le fichier existe
    Else
        'le fichier n'existe pas
    End If
Workbooks.Open Filename:="e:\COMITE\compta " & année4 & "\gesti" & année2 & ".xls"
'place les dates
For i = 1 To 10
If Me.Controls("txt_gestion_libelle" & i).Value <> "" Then Range("a65536").End(xlUp).Offset(1, 0) = Date
' placer fiche depense
If Me.Controls("txt_gestion_libelle" & i).Value <> "" Then Range("b65536").End(xlUp).Offset(1, 0).Value = "fiche depense"
' placer les noms et les depenses
If Me.Controls("txt_gestion_libelle" & i).Value <> "" Then Range("c46").End(xlUp).Offset(1, 0).Value = Me.Controls("txt_gestion_libelle" & i).Value
If Me.Controls("cbo_liste_gestion" & i).Value = "Port" Then Range("c46").End(xlUp).Offset(0, 1).Value = Me.Controls("txt_gestion_mtt" & i).Value
If Me.Controls("cbo_liste_gestion" & i).Value = "Abonnement" Then Range("c46").End(xlUp).Offset(0, 2).Value = Me.Controls("txt_gestion_mtt" & i).Value
If Me.Controls("cbo_liste_gestion" & i).Value = "Divers" Then Range("c46").End(xlUp).Offset(0, 3).Value = Me.Controls("txt_gestion_mtt" & i).Value
If Me.Controls("cbo_liste_gestion" & i).Value = "Frais adminis." Then Range("c46").End(xlUp).Offset(0, 4).Value = Me.Controls("txt_gestion_mtt" & i).Value
Next i
ActiveWorkbook.Save
ActiveWindow.Close
Unload Me
 
End Sub

le probleme est sur cette ligne de code
' placer la depense
If Me.Controls("txt_gestion_mtt" & i).Value <> "" Then Range("g104").End(xlUp).Offset(1, 0).Value = Me.Controls("txt_gestion_mtt" & i).Value
et le focus se met sur la partie que j'ai mis en gras
mais la manip de cette commande qui consiste a mettre la valeur de la textbox se fait quand même, mais le message d'erreur bloque a suite du processus
donc soit quelqu'un voit pourquoi je bug, sois existe-t-il un moyen de faire a cette commande
"si message d'erreur, alors on continue"

[bosk1000]

pour résoudre ponctuelement mon problème j'ai trouvé ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
On Error Resume Next ' On désactive la gestion des erreur
If Me.Controls("txt_gestion_mtt" & i).Value <> "" Then Range("g104").End(xlUp).Offset(1, 0).Value = Me.Controls("txt_gestion_mtt" & i).Value
On Error GoTo 0       ' On réactive la gestion des erreurs

bien que cela me permet de passer outre le bug, cela ne m'explique pas pourquoi j'ai ce bug.