Discussion :

[sash6]

Bonjour tout le monde,

J'ai une petite macro qui m'ouvre un fichier xls que l'utilisateur peut choisir via un explorateur, quelques modifications suivent, et après je veux fermer le fichier:

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
Dim Wb As Workbook
Dim tbl As Range
 
Fichier = Application.GetOpenFilename("Classeurs Excel (*.xls), *.xls")
If Fichier = False Then Exit Sub
 
Set Wb = Workbooks.Open(Fichier)
-
-
-
-
 
                   Application.DisplayAlerts = False
            Workbooks.Close (Fichier)
        Application.DisplayAlerts = True
 
End Sub

Je pense que ça vient du fait que Fichier est déclaré en tant que variable...J'ai essayé pas mal de trucs différents mais ça ne marche pas

[tonton fred]

Bonjour sash6,

Je pense que ça vient du fait que Fichier est déclaré en tant que variable...

Non cela vient du fait que ce n'est pas la bonne syntaxe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks(Fichier).Close

[sash6]

merci tonton fred mais cette synthaxe je l'avais déjà testée...et elle ne marche pas

[tonton fred]

Ah oui autant pour moi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
wb.close
set wb = nothing

workbooks(fichier).close marcherait si Fichier contenait le nom du workbooks sans le chemin mais getopenfilename donne le chemin complet

[sash6]

muchas gracias!

[Linio]

Tu as essayé Fichier.Close tout simplement?

(C'est comme ça que je fais dans ma macro avec mon pointeur de fichier et ça marche)

edit: ah on m'a doublé