modifier fichier excel à partir d'un autre fichier

[nicolas]

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....

 

[Jon]

bonjour

pour voir où est exactement le problème
pose un point d'arrêt sur chacuen des lignes suivantes :
xlApp.Open ("historique.xls")
xlApp.Worksheets(1).Range("A2").Activate

puis fais F5 une fois, ta macro va te demander tes 2 valeurs.
rappuyes sur F5 tu verras si alors si la première instruction fonctionne.

Je pense que l'erreur est plutôt dans xlApp.Open
essaye plutôt xlApp.workbooks.open

qui plus est l'instruction xlApp.Worksheets(1).Range("A2").Activate me semble fausse.
essaye xlApp.workbooks(1).worksheets(1).range("A2").activate
(peut-être faut-il d'abord activer la feuille)

bye
stephane

 

[nicolas]

merci de m'avoir répondu......

..........mais ça marche toujours pas.

je crois que je vais dire à mon cher boss que je suis payé pour faire de la finance pas de l'informatique.

bonne continuation