VBA fermer un fichier Excel

Résolu

JP -
JP - 13 mars 2012 à 13:32

Bonjour,

j'ai créée une macro qui me permet d'ouvrir un fichier "EXTRACTION.XLS"et de copier la feuille qu 'il contient dans mon fichier "QAcier.XLS"
je voudrais qu'une foi la copy exécuté le fichier "EXTRACTION.XLS" ce ferme auomatiquement

j'ai mis NomSource.close mais ça ne marche pas

voici le code

' cette macro permet d'aller chercher selon un chemin un fichier Excel
Sub MAJ()
Dim NomSource As String, i As Integer
     If MsgBox("Voulez vous aller chercher le fichier EXTRACTION.xls ? ", vbYesNo) = vbYes Then
        For i = 1 To Sheets.Count 'supprime la feuille Summary si existe
            If Sheets(i).Name = "Summary" Then Sheets(i).Delete: Exit For
        Next i
        ' il faut aller chercher le fichier Excel"EXTRACTION" donc on utilise Application.GetOpenFilename
        
        NomSource = Application.GetOpenFilename
        ' ouvre le fichier source
        Workbooks.Open (NomSource)
        ' copy la feuille Summary du fichier source aorès la feuille 6 du notre fichier Excel
        ActiveWorkbook.Sheets("Summary").Copy after:=ThisWorkbook.Sheets(6)
        NomSource. Close

    Else
        MsgBox (" Aurevoir et à bientôt ")
    End If
End Sub

A voir également:

Fermer un fichier excel vba
Vba fermer un classeur sans enregistrer - Meilleures réponses
Vba fermer fichier sans enregistrer - Meilleures réponses
Fichier bin - Guide
Comment réduire la taille d'un fichier - Guide
Comment ouvrir un fichier epub ? - Guide
Fichier rar - Guide
Fichier .dat - Guide

3 réponses

Réponse 1 / 3

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Bonjour,
Fermeture Classeur:

Workbooks(Nom_Classeur).Close False 'sans sauvegarde (True si sauvegarde)

Bonne suite

ça ne marche pas ça me mes code erreur '9'

Réponse 2 / 3

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Re,

votre code modifie

Sub MAJ()
Dim NomSource, i As Integer
Dim Wb As Workbook

If MsgBox("Voulez vous aller chercher le fichier EXTRACTION.xls ? ", vbYesNo) = vbYes Then
For i = 1 To Sheets.Count 'supprime la feuille Summary si existe
If Sheets(i).Name = "Summary" Then Sheets(i).Delete: Exit For
Next i
' il faut aller chercher le fichier Excel"EXTRACTION" donc on utilise Application.GetOpenFilename

NomSource = Application.GetOpenFilename
' ouvre le fichier source
Set Wb = Workbooks.Open(NomSource)
' copy la feuille Summary du fichier source aorès la feuille 6 du notre fichier Excel
Wb.Sheets("Summary").Copy after:=ThisWorkbook.Sheets(6)
'fermeture classeur EXTRACTION.xls
Wb.Close

Else
MsgBox (" Aurevoir et à bientôt ")
End If
End Sub

Bonne suite

Merci

ça marche

jp

Discussions similaires

ouverture d'un fichier excel à partir d'un code VBA

VBA Executer une macro a l'ouverture de excel

[VBA/EXCEL] :Sauver uniquement une feuille ?

VBA Excel Copie feuille dans autre classeur

Récupérer des donnés d'un fichier excel fermé avec vba

Excel-ouvrir classeur sur une feuille précise

Votre réponse

Discussions similaires