Fermeture de Fichier Excel (VBA)

Question

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 ?

f894009 · Answer

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

Fermeture de Fichier Excel (VBA)

1 réponse

Discussions similaires

Newsletters