Essaie - Erreur pour formule VBA

Le
Samuel DeCarmel
Rebonjour,

est-ce que quelqu'un d'autre aurait une solution?

Merci!

>--Message d'origine--
>Hello!
>
>J'ai une formule qui va chercher des valeurs dans un
>autre fichier Excel (ferm ou ouvert). Est-ce possible
>d'assigner le rsultat une variable sans placer la
>valeur dans la cellule E14? Voici les lignes de code :
>
>Sub test()
>Dim Path As String, onglet1 As String, onglet2 As String
>Dim fichier As String, Cell_1 As Range, Cell_11 As String
>Dim Cell_2 As Range, Cell_21 As String
>
>Path = ActiveWorkbook.Path
>onglet1 = "Donnes Base"
>onglet2 = "Tab Gestion"
>fichier = "test2.xls"
>Set Cell_1 = Range("F12")
>Set Cell_2 = Range("E6")
>
>Cell_11 = Cell_1.Address(0, 0)
>Cell_21 = Cell_2.Address(0, 0)
>
>[E14] = _
> "=ROUND('" & Path & "" & "[" & fichier & "]" &
onglet1
>& "'!" & _
>Cell_11 & "*('" & Path & "" & "[" & fichier & "]" & _
>onglet2 & "'!" & Cell_21 & "*1.2),0)"
>
>End Sub
>
>Merci normment!
>Sam
>.
>
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
michdenis
Le #1921397
Bonjour Samuel,

Tu as une réponse valable (!) à ton autre fil.


Salutations!


"Samuel DeCarmel" 303c01c4e054$ca6cd020$
Rebonjour,

est-ce que quelqu'un d'autre aurait une solution?

Merci!

-----Message d'origine-----
Hello!

J'ai une formule qui va chercher des valeurs dans un
autre fichier Excel (fermé ou ouvert). Est-ce possible
d'assigner le résultat à une variable sans placer la
valeur dans la cellule E14? Voici les lignes de code :

Sub test()
Dim Path As String, onglet1 As String, onglet2 As String
Dim fichier As String, Cell_1 As Range, Cell_11 As String
Dim Cell_2 As Range, Cell_21 As String

Path = ActiveWorkbook.Path
onglet1 = "Données Base"
onglet2 = "Tab Gestion"
fichier = "test2.xls"
Set Cell_1 = Range("F12")
Set Cell_2 = Range("E6")

Cell_11 = Cell_1.Address(0, 0)
Cell_21 = Cell_2.Address(0, 0)

[E14] = _
"=ROUND('" & Path & "" & "[" & fichier & "]" &
onglet1

& "'!" & _
Cell_11 & "*('" & Path & "" & "[" & fichier & "]" & _
onglet2 & "'!" & Cell_21 & "*1.2),0)"

End Sub

Merci énormément!
Sam
.



Publicité
Poster une réponse
Anonyme