Copier feuille d'un autre fichier dans fichier actuel

yves03 · 25 Août 2008

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 · 25 Août 2008

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 · 26 Août 2008

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

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

yves03 · 26 Août 2008

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

kjin à dit:
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 · 26 Août 2008

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

Bonjour,

yves03 à dit:
...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

Copier feuille d'un autre fichier dans fichier actuel

yves03

XLDnaute Occasionnel

kjin

XLDnaute Barbatruc

yves03

XLDnaute Occasionnel

yves03

XLDnaute Occasionnel

kjin

XLDnaute Barbatruc

Discussions similaires

Copier feuille d'un autre fichier dans fichier actuel

yves03

XLDnaute Occasionnel

kjin

XLDnaute Barbatruc

yves03

XLDnaute Occasionnel

yves03

XLDnaute Occasionnel

kjin

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency