Copier feuille d'un autre fichier dans fichier actuel

[yves03]

Bonsoir,
J'ai cherché un peu partout sur le forum ( Peut etre mal cherché !!).
Je souhaiterais a partir d'un bouton, avoir la possibilite d'ouvrir un fichier ( avec la fenetre DialogOpen ), de recuperer la "feuill1" et la copier dans mon classeur a la place d'une feuille deja existante et refermer le premier fichier.
Si vous pouviez m'aider
Merci d'avance

 

[kjin]

Re : Copier feuille d'un autre fichier dans fichier actuel

Bonsoir,
Un exemple à adapter

Sub Copie()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
FichDest = ActiveWorkbook.Name
Workbooks(FichDest).Sheets("Feuil1").Delete 'à priori c'est la feuille1
FichDep = Application.GetOpenFilename
If FichDep = False Then Exit Sub
Workbooks.Open FichDep
NomFich = ActiveWorkbook.Name
Sheets("Feuil1").Copy Before:=Workbooks(FichDest).Sheets(1) 'à priori aussi
Workbooks(NomFich).Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

A+
kjin

 

[yves03]

Re : Copier feuille d'un autre fichier dans fichier actuel

Merci beaucoup c'est exactement ce que je voulais.
🙂🙂🙂

 

[yves03]

Re : Copier feuille d'un autre fichier dans fichier actuel

Bonsoir,
Un exemple à adapter

A+
kjin

LA macro fonctionne bien, par contre le nom de la feuille à copier peut changer, est il possible de copier la feuille sans se soucier du nom qu'elle porte;
Merci d'avance

 

[kjin]

Re : Copier feuille d'un autre fichier dans fichier actuel

Bonjour,

...le nom de la feuille à copier peut changer, est il possible de copier la feuille sans se soucier du nom qu'elle porte...

1) J'en conclue que le classeur importé ne contient qu'une seule feuille ?
2) Il s'agissait de remplacer la "feuil1" par une nouvelle "feuil1", donc j'effacais la "feuil1" existante avant l'import. Maintenant faut-il toujours remplacer la "feuil1"?
A tout hasard...

Sub Copie()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
FichDest = ActiveWorkbook.Name
FichDep = Application.GetOpenFilename
If FichDep = False Then Exit Sub
Workbooks(FichDest).Sheets("Feuil1").Delete 'à priori c'est la feuille1
Workbooks.Open FichDep
NomFich = ActiveWorkbook.Name
ActiveSheet.Copy Before:=Workbooks(FichDest).Sheets(1) 'à priori aussi
Workbooks(NomFich).Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

J'ai juste déplacer la routine de suppression de la feuille car en cas d'annulation, ça faisait désordre 🙄
A+
kjin