Discussion :

[rapheb]

Bonjour à tous,

Après plusieurs recherches et essais je n'ai pas réussi à obtenir ce que je souhaitais.
Ma macro me sert à importer des classeurs dans un autre classeur (où est situé la macro) via la commande: "Application.GetOpenFilename".

Cela donne le bout de code suivant:

Code :

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

1
2
3
4
5
6
Dim OuvrirFichiers As Variant
OuvrirFichiers = Application.GetOpenFilename(, , , , True)
For y = 1 To UBound(OuvrirFichiers)
Workbooks.Open OuvrirFichiers(y)
Sheets.Select
Sheets.Copy after:=Workbooks("OutilVBA.xls").Sheets(1)

J'utilise donc la sélection multiple.

Ma problématique: fermer, une fois copié, les classeurs ouverts avec Application.GetOpenFilename.
2 techniques pour cela qui ne me conviennent pas:
- utiliser le nom des classeurs pour les fermer workbooks.close (mais je ne suis pas à l'abris que les classeurs que je souhaite importer change de nom...)
- fermer tous les classeurs sauf celui qui contient la macro (problème pour l'utilisateur s'il travail avec d'autres classeurs qui ne souhaite pas fermer)

La solution serait de nommer temporairement les classeurs ouverts puis utiliser ce "nom temporaire" pour les fermer via workbooks.close.... est ce possible ? ou avez vous d'autres solutions ?

merci pour votre aide,
raphaël

[casefayere]

Bonjour,
Je ne comprends peut-être as mais si tu les ouvres un à un dans ta boucle, tu dois pouvoir les fermer de la même façon, je n'ai pas analysé ou testé ton code mais la logique voudrait que, si je m'appuie sur ton code :

Code :

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

1
2
3
4
5
6
7
8
9
Dim OuvrirFichiers As Variant
OuvrirFichiers = Application.GetOpenFilename(, , , , True)
For y = 1 To UBound(OuvrirFichiers)
    Workbooks.Open OuvrirFichiers(y)
    Sheets.Select
    Sheets.Copy after:=Workbooks("OutilVBA.xls").Sheets(1)
    Workbooks.Close OuvrirFichiers(y)' à revoir comment fermer ou
    'ActiveWindow.Close
Next y

[rapheb]

Oui la solution doit être comme ça: fermer le classeur avant de passer au next y.
J'ai essayé ta ligne supplémentaire mais excel n'apprecie pas trop:
"Erreur de compilation:
Nombre d'arguments incorrecte ou affectation de propirété incorrets"

[casefayere]

Je n'avais pas vérifié cette ligne mais le classeur actif doit être le dernier classeur ouvert alors essayes (comme je l'ai suggéré) avec

Code :

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

ActiveWindow.Close

[rapheb]

J'avais aussi essayé Activewindow.close
Le problème c'est que justement la dernier classeur actif est OutilVBA.xls car on a copié dedans le classeur ouvert précédemment...
Comment gardé le classeur ouvert actif ? ou alors comment ne pas activé le classeur dans lequel on vient de copier nos données ?
On approche !