Macro : Ouvrir et fermer fichier auto

roidurif · 9 Juin 2009

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".

Code:

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 · 9 Juin 2009

Re : Macro : Ouvrir et fermer fichier auto

bonjour roidurif,

à tester :

Code:

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 · 21 Décembre 2009

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

Macro : Ouvrir et fermer fichier auto

roidurif

XLDnaute Occasionnel

mromain

XLDnaute Barbatruc

roidurif

XLDnaute Occasionnel

Discussions similaires

Macro : Ouvrir et fermer fichier auto

roidurif

XLDnaute Occasionnel

mromain

XLDnaute Barbatruc

roidurif

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency