Fermeture de Fichier Excel (VBA)

Fermé
Jiand Messages postés 5 Date d'inscription lundi 11 janvier 2016 Statut Membre Dernière intervention 4 mars 2016 - 15 févr. 2016 à 13:30
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 - 15 févr. 2016 à 13:50
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

f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
15 févr. 2016 à 13:50
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
0