Importer feuille sans ouvrir

[Gysmo]

J'aimerais savoir si c'est possible d'importer une feuille excel d'un document fermé dans un document ouvert.

Merci

 

[BERRACHED said]

Re : Importer feuille sans ouvrir

Salut,Gysmo

Sans avoir d'élément précis de ta part je te dirais simplement que c'est faisable
par Vba.

Cordialement

 

[alexga78]

Re : Importer feuille sans ouvrir

Bonsoir Gysmo, Saïd, le forum

une tentative dans le brouillard à copier dans un module...il faut adapter le chemin du fichier de la page à importer,les noms des fichiers et le nom des feuilles.

Sub import()
Dim Fichier As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Fichier = "C:\Documents and Settings\MON ORDI\Bureau\EX.xls"
Workbooks.Open Fichier
Fichier = ActiveWorkbook.Name
Workbooks(Fichier).Sheets(1).Copy before:=Workbooks("EX2.xls").Sheets(1)
If Err.Number = 0 Then
ActiveSheet.Name = "Feuille-importée_" & ActiveWorkbook.Worksheets.Count
Else
ActiveSheet.Name = "Feuille-importée"
End If
Workbooks(Fichier).Close
End Sub

Bonne soirée