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

Z

zujam

Guest
tout est dans le titre...

Merci d'avance
 
S

STéphane

Guest
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
 
A

andré

Guest
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)?
 
A

andré

Guest
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 !
 
S

STéphane

Guest
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
 

Discussions similaires

Statistiques des forums

Discussions
311 723
Messages
2 081 932
Membres
101 844
dernier inscrit
pktla