erreur d'execution 2147024809
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:
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"
