MsgBox pour @Christophe@ plus spécialement

[Mélissa]

Bonjour,

Désolé de relancer ce sujet mais voisci en fait la formule dans laquelle je souhaiterais insérer mon N et ça ne marche pas.

Merci pour votre aide


N = Application.InputBox(prompt:="Entrez la valeur de N", Type:=1)

Range("A1").FormulaR1C1 = _

"=INDIRECT(""'C:\WINNT\Profiles\Melissa\Bureau\Excel\[BIBLIOTHEQUE""&year(R[
-5]C)&"".xls]Feuil1'!$C$"&N&")

 

[Pascal76]

Salut Melissa

Juste un petit commentaire lorsque tu inséres des variables il faut un espace avant et après le signe & sinon ça marche pas

Et je crois bien qu'Excel ne t'indiques rien et ne mets pas l'espace tout seul

Bon courage

Pascal

 

[Mélissa]

ca marche toujours pas...si quelqu'un a une idée brillante....

 

[@Christophe@]

Bonsoir,

Mail moi un fichier pour que je regarde cela. Mais comme Pascal dit, le problème vient des " " & & pour tes variable

Bonne soirée

@Christophe@

 

[melissa]

Voici un fichier joint avec le code ,merci encore à tous

 

[wally]

Bonjour Mélissa et le forum,

Essaye ceci (en remplaçant B1 par la cellule dans laquelle se trouve la date dont on extrait l'année) :

N = Application.InputBox(prompt:="Entrez la valeur de N", Type:=1)

Range("A1").Formula = "=INDIRECT('C:\WINNT\Profiles\epass3\Bureau\Melissa\[BIBLIOTHEQUE" & Year(Range("B1")) & ".xls]Feuil1'!$C$" & N & ")"


Slts

wally