Liaison Feuille Classeur ???

[cOx]

Bonjour,
Je voudrais importer une feuille d'un classeur fermé vers un autre classeur ouvert.

Je m'explique :
-Le classeur "Toto.xls" est ouvert
-Il faudrait qu'il prenne la feuille "Informations" du classeur "Dernier.xls" qui lui est fermé.

Il me semble que c'est une histoire de liaison...Mais je ne comprends pas comment cela marche.

Merci d'avance pour vos solutions

 

[fahd]

est ce ke tu ve le faire en vba??
si oui, tu peux instancier ton fichier "Dernier.xls" application.open, et récupérer tous les données ke tu ve

 

[fahd]

je me suis gourré désolé
par contre ce ke tu pe faire c exporter ta feuille excel, et la charger ds ton nouveau classeur

 

[cOx]

Oui, je voudrais le faire en vba et si possible sans ouvrir le fichier "Dernier.xls" ...

 

[fahd]

voila pour ouvrir ton fichier excel : Workbooks.Open "TonFichier.XLS"

 

[cOx]

J'ai vu sur certains postes qu'il était possible d'importer une feuille dans un classeur fermé et de la coller dans le classeur actif...

Mais je ne vois pas comment faire

 

[cOx]

J'ai trouvé ça mais ça mets "0" dans les cases vides, lors de la copie dans le classeur actif ???

Je ne comprends pas...
Si il existe une autre solution, ou un moyen de détourner ces "0"...

 

[cOx]

J'ai trouvé ça mais ça mets "0" dans les cases vides, lors de la copie dans le classeur actif ???

Comment récuperer des données d'un classeur fermé?
Récupération de données dans un classeur fermé
(méthode "classique" par établissement d'une liaison temporaire)
(c'est aussi la technique habituellement conseillée pour essayer
de récupérer des données d'un classeur endommagé) Fréderic S.

Sub test()
GetValuesFromAClosedWorkbook "D:", "TestADO.xls", "Feuil1", "A1:H25"
End Sub

Sub GetValuesFromAClosedWorkbook(fPath As String, _
fName As String, sName, cellRange As String)
'Ron De Bruin, mpep
'le paramètre 'cellRange' doit désigner
'*une* plage de cellules *contigües*
With ActiveSheet.Range(cellRange)
.Formula = "='" & fPath & "\[" & fName & "]" _
& sName & "'!" & cellRange
.Value = .Value
End With
End Sub


Je ne comprends pas...
Si il existe une autre solution, ou un moyen de détourner ces "0"...

 

[fahd]

ben tu craie une macro qui te teste l'ensemble de t cellules, si ya 0, elle efface le contenu , sinon elle fait rien
appart ca ya pas d'autre moyen

 

[cOx]

Le problème :

Certaines de mes cellules contiennent la valeur "0"...

Merci quand même

Je vais continuer mes recherches sur le Net

 

[A-binouze_drinker_among_others]

pour creer des liaisons tu peux proceder de la maniere suivante


ouvre tes 2 classeurs

dans toto.xls, entre en mode edition dans une cellule, commence a taper = comme si tu allais ecrire une formule, puis actionne en meme temps les touches Ctrl et F6 pour basculer dans l autre classeur, tu te deplaces dans les feuilles de cet autre classeur pour selectionner la cellule de ton choix, puis tu fais entrer

cela te ramene dans ton classeur toto.xls

ferme ton second classeur, tu devrais alors voir dans toto.xls que lq formule fait reference a cet autre classeur, si necessaire sauve toto.xls, ferme le et rouvre le


bye
stephane