modification code : ouverture dans meme feuille

[limagerit]

Bonjour à tous ,

Je cherche à modifier ce code trouvé sur le forum qui permet la récupération de feuille excel.

Je voudrais pouvoir importer les feuilles directement dans ce fichier fusion afin de synthétiser les résultats.

le code ci dessous m'ouvre une feuille vierge et je n'arrive point à la désactiver .

Merci de vos bons conseils.


Sub Fusion_Fichier()
Application.ScreenUpdating = False
ChDir ActiveWorkbook.Path
Extension = "Excel Files (*.xls*),*.xls*"
TypeFiltre = 10
Titre = "Sélectionnez plusieurs fichiers (Maintenir CTRL pour sélectionner plusieurs)"
Fich = Application.GetOpenFilename(FileFilter:=Extension, _
FilterIndex:=TypeFiltre, Title:=Titre, MultiSelect:=True)

If Not IsArray(Fich) Then Exit Sub
LePath = ActiveWorkbook.Path & "\"
LeNom = "Fusion du " & Format(Date, "dd_mmmm_yy")
nbf = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 1
Workbooks.Add
Set AcWBK = ActiveWorkbook
For I = LBound(Fich) To UBound(Fich)
Workbooks.Open Filename:=Fich(I), ReadOnly:=True
Set OldWBK = ActiveWorkbook
OldWBK.Sheets(1).Copy After:=AcWBK.Sheets(AcWBK.Sheets.Count)
AcWBK.ActiveSheet.Name = OldWBK.Sheets(1).Range("h2")
OldWBK.Close False
Next I
Application.DisplayAlerts = False
With ActiveWorkbook
.Sheets(1).Delete
.SaveAs LePath & LeNom
End With
Application.SheetsInNewWorkbook = nbf
End Sub

 

[camarchepas]

Re : modification code : ouverture dans meme feuille

Bonjour,

Le plus simple est peut être de nommer la feuille. et ensuite de travailler à partir de ce nom de feuille

 

[limagerit]

Re : modification code : ouverture dans meme feuille

oui effectivement
j'ai essayé de désactive la ligne : Application.SheetsInNewWorkbook

mais la nouvelle feuille apparait quand même