feuilles d'un classeur fermé vers le classeur acti

[christelle]

re-bonjour à tous,
j'aimerai pouvoir importer 3 feuilles d'un classeur fermé (dont je récupère le nom dans un formulaire) pour les mettre à la place des 3 feuilles du classeur actif (les feuilles ont le même nom dans les 2 classeurs). J'ai regardé dans les wiki de MichelXld mais je ne comprend pas trop le programme... un peu d'aide ne serait pas superflue!
Merci beaucoup, bon après-midi!

 

[MichelXld]

bonsoir Christelle

tu peux tester cette procedure


Sub requeteFeuilleClasseurFerme()
'
'necessite d'activer la reference Microsoft ActiveX Data Objects x.x Library
'
'
Dim Source As ADODB.Connection
Dim Rst As ADODB.Recordset
Dim nomFeuille As String, fichier As String, texte_SQL As String
Dim i As Integer

nomFeuille = 'Feuil1'
fichier = 'C:\\\\\\\\Documents and Settings\\\\\\\\michel\\\\\\\\dossier\\\\\\\\ClasseurFerme.xls'

Set Source = New ADODB.Connection
Source.Open 'Provider = Microsoft.Jet.OLEDB.4.0;' & _
'data source=' & fichier & ';extended properties=''Excel 8.0;'''

texte_SQL = 'SELECT * FROM [' & nomFeuille & '$]'

Set Rst = New ADODB.Recordset
Set Rst = Source.Execute(texte_SQL)

For i = 1 To Rst.Fields.Count
Cells(1, i) = Rst.Fields(i - 1).Name
Next i

Sheets(nomFeuille).Range('A2').CopyFromRecordset Rst 'import des données

Rst.Close
Source.Close
End Sub



bonne soirée
MichelXld

 

[froggystar69]

n'oublie pas le "$" a la fin de ta declaration de la feuille sinon ca marche pas ^^