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 : Sélectionner tout - Visualiser dans une fenêtre à part
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