N
nicolas
Guest
bonjour,
je ne comprends pas pourquoi cet extrait d'un programme ne veut pas marcher :
Dim numcompte As Single
Dim nomclient As String
Dim n As Integer
Dim xlApp As Object
Sub historique()
numcompte = InputBox("numcompte")
nomclient = InputBox("nom client")
Set xlApp = CreateObject("Excel.Application")
xlApp.Open ("historique.xls")
xlApp.Worksheets(1).Range("A2").Activate
n = 1
Do While ActiveCell.Offset(n, 0) <> "" And ActiveCell.Offset(n, 0) <> numcompte
n = n + 1
Loop
ActiveCell.Offset(n, 2) = ActiveCell.Offset(n, 2) + 1
ActiveCell.Offset(n, 3) = Date
If ActiveCell.Offset(n, 0) = "" Then
ActiveCell.Offset(n, 0) = numcompte
ActiveCell.Offset(n, 1) = nomclient
End If
End Sub
Ce programme est lancé à partir d'un fichier word.
mais vba me réponds : erreur d'execution 438.
Si vous pouvez m'aidez, par avance merci....
je ne comprends pas pourquoi cet extrait d'un programme ne veut pas marcher :
Dim numcompte As Single
Dim nomclient As String
Dim n As Integer
Dim xlApp As Object
Sub historique()
numcompte = InputBox("numcompte")
nomclient = InputBox("nom client")
Set xlApp = CreateObject("Excel.Application")
xlApp.Open ("historique.xls")
xlApp.Worksheets(1).Range("A2").Activate
n = 1
Do While ActiveCell.Offset(n, 0) <> "" And ActiveCell.Offset(n, 0) <> numcompte
n = n + 1
Loop
ActiveCell.Offset(n, 2) = ActiveCell.Offset(n, 2) + 1
ActiveCell.Offset(n, 3) = Date
If ActiveCell.Offset(n, 0) = "" Then
ActiveCell.Offset(n, 0) = numcompte
ActiveCell.Offset(n, 1) = nomclient
End If
End Sub
Ce programme est lancé à partir d'un fichier word.
mais vba me réponds : erreur d'execution 438.
Si vous pouvez m'aidez, par avance merci....