Fermeture de Fichier Excel (VBA) [Fermé]

Signaler
Messages postés
5
Date d'inscription
lundi 11 janvier 2016
Statut
Membre
Dernière intervention
4 mars 2016
-
Messages postés
15267
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
8 août 2020
-
Bonjour j'ai une Macro sur un fichier A où je demande l'ouverture d'un fichier B faire des changement sur le fichier puis important les infos qui m'interesse sur le fichier qui contient la Macro ensuite Fermer le Fichier B (la ou ça marche pas)

Selon le script ci dessous :
Fich = Application.GetOpenFilename
Workbooks.Open Filename:=Fich
Cells.Select
Selection.Copy
          • Pour fermeture du fichier :

SheetSource.Parent.Close savechanges:=False

Avez vous une idée ?

1 réponse

Messages postés
15267
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
8 août 2020
1 323
Bonjour,
exemple de code:
Sub TESTX()
    Dim wb As Workbook, Fich As String
    
    Fich = Application.GetOpenFilename(" Classeur Microsoft EXCEL (*.xls*), *.xls*", 2, "Ouverture Fichier ", False)
    Set wb = Workbooks.Open(Filename:=Fich)
    Cells.Select
    Selection.Copy

    'Pour fermeture du fichier :
    wb.Close False
    
End Sub