OVH Cloud OVH Cloud

J'ai perdu mon chemin

12 réponses
Avatar
garnote
Bonjour,

J'ai consulté cette astuce de GeeDee sur Exclabo :

Comment faire pour affecter à une variable la valeur contenue
dans la cellule d'un autre classeur sans ouvrir celui-ci.
Si tu veux récupérer ce contenu, tape directement dans la cellule de destination :
='D:\MesDocuments\Mondossier\[Monclasseur.xls]Feuil1'!B12
sans te tromper dans la ponctuation !
***
J'ai essayé ceci
='F:\Performa graphique\[MINIMAXIFLEX.xls]Feuil1'!A5
et ça fonctionne correctement.
***
Si tu veux par macro affecter ce contenu à une variable A
A = "='" & Chemin & "[" & NomFic & "]" & Onglet & "'!" & Range(Ref).address
***
J'ai essayé cela
A = "='" & F:\Performa graphique & "[" & MINIMAXIFLEX & "]" & Feuil1 & "'!" & Range("A5").Address
TextBox1.Value = A
et ça ne fonctionne pas. Excel me surligne le \ . Pourquoi ?
***

Serge

2 réponses

1 2
Avatar
Manu
bonne idée, peux tu nous donner un exemple stp
Manu

"Michel MATHYS" a écrit dans le message de news:
459be21b$0$5540$
Voici un petit truc que j'utilise frequemment... je place dans un celllule
la formule : ÎLLULE("filename";A1) et tu as le chemin du fichier après
il suufit de rajouter ce que tu veux au bout mais le gros (très gros
avantage) si tu deplaces ton fichier ou si tu le renommes le chemin se met
à jours automatiquement.
Tu vas chercher des variables à partir de cette cellule et cela n'oblige
pas à modifier le code





"garnote" a écrit dans le message de news:

Bonjour,

J'ai consulté cette astuce de GeeDee sur Exclabo :

Comment faire pour affecter à une variable la valeur contenue
dans la cellule d'un autre classeur sans ouvrir celui-ci.
Si tu veux récupérer ce contenu, tape directement dans la cellule de
destination :
='D:MesDocumentsMondossier[Monclasseur.xls]Feuil1'!B12
sans te tromper dans la ponctuation !
***
J'ai essayé ceci
='F:Performa graphique[MINIMAXIFLEX.xls]Feuil1'!A5
et ça fonctionne correctement.
***
Si tu veux par macro affecter ce contenu à une variable A
A = "='" & Chemin & "[" & NomFic & "]" & Onglet & "'!" &
Range(Ref).address
***
J'ai essayé cela
A = "='" & F:Performa graphique & "[" & MINIMAXIFLEX & "]" & Feuil1 &
"'!" & Range("A5").Address
TextBox1.Value = A
et ça ne fonctionne pas. Excel me surligne le . Pourquoi ?
***

Serge










Avatar
Daniel
Pompé sur le site de John Walkenbach :

Sub GetValue()

' Retrieves a value from a closed workbook
Dim arg As String
Chemin = "e:donneesdanielmpfe"
NomFichier = "070102.xls"
Onglet = "Feuil1"
' Create the argument
arg = "'" & Chemin & "[" & NomFichier & "]" & Onglet & "'!" & _
Range("A1").Address(, , xlR1C1)
' Execute an XLM macro
A = ExecuteExcel4Macro(arg)
End Sub

Daniel

"garnote" a écrit dans le message de news:

Avec un ou 2 , ça ne renvoie pas le contenu de la cellule
mais le chemin tel que tu l'as écrit.

Serge

"Daniel" a écrit dans le message de news:

Erratum, il manque un antislash après graphique :
A = "='F:Performa graphique[MINIMAXIFLEX]Feuil1'!A5"
Daniel
"Daniel" a écrit dans le message de news:

Bonjour.
Tu dois mettre : F:Performa graphique entre guillemets, c'est une
chaine de caractères. Pourquoi ne pas mettre :
A = "='F:Performa graphique[MINIMAXIFLEX]Feuil1'!A5"
Cordialement.
Daniel
"garnote" a écrit dans le message de
news:
Bonjour,

J'ai consulté cette astuce de GeeDee sur Exclabo :

Comment faire pour affecter à une variable la valeur contenue
dans la cellule d'un autre classeur sans ouvrir celui-ci.
Si tu veux récupérer ce contenu, tape directement dans la cellule de
destination :
='D:MesDocumentsMondossier[Monclasseur.xls]Feuil1'!B12
sans te tromper dans la ponctuation !
***
J'ai essayé ceci
='F:Performa graphique[MINIMAXIFLEX.xls]Feuil1'!A5
et ça fonctionne correctement.
***
Si tu veux par macro affecter ce contenu à une variable A
A = "='" & Chemin & "[" & NomFic & "]" & Onglet & "'!" &
Range(Ref).address
***
J'ai essayé cela
A = "='" & F:Performa graphique & "[" & MINIMAXIFLEX & "]" & Feuil1 &
"'!" & Range("A5").Address
TextBox1.Value = A
et ça ne fonctionne pas. Excel me surligne le . Pourquoi ?
***

Serge


















1 2