VBA fermer un fichier Excel

Résolu/Fermé
JP - Modifié par pijaku le 8/10/2014 à 15:57
 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:

3 réponses

f894009 Messages postés 17210 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 23 décembre 2024 1 711
Modifié par pijaku le 8/10/2014 à 15:58
Bonjour,
Fermeture Classeur:

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


Bonne suite
36
ça ne marche pas ça me mes code erreur '9'
-1