Concatenation VBA XL

Bonjour,

Je débute en VBA et avec quelques morceaux de codes trouvé sur le web j’ai commence la procedure ci-dessous.
Le but est d’écrire dans une cellule la formule suivante :
='D:\My Documents\[test.xls]test!$B$22
Sachant que le chemin ('D:\My Documents) et le nom de fichier (\[test.xls]test!$B$22) sont des variables.
Le code fonctionne sauf qu’à la dernière ligne lorsque je met le signe = entre guillemets ça ne marche pas !
Malgré des heures passées sur le web ne je trouve pas l’erreur, pouvez-vous m’aider SVP,
Merci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

Sub afficherCheminDosier_BrowseForFolder()   'Demande le chemin du fichier:   Dim objShell As Object, objFolder As Object Dim SecuriteSlash As Integer Dim Chemin As String   Set objShell = CreateObject("Shell.Application") 'recuperer nom repertoire cible Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&) On Error Resume Next   Chemin = objFolder.ParentFolder.ParseName(objFolder.Title).Path If objFolder.Title = "" Then Chemin = "" SecuriteSlash = InStr(objFolder.Title, ":") If SecuriteSlash > 0 Then Chemin = Mid(objFolder.Title, SecuriteSlash - 1, 2) & ""   Range("AA1") = Chemin   'demande de selectionner le fichier:   Dim strCsv As String, strTemp() As String strCsv = Application.GetOpenFilename("All Files ,*.*", , "Sélectionner le fichier des pièces GOOD à ouvrir") [AB1] = Dir(strCsv)   fich = "[" & Dir(strCsv) & "]"   Cells(2, 27).FormulaR1C1 = Chemin Cells(3, 27).FormulaR1C1 = "\" & fich & "Feuil1'!C2)" a = Range("AA2").Text b = Cells(3, 27).Text Range("AA4").FormulaR1C1 = "'" & a & b '''''''''''''''''''''''''''''Range("AA4").FormulaR1C1 = "='" & a & b   End Sub

---

Bonjour,

Pourquoi une apostrophe après le "=" ? Quelles sont les valeurs de a et b ?

Bonjour
Avec

Code:

---

Range("A3").FormulaR1C1 = "=" & a & b & ""

---

Tu dis

Bon courage

Citation:

---

Envoyé par Daniel.C

Bonjour,

Pourquoi une apostrophe après le "=" ? Quelles sont les valeurs de a et b ?

---

l'apostrophe là pour respecter la formule excel:
='D:\My Documents\[TEST.xls]test'!$B$22

a et b sont les variables: chemin du fichier (a) et nom du fichier (b)

Citation:

---

Envoyé par Jean-Pierre49

Bonjour
Avec

Code:

---

Range("A3").FormulaR1C1 = "=" & a & b & ""

---

Tu dis

Bon courage

---

Merci mais ça ne fonctionne pas. la formule est bien inscrite dans la cellule mais sans le signe =

Je cherche, je cherche.....pas évident pour moi, mais avec le web!

Le code suivant fonctionne pour moi :

Code:

---

1 2 3

a = "D:\My Documents" b = "\[TEST.xls]test'!$B$22" Range("A3").Formula = "='" & a & b

---

Merci Daniel.
Effectivement ça fonctionne comme ça mais pas dans mon code avec des variables!
Cdlt,

Quelle est la différence ? Quel est le contenu de tes deux cellules ?

Et bien justement, je ne vois pas de différence, mais ton code seul fonctionne correctement, mais mon code ne fonctionne pas.

Cdlt,

Tu as bien mis ".Formula", pas ".FormulaR1C1" ?
Et si tu enlèves :

Code:

---

On Error Resume Next

---

est-ce que ça plante sur la même ligne ?

En fait la macro ne plante pas, simplement ça n'écrit rien dans le cellule.
Par exemple si je mets:

Code:

---

Range("AA4").Formula = "'" & a & b

---

il y a bien un resultat dans la cellule.

Par contre si je mets:

Code:

---

Range("AA4").Formula = "='" & a & b

---

(je rajoute juste le signe =) Alors le code fonctionne (pas d'erreur) mais la cellule est vide.
Je ne comprends pas!

Enlève le :

Code:

---

On Error Resume Next

---

ligne 11.

Ca marche!
Finalement 2 lignes plus haut il y avait une paranthèse en trop dans cette ligne:

Code:

---

Cells(3, 27).FormulaR1C1 = "\" & fich & "Sheet1'!C2)"

---

Je l'ai enlevé mon code

Code:

---

Range("AA4").Formula = "='" & a & b

---

fonctionne avec le signe =

Merci de votre support et désolé