Macro : Ouvrir et fermer fichier auto

[roidurif]

Bonjour,

J'ai une macro qui permet d'aller ouvrir et selectionner un fichier quelconque ex "Classeur2", puis de copier l'onget "DOC" pour le rapatrier dans le "classeur1".

Sub Ouvrir_fichier()
Application.ScreenUpdating = 0
fenetre = Application.Dialogs(xlDialogOpen).Show
If fenetre = False Then Exit Sub
Sheets("DOC").Copy After:=Workbooks("Classeur1.xls").Sheets(1)
Sheets("DOC").Activate
Range("A1").Select
End sub

Ce que je ne sais pas faire, c'est une fois copier, comment femer le fichier quelconque ex: "classeur 2" automatiquement.

Merci d'avance.

Cordialement

 

[mromain]

Re : Macro : Ouvrir et fermer fichier auto

bonjour roidurif,

à tester :

Sub Ouvrir_fichier()
Dim fichier As String, wbk As Workbook
fichier = Application.GetOpenFilename("Fichier Excel, *.xls; *.xlsx; *.xlsm", , , , False)
If UCase(fichier) = "FAUX" Then Exit Sub
Set wbk = Application.Workbooks.Open(fichier, , False)
wbk.Sheets("DOC").Copy After:=ThisWorkbook.Sheets(1)
ThisWorkbook.Sheets("DOC").Activate
ThisWorkbook.Sheets("DOC").Range("A1").Select
wbk.Close False
End Sub

a+

 

[roidurif]

Re : Macro : Ouvrir et fermer fichier auto

Bonsoir,

Je me retrouve avec une difficulté, pour des fichier excel 2007, il m'est impossible de copier l'onget pour le rapatrier dans le "classeur1".

Avez vous des solutions à me proposer svp?

Merci d'avance