Bonjour tout le monde
J'utilise le code d'un fameux MichelXld que j'ai trouvé dans une des discussions pour copier une feuille d'un classeur vers un autre
J'aurais deux questions :
1- Comment modifier le code si je souhaite copier plus d'une feuille du même classeur.
2- Comment faire pour garder le même format de feuille (Format de cellule, couleur de tableau...) après la copie.
Merci pour vos précisions, et excellente journée à tous .
J'utilise le code d'un fameux MichelXld que j'ai trouvé dans une des discussions pour copier une feuille d'un classeur vers un autre
Code:
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 = "Resultat"
'fichier = "C:\Users\U362622\Desktop\T.P\Moteurs taux pannes 3mr.xls"
Set Source = New ADODB.Connection
With Source
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & fichier & _
";Extended Properties=Excel 8.0;"
.Open
End With
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 & " pannes").Range("A1").CopyFromRecordset Rst 'import des données
Rst.Close
Source.Close
End Sub
J'aurais deux questions :
1- Comment modifier le code si je souhaite copier plus d'une feuille du même classeur.
2- Comment faire pour garder le même format de feuille (Format de cellule, couleur de tableau...) après la copie.
Merci pour vos précisions, et excellente journée à tous .