import de donnee d'un classeur fermer

[jmlm]

salut le forum

j'ai un petit probleme je voudrai recuperer des donnees situer dans un classeur
fermer. je doit selectioner ces donnes en fonction d'une date situer dans le classeur de reception et selectionner la colonne (des lignes 5à120) qui correspond a cette date dans le classeur fermer
le classeur fermer s'appel calandrier
voici une macro que j'ai trouver sur le forum (je remerci son proprietaire) qui permet d'importer des donnees d'un classeur fermer

ci-joint un exemple du fichier calandrier

merci d'avance à tout le monde


Sub extractionValeurCelluleClasseurFerme()
Dim Source As ADODB.Connection
Dim Rst As ADODB.Recordset
Dim ADOCommand As ADODB.Command
Dim Fichier As String, Cellule As String, Feuille As String

'Adresse de la cellule contenant la donnée à récupérer
'Pour une plage de cellules, utilisez:
Cellule = "A4:C10"
'*********************************************************************
'a la place de cellule ="A4:C10" je voudrai selectionner la colonne
'a partir de la ligne 5 jusqu'a ligne 120 en fonction de la date situer en ligne 5
'la date qui doit etre rechercher se trouve dans le classeur de destination ou se trouve cet macro
'**********************************************************************

Feuille = "jan-juil$" 'n'oubliez pas d'ajouter $ au nom de la feuille.
'Chemin complet du classeur fermé
Fichier = "C:\calandrier\calandrier.xls"

Set Source = New ADODB.Connection
Source.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Fichier & ";Extended Properties=""Excel 8.0;HDR=YES"""

Set ADOCommand = New ADODB.Command
With ADOCommand
.ActiveConnection = Source
.CommandText = "SELECT * FROM [" & Feuille & Cellule & "]"
End With

Set Rst = New ADODB.Recordset
Rst.Open ADOCommand, , adOpenKeyset, adLockOptimistic

Set Rst = Source.Execute("[" & Feuille & Cellule & "]")

Range("A2").CopyFromRecordset Rst

Rst.Close
Source.Close
Set Source = Nothing
Set Rst = Nothing
Set ADOCommand = Nothing
End Sub