copier-coller une feuille d'un classeur xls à un autre

[oriflamme]

Bonjour au forum !
je cherche une macro vba me permettant d'ouvrir n'importe quel fichier xl enregistré où que ce soit sur le disque et quel que soit son nom pour ensuite copier-coller la feuille nommée Feuil1 dans l'autre fichier xl (celui qui lance la macro) en la renommant et fermer le premier fichier.
Quelq'un peut il m'aider svp ???
Merci d'avance à tous les programmeurs VBA qui passeraient par là !

 

[oriflamme]

Re : copier-coller une feuille d'un classeur xls à un autre

personne ???
voici le code que j'ai réussi à faire mais le problème est qu'il me sort n'importe quoi !!! lol si quelqu'un voit ce qui peux planter dans ma function LIRE Fichier merci beaucoup !
Sub Tst()
Dim Fichier As Variant
Fichier = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
If Fichier <> False Then
Sheets("Feuil1").Select
Sheets("Feuil1").Copy After:=Workbooks("Classeur1.xls").Sheets(2)
Sheets("Feuil1").Select
Sheets("Feuil1").Name = "listing cavaliers"
Range("F21").Select
Lire Fichier


End If
End Sub
Function Lire(ByVal NomFichier As String)
Dim Chaine As String
Dim Ar() As String
Dim i As Long
Dim iRow As Long, iCol As Long
Dim NumFichier As Integer
Const Separateur As String = ";"

Cells.Clear
NumFichier = FreeFile
iRow = 1

Open NomFichier For Input As #NumFichier
Do While Not EOF(NumFichier)
iCol = 1
Line Input #NumFichier, Chaine
Ar = Split(Chaine, Separateur)
For i = LBound(Ar) To UBound(Ar)
Cells(iRow, iCol) = Ar(i)
iCol = iCol + 1
Next
iRow = iRow + 1
Loop
Close #NumFichier
End Function

 

[Kotov]

Re : copier-coller une feuille d'un classeur xls à un autre

Bonjour Oriflamme,

Rien qu'en jetant succinctement un oeil sur ta macro, un truc m'interpelle :

Tu veux ouvrir n'importe quel fichier Excel dans n'importe quel répertoire du disque et copier la feuille "Feuil1" ...
Comment es-tu sûr que le classeur dispose d'une feuille nommée ("Feuil1") ?
En ce qui me concerne, je renomme toutes les feuilles des mes classeurs.

Si tu veux copier la 1ère feuille, alors utilises : Sheets (1)

A+
Kotov