VBA fermeture fichier ouvert avec getopenfilename

[Kouik Kouik jr]

Bonjour tout le monde ,

joyeuses fêtes de paques !!!

Je reviens avec un soucis pour fermer les fichiers ouvert avec l'application getopenfilename

J'ai essayé un code ci dessous (Workbooks(Fichier_HSBC).Close)mais cela n'a pas l'air de fonctionner. Il ne reconnait pas "Fichier_HSBC" apparament

Y'aurais t'il un crack pour m'aider ?

Merci d'avance🙂


Windows("Essai_final2.xlsm").Activate
Sheets("HSBC").Select
Cells.Select
Selection.ClearContents
Application.WindowState = xlMinimized
MsgBox "Choix du dernier fichier HSBC"
Fichier_HSBC = Application.GetOpenFilename("Fichiers Excel (*.xl*), *.xl*")
If Fichier_HSBC <> False Then
Workbooks.Open Filename:=Fichier_HSBC
Fichier_HSBC = ActiveWorkbook.FullName
Sheets("Sheet1").Select
Cells.Select
Selection.Copy
Windows("Essai_final2.xlsm").Activate
Sheets("HSBC").Select
Range("A1").Select
ActiveSheet.Paste



Workbooks(Fichier_HSBC).Activate
Workbooks(Fichier_HSBC).Close
Kill Fichier_HSBC

 

[Catrice]

Re : VBA fermeture fichier ouvert avec getopenfilename

Bonjour,

Si j'ai bien compris ce que tu voulais faire, tu peux essayer ceci :

Sub Test()
Workbooks("Essai_final2.xlsm").Sheets("HSBC").Cells.ClearContents
MsgBox "Choix du dernier fichier HSBC"
Fichier_HSBC = Application.GetOpenFilename("Fichiers Excel (*.xl*), *.xl*")
If Fichier_HSBC <> False Then
Set Monfic = Workbooks.Open(Filename:=Fichier_HSBC)
FullMonFic = Monfic.FullName
Monfic.Sheets("Sheet1").Cells.Copy Workbooks("Essai_final2.xlsm").Sheets("HSBC").Range("A1")
Monfic.Close
Kill FullMonFic
End If
End Sub

 

[kjin]

Re : VBA fermeture fichier ouvert avec getopenfilename

Bonjour,

Windows("Essai_final2.xlsm").Activate
Sheets("HSBC").Cells.ClearContents
Application.WindowState = xlMinimized
MsgBox "Choix du dernier fichier HSBC"
Fichier_HSBC = Application.GetOpenFilename("Fichiers Excel (*.xl*), *.xl*")
If Fichier_HSBC <> False Then
Workbooks.Open Filename:=Fichier_HSBC
Fichier_HSBC = ActiveWorkbook.Name
Sheets("Sheet1").Cells.Copy Workbooks("Essai_final2.xlsm").Sheets("HSBC").Range("A1")
Application.DisplayAlerts = False
Workbooks(Fichier_HSBC).Close
Kill Fichier_HSBC
Application.DisplayAlerts = True

A+
kjin

 

[Kouik Kouik jr]

Re : VBA fermeture fichier ouvert avec getopenfilename

Impec ! ca marche magnifiquement

Merci beaucoup....-)