Copie de cellule d'un classeur fermé

[Dull]

Bonjour le Forum,

Est-t-il possible de transcrire en VBA la formule

='C:\\Dossier\\[classeur.xls]feuil1'!$A$1


en sachant que ce classeur est fermé

Merci pour vos futures réponses

@+ :woohoo:

 

[Jacques87]

Bonjour

Il me semble que je ne dis pas de bétise en affirmant que si ton classeur est fermé (donc non activable ni sélectionable) tu ne pourras pas y accéder et à fortiori accéder à une de ses cellules

Bonne journée

 

[michel_m]

Bonjour,
C'est possible par une macro XL4

Sub chercher_xl4()
' auteur présumé: John Walkenbach
Dim chemin As String
chemin = ''' & ThisWorkbook.Path
Range('cible') = ExecuteExcel4Macro(chemin & '\\tonclasseur.xls'!source')
End Sub

La cellule 'A1' est nommée 'source' dans la macro ci dessus (ca simplifie les écritures)

D'autre part dans cettte macro le classeur fermé est dans le même répertoire

A+
Michel_M

 

[michel_m]

Re,

Pendant que j'y suis exemple avec cellule non nommée
onglet est ici une variable et le nom du classeur est donné par une liste déroulante d'un userform
chemin = ThisWorkbook.Path


'-------on recherche le nom de champ inscrit dans la cellule A1 de chaque feuille

' modèle pour écrire param='C:\\mes documents\\riri\\[Classeur1.xls]Classeur1Feuil3'!L1C1
param = ''' & chemin & '\\[' & Me.CbxClasseur.Value & ']' & onglet & ''!R1C1'
' macro dite de John Walkenbach
champ = ExecuteExcel4Macro(param)

 

[Dull]

Salut Jacques87, michel_m, le Forum

Merci michel_m j'essaye et je te tient au courant

@+ :woohoo:

 

[andré]

Salut,

Il y a moyen de le faire par formule, mais je ne la retrouve pas.

Elle a été donnée sur XLD, mais cela doit dater, de mémoire, de la fin 2002 !
C'était avec la fonction SI, et il fallait répeter à deux fois le chemin, mais c'est tout ce dont je me souviens

Je fais des recherches plus appronfondies et si je trouve ...
A moins que quelqu'un l'a sous la main.

Â+

 

[visiteur]

bonjour

est-ce ca que tu veux ?

bon am [file name=Regarde.zip size=3757]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Regarde.zip[/file]

 

[Jacques87]

Toutes mes excuses
Je ne m'étais même pas rendu compte que je n'avais pas joint le fichier

Voila qui est réparé

Je reste à ta disposition si tu as des questions à me poser à ce sujet ( et d'autres pourquoi pas)

Cordialement [file name=essai_20060107160053.zip size=8923]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essai_20060107160053.zip[/file]


Je vous jure que je n'ai pas bu et pourtant je n'ai pas envoyé ce post dans le bon Fil
encore toutes mes plates excuses

Message édité par: jacques87, à: 07/01/2006 16:05

 

[andré]

Salut Jacques,

Il ne faut pas te cacher, mais si tu as bu !
Cela peut arriver à tout le monde, mais il faut aussi l'avouer.

A ta santé, ... pardon, bonne soirée.

Â+

 

[Jacques87]

Bonjour André

J'étais à 2 doigts de préciser qu'il s'agissait de Duvel, mais je me suis dit qu'ainsi je ferais languir mon ami André
Et malgré ma discrétion, ça n'a pas manqué, tu as su lire entre les lignes
Mais non, André, la caisse de Duvel promise est toujours intacte, elle nous attend

Amitiés

 

[guantanamera]

Bonjour Jacques

Je viens de visiter ton site
Ton village est vraiment très sympa

A bientôt

 

[Dull]

Salut le fil, le Forum
Merci de vous êtes penché sur mon problème
(certains plus que d'autres n'est-ce pas jacques87). le code transmit par michel_m me convient parfaitement sauf qu'il y à une petite erreur
michel_m écrit:

Bonjour,
C'est possible par une macro XL4

Sub chercher_xl4()
' auteur présumé: John Walkenbach
Dim chemin As String
chemin = ''' & ThisWorkbook.Path
Range('cible') = ExecuteExcel4Macro(chemin & '\\tonclasseur.xls'!source')
End Sub

Aprés ''' & ThisWorkbook.Path il faut mettre & '\\' sinon ca t'ouvre une boite 'mettre à jour les valeurs'

Le code complet est:

Sub chercher_xl4()
' auteur présumé: John Walkenbach
Dim chemin As String
chemin = ''' & ThisWorkbook.Path & '\\'
Range('cible') = ExecuteExcel4Macro(chemin & '\\tonclasseur.xls'!source')
End Sub
super pratique quand ont à besoin de données externe

@+ :woohoo:

 

[Dull]

Re le fil,

lors de mon envoi précedent il faut lire '\\' [alt gr]+ 8 il ne l'a pas copier

@+ :woohoo:

 

[Dull]

Re Re,

Rien à faire ca veut pas passer :angry: Mais je l'aurai non mais
(voir fichier text)
@+ :woohoo:

 

[Dull]

Re re re ...
Y'a des jours comme ca :whistle: :whistle: :whistle:

@+ :woohoo: [file name=Didier_20060108082811.zip size=285]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Didier_20060108082811.zip[/file]