macro qui ouvre plusieurs classeurs, comment en fermer un précis

titiborregan5

XLDnaute Accro
Bonjour à tous,

je rencontre une difficulté qui dure depuis quelque temps maintenant...

Ma macro propose à l'utilisateur les différents fichiers qu'il peut ouvrir, ouvre celui qui est choisi, copie la feuille dans le classeur actuel en dernière feuille et appelle une autre procédure de mise en forme et de tcd...

Par contre, une fois ouvert, impossible de fermer le classeur ouvert par la macro...

Avez-vous une astuce??? Ou peut-être que je peux copier une feuille d'un classeur sans l'ouvrir?

Merci d'avance à tous pour votre aide :d

Tibo
 
Dernière édition:
G

Guest

Guest
Re : macro qui ouvre plusieurs classeurs, comment en fermer un précis

Bonjour,

Il faudrait voir le classeur avec sa macro. Sans doute que le classeur actif change au fil de la macro.
Référencer le classeur ouvert dans une variable 'WorkBook'.

Set Wk=WorkBooks.Open .......
......
Wk.close

A+
 

titiborregan5

XLDnaute Accro
Re : macro qui ouvre plusieurs classeurs, comment en fermer un précis

Bonjour Hasco, merci de ta réponse.

je mets le fichier mais comme l'ouverture ne marche que chez moi vu le chemin je pensais cela pas nécessaire... mais le voilà :d

J'ai testé le set Wk=...

Mais est-ce que je peux faire
ouvrir un classeur
set wk=...
copier la feuille de ce classeur dans le thisworkbook
et fermer le wk??

J'avais essayé et eu des messages d'erreur...

En espérant avoir été clair :s

Encore merci!
 

Pièces jointes

  • Analytique vierge.xlsm
    31.2 KB · Affichages: 46
G

Guest

Guest
Re : macro qui ouvre plusieurs classeurs, comment en fermer un précis

Bonjour,

Dans le fichier joint j'ai commenté ce qui ne pouvait fonctionner chez moi.
Création d'une variable Wk dans le module général

Cela fonctionne

A+
 

titiborregan5

XLDnaute Accro
Re : macro qui ouvre plusieurs classeurs, comment en fermer un précis

Effectivement je m'en sers souvent de F1 mais pas là... j'étais trop sûr de mon niveau d'anglais, j'aurais pas dû ça m'apprendra :d...
J'essaie ce que tu m'as dit et fais un retour!
NICKEL ça marche!!!! Impeccable!!!


Merci Hasco!
 
Dernière édition:
G

Guest

Guest
Re : macro qui ouvre plusieurs classeurs, comment en fermer un précis

Re,

Je viens de penser à une autre méthode sans variable de type WorkBook, en utilisant le nom du classeur, une fois ouvert:
Code:
Private Sub CommandButton1_Click()
Dim WkName As String
MonFicHier = "C:\Users\.......\XLD\Daig a 1 an_3.xlsm" 'ComboBox1.Value"
'claSSeur = Range("a2").CurrentRegion.Find(what:=MonFicHier).Offset(0, 3).Value
Workbooks.Open MonFicHier
WkName = ActiveWorkbook.Name
Unload Me
ActiveSheet.Copy after:=ThisWorkbook.Sheets(1)
ActiveSheet.Name = "Export analytique" & Format(Date, "yyyymmdd") & Format(Time, "hhmmss")
Workbooks(WkName).Close False
End Sub

A+
 
G

Guest

Guest
Re : [Résolu] macro qui ouvre plusieurs classeurs, comment en fermer un précis

re, (comme quoi un fil n'est jamais 'Résolu')

On ne peut pas faire un copier coller d'un feuille sans ouvrir son classeur?

Non!

Tu ne dis pas si ce que je t'ai passé dans mon dernier post, fonctionne ou pas.


A+
 
G

Guest

Guest
Re : macro qui ouvre plusieurs classeurs, comment en fermer un précis

Re,

Ce qu'il est ressorti de ce sujet maintes fois discuté dans le salon (entre autre), est qu'il est préférable de laisser toujours un fil 'ouvert' aux réponses futures qui peuvent apporter des réponses et solutions originales. C'est pour cela que David a toujours refusé de créer un 'bouton' pour mettre résolu.

A+
 

Discussions similaires

Statistiques des forums

Discussions
311 736
Messages
2 082 026
Membres
101 876
dernier inscrit
JULIEN21370