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