Discussion :

[aarlock]

bonjour a tous,


Je cherche à executer une macro excel en lancant celle ci depuis access

Code :

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

1
2
3
4
5
 
Set xlApp = CreateObject("Excel.Application")
Set xlbook = xlApp.Workbooks.Open("E:\fichier.xls", ReadOnly:=False)
 
xlApp.Run "executable"

Je rencontre l'erreur "la methode range a echoué" lors de l'execution de ma macro excel

Code :

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

1
2
3
4
5
6
7
8
Sub executable

    Worksheets("OCRIM").Select
    
    [...]

    Selection.Range("F" & lignecourante).FormulaLocal = "=INDEX('tableau dynamique'!C3:C" & valeur + 2 & ";EQUIV(B" & lignecourante & ";'tableau dynamique'!A3:A" & valeur & "))"

la ligne qui me pose problème est la ligne en gras
J'ai essayé de remplacer la formule apres le signe = par une valeur (2 par exemple) et le code tourne normalement.

la macro excel tourne parfaitement lorsque je la lance manuellement depuis excel.

Avez vous une idée d'ou peut venir l'erreur???

Merci

[aarlock]

ok je viens de trouver mon erreur, la variable "valeur" contenait un nombre decimal.

Forcement excel ne comprend pas quand on lui demande de selectionner un morceau de cellule, j'espere que microsoft va changer ca

[ben_skywalker]

pense au tag si c'est bon...