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!