Problème de #Ref

[shana00]

Bonjour ,
J'ai un problème , je dois copier la valeur d'une cellule d'un autre fichier sachant que mes cellules que se soit la feuille sur laquelle je récupère les données ou la feuille sur laquelle je copie les donner sont toujours au même endroit mais j'ai actuellement un #REF , au départ le chemin était spécifié directement mais quand j'ai commencé a automatisé j'ai eu ce problème
Voici mon code
Cordialement .


Dim a As Integer

Dim NomFic As String


Dim cheminComplet As String



cheminComplet = Application.GetOpenFilename


NomFic = Split(cheminComplet, "\")(UBound(Split(cheminComplet, "\")))



a = 45




Cells(a, 18).FormulaR1C1 = "='[NomFic]BRKT SW-A'!R29C17"

Cells(a, 19).FormulaR1C1 = "='[NomFic]BRKT SW-A'!R38C11"

Cells(a, 20).FormulaR1C1 = "='[NomFic]BRKT SW-A'!R67C14"

Cells(a, 21).FormulaR1C1 = "='[NomFic]BRKT SW-A'!R67C15"

Cells(a, 23).FormulaR1C1 = "='[NomFic]BRKT SW-A'!R17C17"

Cells(a, 24).FormulaR1C1 = "='[NomFic]BRKT SW-A'!R18C17"

Cells(a, 36).FormulaR1C1 = "='[NomFic]BRKT SW-A'!R26C17"

Cells(a, 37).FormulaR1C1 = "='[NomFic]BRKT SW-A'!R21C17"

Cells(a, 40).FormulaR1C1 = "='[NomFic]BRKT SW-A'!R100C9"






End Sub

 

[mapomme]

Re : Problème de #Ref

Bonjour shana00 et bienvenue sur XLD ,

La syntaxe des formules est erronée, me semble-t-il.

Cells(a, 18).FormulaR1C1 = "='[NomFic]BRKT SW-A'!R29C17"

On attribue une chaine de caractères comprise entre les deux guillemets doubles. NomFic fait partie de cette expression, il est donc invariant. NomFic est juste ici une suite de 6 lettres qui se lit NomFic. Nulle part, la variable NomFic apparait en tant que variable dans cette expression.
Pour vous en convaincre, placez avant l'expression, une ligne avec msgbox "='[NomFic]BRKT SW-A'!R29C17"
et voyez ce qui est écrit (NomFic est resté tel quel)


Essayez plutôt: Cells(a, 18).FormulaR1C1 = "='[" & NomFic & "]BRKT SW-A'!R29C17".

Dans ce cas au concatène 3 membres:
Le début de la chaine : "='["
Le nom récupéré du fichier : NomFic (ici on désigne le contenu de la variable NomFic)
La fin de la chaine:"]BRKT SW-A'!R29C17"

Nota: pas testé car aucun fichier n'a été joint .

 

[shana00]

Re : Problème de #Ref

Oh mon dieu l'erreur de débutant merci a toi pour ton aide je l'avais pas vu :x