Classeur de synthèse

[Macpoy]

bonjour le forum,
après quelques recherches dans les archives, je n'ai pas beaucoup progressé.
en fait je me demande ce qui pourrait y avoir de plus adapté pour récuperer une plage de cellule dans une douzaine de classeurs, et les coller les une à coté des autres dans un classeur de 'synthèse'. il y à tout simplement la solution de faire telle cellule=telle autre, mais c'est fastidieux, et les liaisons me gonfle un peu!! d'autre part j'aimerais que la mise à jour se fasse sans ouvrir les fameux classeurs. les tcd me semblent trop élaborés pour un truc aussi simple. et je n'arrive pas a voir ce que donne la consolidation.
Amis excelliens, donnez moi votre avis.
merci d'avance.


tout bonheur que la main n'atteint pas n'est qu'un rêve.

 

[Spock]

Bonjour,
Je vois un copier/coller avec liaisons, serait pas mal.
Evidement, les liasons seront actives.

Si cela ne convient pas, je te chercherai un truc différent.

 

[MichelXld]

bonjour MacPoy

cette démo de @+Thierry devrait répondre à ta demande

Lien supprimé
Lien supprimé


bonne soiree
MichelXld

 

[MichelXld]

bonjour Spock

...excuses moi de ne pas t'avoir salué ...


bonne soiree
MichelXld

 

[Macpoy]

bonsoir le forum, spock , super michelxld,
je court voir ou tenter vos infos
merci et à tout à l'heure.

au fait michel, explique moi comment faire pour mettre certains mots en couleur dans les post, je t'ai vu faire ça la semaine dernière.

fait que chaque heure de ta vie soit un souvenir pour demain.

 

[Dugenou]

Bonjour,

Je propose le copier coller de Mr Spock, avec liaisons mais en collant toujours la même chose puis sélectionner les zones correspondant à un classeur et faire un remplacer par le nom du bon classeur.
Ou alors un indirect avec le nom du classeur écrit au dessus de chaque zone (j'espère que tu me comprends, sinon je te ferais une démo)

Cordialement

Edition : pour la mise en couleur : tu sélectionnes le mot puis tu clique en haut dans la liste déroulante 'couleur' : ça pose les bornes autour du texte sélectionné

Message édité par: Dugenou, à: 25/07/2005 17:48

 

[Macpoy]

Re le forum, michelxld, spock, dugenou
desolé pour le break, mais du monde à l'apero, cela ne se refuse pas!!!
j'étudie vos propositions et je vous tient au courant.
passer par les ADO me semble seduisant mais pour le moment c'est du chinois pour moi!!!! bien que ce soit une langue d'avenir !!! lol
merci de votre attention @ plus.


La guerre !!!! c'est une chose trop grave pour la confier à des militaires!!! (georges clémenceau )

 

[Macpoy]

bonjour le forum,
les activex data object permettent vraiment des choses extraordinnaires (apparement!!!) car n'y comprennant rien, je me suis rabattu sur un bricolage du fin fond du garage!!! mais cela marche.(être autodidact c'est bien mais il y à aussi des limites!!!)
en fait après avoir copié toutes les formules, la mise à jour peu se faire soit à l'ouverture du classeur de synthèse, soit sur 'ordre' par l'intermédiaire de cette macro. mais je narrive pas à faire comprendre à cette sata.... né macro que si un classeur est déja ouvert il est inutile de le reouvrir!!!!

Function FichOuvert(F As String) As Boolean
'Auteur: Didier_mdf sur forum www.Excel-downloads.com (XLD)
Dim Wk As Workbook
On Error Resume Next
Set Wk = Workbooks(F) '(Merci à Ti pour cette astuce)
On Error GoTo 0
FichOuvert = Not Wk Is Nothing
End Function

Sub Mise_a_jour()
Dim Ictr As Integer
Dim myPath As String
Dim WS As Worksheet
Dim WB
Dim X As String

StgFileName = Dir(CHem & '\\*.xls')

Do While StgFileName <> ''

===============================================
c'est à cette ligne que je n'arrive pas à lui faire nommer le classeur

If FichOuvert('stgfilename') = True Then

==============================================
GoTo 1
End If

Workbooks.Open Filename:=CHem & '\\' & StgFileName

ActiveWorkbook.Close
1 StgFileName = Dir()
Loop
thisworkbook.calculate
End Sub
si toute fois un gentil Excellien passait par la et arrivait à rectifier l'erreur!! se serait super sympa. merci d'avance.

le remède le plus efficace contre la colère, c'est la réflexion!

 

[MichelXld]

bonsoir MacPoy

je n'ai pas testé la totalité de ta macro , mais à mon avis il faut enlever les guillemets dans la ligne

If FichOuvert(stgfilename) = True Then


bonne soiree
MichelXld

 

[Macpoy]

bonsoir le forum, bonsoir michelxld,
Raté !!! j'avais testé . mais pas de soucis, il semblerait que cette macro simplifiée fonctionne dans tous les cas (ouvert ou pas )

Const CHem As String = 'D:\\Document de Macpoy\\Classeur d'aide\\Operateurs\\'

Sub Mise_a_jour()

StgFileName = Dir(CHem & '\\*.xls')

Do While StgFileName <> ''

Workbooks.Open Filename:=CHem & '\\' & StgFileName

ActiveWorkbook.Close
StgFileName = Dir()
Loop
End Sub

bref je pense avoir cloturé ce pb. merci pour ton aide qui me serat certainement précieuse très rapidement.
malgré l'explication de dugenou je n'arrive pas à colorer certain mots du post. si tu peu me faire du pas à pas ce serait sympa.


hi hi hi : tout tourne autour de lui, c'est le centre du monde. qui est ce ? ...................................................... ( l'ivrogne !!! )

 

[Dugenou]

Salut

Explications pour la mise en couleur dans le fichier joint

Bye [file name=_colorierunpost.zip size=28531]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/_colorierunpost.zip[/file]