Discussion :

[jerjou26]

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

[Daniel.C]

Bonjour,

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

[Jean-Pierre49]

Bonjour
Avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Tu dis

Bon courage

[jerjou26]

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)

Bonjour
Avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

[Daniel.C]

Le code suivant fonctionne pour moi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jerjou26]

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

[Daniel.C]

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

[jerjou26]

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

Cdlt,

[Daniel.C]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

On Error Resume Next

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

[jerjou26]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

il y a bien un resultat dans la cellule.

Par contre si je mets:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

[Daniel.C]

Enlève le :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

On Error Resume Next

ligne 11.

[jerjou26]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Je l'ai enlevé mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

fonctionne avec le signe =

Merci de votre support et désolé