Bonjour,
Dans une macro je tape le code suivant pour faire selectionner un fichier:
Je voudrais que à la fin de cette macro le fichier que j'ouvre avec Application.GetOpenFilename (celui qui contient la feuille :transfert TE Prix filiales") se ferme tout seul.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18 Dim Fichier As Variant Fichier = Application.GetOpenFilename If Fichier = False Then Exit Sub Workbooks.Open Fichier 'Copie du fichier prix vers transfertprixversBDD ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Sheets("transfert TE Prix filiales").Select Cells.Select Selection.Copy Windows("transfertprixversBDD.xls").Activate Sheets("Feuil1").Select Range("A1").Select ActiveSheet.Paste ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
(le nom de ce fichier change tout le temps c'est pour ça que je le selectionne avec Application.GetOpenFilename)
J'ai essayé Fichier.Close et Fichier.Quit mais cela ne fonctionne pas.
Partager