comment Récup des données ds une feuille .xls sans l'ouvrir

[zujam]

tout est dans le titre...

Merci d'avance

 

[STéphane]

<http://disciplus.simplex.free.fr>
tu n'auras pas besoin de dialoguer beaucoup sur ce site mais tu trouveras ce que tu veux en cherchant bien ;-)

bye
STéphane

 

[STéphane]

regarde ici
<http://disciplus.simplex.free.fr/xl/fichiers.htm>

ta méthode crée des liaisons, pour que tes valeurs s'actualisent avec ta méthode , excel devra ouvrir le fichier

bye
STéphane

 

[andré]

J'ai entendu dire que sur Lotus il n'y a pas lieu d'ouvrir les dossiers pour activer les liaisons.
Mais il faut être plus qu'un amateur averti, ce que je ne suis même pas, pour aller rechercher la méthode employée ?
Ca te dis quelque chose (de faire la receherche, évidemment)?

 

[STéphane]

je ne connais pas lotus mais il y a des sites dessus et des communautés msn je crois

côté recherche : pas le temps

bye
Stéphane

 

[andré]

Crois-tu qu'il y a moyen d'écrire une macro, automatique à l'ouverture d'un classeur, qui ouvre tous les classeurs contenant des antécédants par rapport au premier classeur ?
Ainsi qu'une autre qui les ferme (sans les sauver) à la fermeture sauvegardée du premier classeur ?
Avec deux petits boutons dans la barre d'outils.
Tu vois que je pense déjà à tes longues soirées d'hiver, et à approvisioner la nouvelle rubrique d'astuces et trucs en tous genres.
David va être content.
Ah, si vous n'aviez pas des cancres comme moi parmi vos relations !

 

[STéphane]

bonjour


je suis pas bien spur de ce que tu veux faire, tu veux chercher les classeurs qui utilisent des valeurs figurant dans ton classeur en cours ?

ou l'inverse ?

pour l'inverse voilà un bout de code (reste à extraire le chemin du fichier et à ouvrir ces fichiers)

NB : il y a possiblité avec excel de mettre à jour automatiquement les liaisons
NB : lors de l'ouverture par macro d'un fichier, vous pouvez spécifier un paramètre pour mettre ou ne pas mettre à jour les liaisons


Sub t()


'd'après un code de Bill Manville
Set obj_TargetSh = Sheets("feuil3")
obj_TargetSh.Activate
Range("A1") = "Links To"
Set R = Range("A2")

V = ActiveWorkbook.LinkSources(xlExcelLinks)
If TypeName(V) = "Empty" Then
R.Offset(, 2) = "No Excel links"
Else
For iLink = LBound(V) To UBound(V)
R = V(iLink)
If iLink < UBound(V) Then
' prepare for next
Set R = R.Offset(1)
End If
Next
End If

End Sub


j'ai une page sur les liaisons
<http://xlbysteph.free.fr/aideinformatique/actionliaison.htm>


bye
Stéphane

 

[andré]

je vois cela demain.
merci, tu me permets de passer une nuit pleine d'espoir.

 

[STéphane]

et alors ?

 

[David]

test