fx = "'C:\Comptoir\[prix1.xls]Feuil1'!R[0]C[-1]"
prix = Application.ExecuteExcel4Macro(fx)
MsgBox prix
si je veux faire une recherchv je remplace fx par 1 ligne ci-dessous,
hélas rien ne fonctionne, formule faite avec l'enregistreur(ligne
ci-dessous)
fx = "VLOOKUP(R[-20]C[-1],'C:Comptoir\[prix1.xls]Feuil1!R1C1:R8C2,2,FALSE)"
même si je mets mon code qui est de 6 chiffes
fx = "VLOOKUP (""123456""),'C:Comptoir\[prix1.xls]Feuil1!R1C1:R8C2,2,FALSE)"
ou encore
fx = "VLOOKUP (A3),'C:Comptoir\[prix1.xls]Feuil1!R1C1:R8C2,2,FALSE)"
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Alain CROS
Bonjour.
fx = "VLOOKUP(" & [R[-20]C[-1]] & ",'C:Comptoir[prix1.xls]Feuil1!R1C1:R8C2,2,FALSE)" Attention, c'est une référence relative.
même si je mets mon code qui est de 6 chiffes fx = "VLOOKUP (""123456""),'C:Comptoir[prix1.xls]Feuil1!R1C1:R8C2,2,FALSE)"
fx = "VLOOKUP ("123456"),'C:Comptoir[prix1.xls]Feuil1!R1C1:R8C2,2,FALSE)" Ceci devrait mieux fonctionner, ici on cherche un nombre et non pas une chaine de charactères.
ou encore fx = "VLOOKUP (A3),'C:Comptoir[prix1.xls]Feuil1!R1C1:R8C2,2,FALSE)" fx = "VLOOKUP (" & [A3] & ",'C:Comptoir[prix1.xls]Feuil1!R1C1:R8C2,2,FALSE)"
Alain CROS
"BJ" a écrit dans le message de news:
Bonjour à tous Ces 3 lignes vont sans PB
fx = "'C:Comptoir[prix1.xls]Feuil1'!R[0]C[-1]" prix = Application.ExecuteExcel4Macro(fx) MsgBox prix
si je veux faire une recherchv je remplace fx par 1 ligne ci-dessous, hélas rien ne fonctionne, formule faite avec l'enregistreur(ligne ci-dessous) fx = "VLOOKUP(R[-20]C[-1],'C:Comptoir[prix1.xls]Feuil1!R1C1:R8C2,2,FALSE)"
Bonjour.
fx = "VLOOKUP(" & [R[-20]C[-1]] & ",'C:Comptoir[prix1.xls]Feuil1!R1C1:R8C2,2,FALSE)"
Attention, c'est une référence relative.
même si je mets mon code qui est de 6 chiffes
fx = "VLOOKUP (""123456""),'C:Comptoir[prix1.xls]Feuil1!R1C1:R8C2,2,FALSE)"
fx = "VLOOKUP ("123456"),'C:Comptoir[prix1.xls]Feuil1!R1C1:R8C2,2,FALSE)"
Ceci devrait mieux fonctionner, ici on cherche un nombre et non pas une chaine de charactères.
ou encore
fx = "VLOOKUP (A3),'C:Comptoir[prix1.xls]Feuil1!R1C1:R8C2,2,FALSE)"
fx = "VLOOKUP (" & [A3] & ",'C:Comptoir[prix1.xls]Feuil1!R1C1:R8C2,2,FALSE)"
Alain CROS
"BJ" <Jeune.bruno@wanadoo.fr> a écrit dans le message de news: eiJ74sAuEHA.1400@TK2MSFTNGP11.phx.gbl...
Bonjour à tous
Ces 3 lignes vont sans PB
fx = "'C:Comptoir[prix1.xls]Feuil1'!R[0]C[-1]"
prix = Application.ExecuteExcel4Macro(fx)
MsgBox prix
si je veux faire une recherchv je remplace fx par 1 ligne ci-dessous,
hélas rien ne fonctionne, formule faite avec l'enregistreur(ligne
ci-dessous)
fx = "VLOOKUP(R[-20]C[-1],'C:Comptoir[prix1.xls]Feuil1!R1C1:R8C2,2,FALSE)"
fx = "VLOOKUP(" & [R[-20]C[-1]] & ",'C:Comptoir[prix1.xls]Feuil1!R1C1:R8C2,2,FALSE)" Attention, c'est une référence relative.
même si je mets mon code qui est de 6 chiffes fx = "VLOOKUP (""123456""),'C:Comptoir[prix1.xls]Feuil1!R1C1:R8C2,2,FALSE)"
fx = "VLOOKUP ("123456"),'C:Comptoir[prix1.xls]Feuil1!R1C1:R8C2,2,FALSE)" Ceci devrait mieux fonctionner, ici on cherche un nombre et non pas une chaine de charactères.
ou encore fx = "VLOOKUP (A3),'C:Comptoir[prix1.xls]Feuil1!R1C1:R8C2,2,FALSE)" fx = "VLOOKUP (" & [A3] & ",'C:Comptoir[prix1.xls]Feuil1!R1C1:R8C2,2,FALSE)"
Alain CROS
"BJ" a écrit dans le message de news:
Bonjour à tous Ces 3 lignes vont sans PB
fx = "'C:Comptoir[prix1.xls]Feuil1'!R[0]C[-1]" prix = Application.ExecuteExcel4Macro(fx) MsgBox prix
si je veux faire une recherchv je remplace fx par 1 ligne ci-dessous, hélas rien ne fonctionne, formule faite avec l'enregistreur(ligne ci-dessous) fx = "VLOOKUP(R[-20]C[-1],'C:Comptoir[prix1.xls]Feuil1!R1C1:R8C2,2,FALSE)"
BJ
Merci Alain pour ta réponse, J'ai essayé toutes tes lignes sans succés, En faites je crois qu'avec ExecuteExcel4Macro on ne peut faire reférence qu'à une cellule extérieur au classeur. C'est un peu ce que dit l'aide. Encore Merci Bruno
Alain CROS a écrit dans le message :
Bonjour.
fx = "VLOOKUP(" & [R[-20]C[-1]] & ",'C:Comptoir[prix1.xls]Feuil1!R1C1:R8C2,2,FALSE)"
Attention, c'est une référence relative.
même si je mets mon code qui est de 6 chiffes fx = "VLOOKUP (""123456""),'C:Comptoir[prix1.xls]Feuil1!R1C1:R8C2,2,FALSE)"
fx = "VLOOKUP ("123456"),'C:Comptoir[prix1.xls]Feuil1!R1C1:R8C2,2,FALSE)" Ceci devrait mieux fonctionner, ici on cherche un nombre et non pas une chaine de charactères.
ou encore fx = "VLOOKUP (A3),'C:Comptoir[prix1.xls]Feuil1!R1C1:R8C2,2,FALSE)" fx = "VLOOKUP (" & [A3] &
fx = "'C:Comptoir[prix1.xls]Feuil1'!R[0]C[-1]" prix = Application.ExecuteExcel4Macro(fx) MsgBox prix
si je veux faire une recherchv je remplace fx par 1 ligne ci-dessous, hélas rien ne fonctionne, formule faite avec l'enregistreur(ligne ci-dessous) fx "VLOOKUP(R[-20]C[-1],'C:Comptoir[prix1.xls]Feuil1!R1C1:R8C2,2,FALSE)"
Merci Alain pour ta réponse,
J'ai essayé toutes tes lignes sans succés,
En faites je crois qu'avec ExecuteExcel4Macro on ne peut faire reférence
qu'à une cellule extérieur au classeur.
C'est un peu ce que dit l'aide.
Encore Merci
Bruno
Alain CROS <Personne@ICI> a écrit dans le message :
eKQJXKDuEHA.2536@TK2MSFTNGP11.phx.gbl...
Bonjour.
fx = "VLOOKUP(" & [R[-20]C[-1]] &
",'C:Comptoir[prix1.xls]Feuil1!R1C1:R8C2,2,FALSE)"
Attention, c'est une référence relative.
même si je mets mon code qui est de 6 chiffes
fx = "VLOOKUP
(""123456""),'C:Comptoir[prix1.xls]Feuil1!R1C1:R8C2,2,FALSE)"
fx = "VLOOKUP ("123456"),'C:Comptoir[prix1.xls]Feuil1!R1C1:R8C2,2,FALSE)"
Ceci devrait mieux fonctionner, ici on cherche un nombre et non pas une
chaine de charactères.
ou encore
fx = "VLOOKUP (A3),'C:Comptoir[prix1.xls]Feuil1!R1C1:R8C2,2,FALSE)"
fx = "VLOOKUP (" & [A3] &
"BJ" <Jeune.bruno@wanadoo.fr> a écrit dans le message de news:
eiJ74sAuEHA.1400@TK2MSFTNGP11.phx.gbl...
Bonjour à tous
Ces 3 lignes vont sans PB
fx = "'C:Comptoir[prix1.xls]Feuil1'!R[0]C[-1]"
prix = Application.ExecuteExcel4Macro(fx)
MsgBox prix
si je veux faire une recherchv je remplace fx par 1 ligne ci-dessous,
hélas rien ne fonctionne, formule faite avec l'enregistreur(ligne
ci-dessous)
fx "VLOOKUP(R[-20]C[-1],'C:Comptoir[prix1.xls]Feuil1!R1C1:R8C2,2,FALSE)"
Merci Alain pour ta réponse, J'ai essayé toutes tes lignes sans succés, En faites je crois qu'avec ExecuteExcel4Macro on ne peut faire reférence qu'à une cellule extérieur au classeur. C'est un peu ce que dit l'aide. Encore Merci Bruno
Alain CROS a écrit dans le message :
Bonjour.
fx = "VLOOKUP(" & [R[-20]C[-1]] & ",'C:Comptoir[prix1.xls]Feuil1!R1C1:R8C2,2,FALSE)"
Attention, c'est une référence relative.
même si je mets mon code qui est de 6 chiffes fx = "VLOOKUP (""123456""),'C:Comptoir[prix1.xls]Feuil1!R1C1:R8C2,2,FALSE)"
fx = "VLOOKUP ("123456"),'C:Comptoir[prix1.xls]Feuil1!R1C1:R8C2,2,FALSE)" Ceci devrait mieux fonctionner, ici on cherche un nombre et non pas une chaine de charactères.
ou encore fx = "VLOOKUP (A3),'C:Comptoir[prix1.xls]Feuil1!R1C1:R8C2,2,FALSE)" fx = "VLOOKUP (" & [A3] &
fx = "'C:Comptoir[prix1.xls]Feuil1'!R[0]C[-1]" prix = Application.ExecuteExcel4Macro(fx) MsgBox prix
si je veux faire une recherchv je remplace fx par 1 ligne ci-dessous, hélas rien ne fonctionne, formule faite avec l'enregistreur(ligne ci-dessous) fx "VLOOKUP(R[-20]C[-1],'C:Comptoir[prix1.xls]Feuil1!R1C1:R8C2,2,FALSE)"
