Toujours planté avec nouveau test Grrr.........

[boulou]

Impossible d'obtenir en Range "C" le retour de la valeur de la cellule B10 de la feuille 1 d'un classeur Z1 situé dans le même répertoire.
Sous Excel /Office 2000 le débogueur me colore la ligne en jaune.
Je ne comprends toujours où se situe l'erreur.
Merci à ceux qui voudront bien se pencher sur mon problème qui doit être mineur mais insurmontable pour le néophyte que je suis.

 

[skoobi]

Re : Toujours planté avec nouveau test Grrr.........

Bonjour boulou,

aucun des 2 fichiers ne contient de macro...

 

[boulou]

Re : Toujours planté avec nouveau test Grrr.........

Bonjour boulou,

aucun des 2 fichiers ne contient de macro...

Pardon. Voici ma macro actuelle.

'Bouton = Etoile rouge

Sub Archivage_quotidien()
DL = Range("A25000").End(xlUp).Row + 1
Chemin = ActiveWorkbook.Path & "\"
'introduit date jour
Range("A" & DL) = Date
'transfert valeur de la cellule H10
Range("B" & DL) = ExecuteExcel4Macro("!R10C8")
'transfert valeur de la cellule H12
Range("D" & DL) = ExecuteExcel4Macro("!R12C8")
'transfert valeur de la cellule H20 Feuille 2
Range("G" & DL) = ExecuteExcel4Macro("'Feuil2'!R20C8")
'transfert valeur de la cellule B10 Feuille 1 Classeur Z1
Range("C" & DL) = ExecuteExcel4Macro("" & Chemin & "[ClasseurZ1.xls]Feuil1!$B$10")
End Sub

 

[GIBI]

Re : Toujours planté avec nouveau test Grrr.........

Bonjour,

a priori tu te complique la vie en utilisant ExecuteExcel4Macro alors qu'un simple range suffit s'il n'y a pas de formule à calculer dans ta cellule

Pour la ligne qui ne fonctionne je t'ai corrigé avec la solution Evaluate et range (il manquait l'apostrophe que tu as bien mis dans les autres cas)

'transfert valeur de la cellule H10
Range("B" & DL) = Range("H10")
'transfert valeur de la cellule H12
Range("D" & DL) = Range("H12")
'transfert valeur de la cellule H20 Feuille 2
Range("G" & DL) = Range("'Feuil2'!H20")
'transfert valeur de la cellule B10 Feuille 1 Classeur Z1 (avec range ou evaluate)
'Range("C" & DL) = Evaluate("'" & Chemin & "[ClasseurZ1.xls]Feuil1'!$B$10")
Range("C" & DL) = Range("'" & Chemin & "[ClasseurZ1.xls]Feuil1'!$B$10")

Bon courage

GIBI

 

[boulou]

Re : Toujours planté avec nouveau test Grrr.........

Bonjour,

a priori tu te complique la vie en utilisant ExecuteExcel4Macro alors qu'un simple range suffit s'il n'y a pas de formule à calculer dans ta cellule

Pour la ligne qui ne fonctionne je t'ai corrigé avec la solution Evaluate et range (il manquait l'apostrophe que tu as bien mis dans les autres cas)

'transfert valeur de la cellule H10
Range("B" & DL) = Range("H10")
'transfert valeur de la cellule H12
Range("D" & DL) = Range("H12")
'transfert valeur de la cellule H20 Feuille 2
Range("G" & DL) = Range("'Feuil2'!H20")
'transfert valeur de la cellule B10 Feuille 1 Classeur Z1 (avec range ou evaluate)
'Range("C" & DL) = Evaluate("'" & Chemin & "[ClasseurZ1.xls]Feuil1'!$B$10")
Range("C" & DL) = Range("'" & Chemin & "[ClasseurZ1.xls]Feuil1'!$B$10")

Bon courage

GIBI

Absolument parfait et plein de remerciements à toi.
Gérard.