Fermeture d'un fichier avec nom variable

Bonjour à tous.

J'ai de nouveau besoin de vos lumières.
J'ai la macro suivante:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub CommandButton1_Click() UserForm1.Hide   Dim QuelFichier As Variant   QuelFichier = Application.GetOpenFilename(Title:="Sélectionner le fichier à traiter", MultiSelect:=False)   If VarType(QuelFichier) = vbBoolean Then 'Annulation ouverture   Exit Sub   End If

---

Elle me permet d'ouvrir le fichier de mon choix et ensuite d'effectuer diverses opérations dessus. Le problème c'est qu'à la fin de la macro j'aimerai que le fichier en question se ferme automatiquement.
J'ai essayé quelque chose comme :

QuelFichier = Application.GetCloseFilename(Title:="Sélectionner le fichier à traiter", MultiSelect:=False)

Mais sans succès...

bonjour,

en travaillant plutot comme ça je pense que cela devrais t'aider
si j'ai bien compris ce que tu veux du moins.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub openclosebook() Dim wb As Workbook   Set wb = Workbooks.Open(Application.GetOpenFilename(Title:="Sélectionner le fichier à traiter", MultiSelect:=False))   MsgBox "fichier ouvert"     wb.Close   MsgBox "fichier fermé" End Sub

---

ça n'a pas l'air de marcher. Je me suis peut être mal exprimé. :aie:

J'ai mis un userform sur ma macro qui est là dès qu'on l'ouvre. Lorsque je clique sur l'userform, le code ci dessus, m'ouvre une boite me proposant de sélectionner le fichier à traiter. Une fois ce fichier sélectionné des infos sont prises dessus et la macro tourne. Tout est ensuite conservé sur un autre fichier. J'aimerai donc que le fichier ouvert grâce à l'userform se ferme tout à la fin de ma macro.
Si j'ai bien compris il s'appelle "QuelFichier" et c'est une variable.
J'ai donc essayer QuelFichier.close tout à la fin de la macro mais ça ne marche pas;

dans ton instruction

Code:

---

1 2	QuelFichier = Application.GetOpenFilename(Title:="Sélectionner le fichier à traiter", MultiSelect:=False)

---

QuelFichier renvoie juste une chaine de caractères qui correspond à quelque chose comme "C:\...\fichiers.xls"

tu dois donc comme je te l'ai indiquer
ouvrir un classeur dont le nom est QuelFichier

ce classeur on le référence dans une variable pour pouvoir le rapeller facilement à tout moment et par la même occasion... le fermer

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

dim wb as workbook ' variable classeur   ... 'on ouvre set wb=workbooks.open(QuelFichier)   'on fait des choses..   ...   'on ferme   wb.close

---

En fait tu me conseilles de modifier le début de mon code?
Je vais essayer ça après manger.
Merci beaucoup pour ton aide en tout cas

Merci beaucoup Mayekeul ça marche impeccable!