XL 2016 VBA: fermer un classeur dont le nom se compose d'une valeur et d'une variable

Staple1600

XLDnaute Barbatruc

• 16 Janvier 2018

• #2

Bonsoir

@Aloha
A quoi cela sert-il de proposer des codes si tu les oublies dans la foulée?
(ou si tu ne les étudies pas pour les réutiliser)
https://www.excel-downloads.com/thr...fichier-dans-un-autre.20020993/#post-20154537

 

Vote positif 0 Vote négatif

A

Aloha

XLDnaute Accro

• 16 Janvier 2018

• #3

Bonsoir JM,

Ce n'est pas de cette opération-là qu'il s'agit. Elle devait copier des saisies, et ce code-ci doit produire des fiches vides. Et avec mes formules INDIRECT() je dois ouvrir le fichier vers lequel elles pointent, ce que j'arrive à faire, mais je n'arrive pas à le refermer.
J'ai bien sûr étudié ton code, mais je ne suis pas à même d'en tirer parti pour cette affaire-ci.

Bonne soirée
Aloha

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 16 Janvier 2018

• #4

Re

@Aloha
Et pourtant tu avais tout à disposition dans le fil que je cite
'On ouvre un classeur
Set Source = Application.Workbooks.Open("C:\STAPLE1600\Fichier source.xls")
'On le ferme
Source.Close False

Donc si je m'en sers avec le code de ce fil, cela donne

VB:

Set Classeur=Workbooks.Open(Filename:=strPfad  "\" & Range("K1") & "\" & Range("K1") & " " & intYear & ".xlsx")
'le reste du code de ta macro
Classeur.Close True

CQFD!

 

Vote positif 0 Vote négatif

A

Aloha

XLDnaute Accro

• 16 Janvier 2018

• #5

Re,

Ce n'est pas toujours le même fichier qu'il faut ouvrir; je dois composer le nom d'une valeur d'une cellule (nom du service) et d'une variable (année) & terminaison.
A+
Aloha

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 16 Janvier 2018

• #6

Re

Relis mon précédent message !!

 

Vote positif 0 Vote négatif

A

Aloha

XLDnaute Accro

• 16 Janvier 2018

• #7

Re,
Ups, désolé, probablement frappé de cécité momentanée, je n'avais pas vu le code.
Je l'ai intégré, mais à cette ligne

Code:

Set Classeur= Workbooks.Open(Filename:=strPfad & "\" & Range("K1") & "\" & Range("K1") & " " & intYear & ".xlsx")

je rçois un message d'erreur: "Erreur de compilation. Objet requis".
A+
Aloha

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 16 Janvier 2018

• #8

Re

@Aloha
Relis le code du fil que je citais dans mon premier message.
Tu remarqueras que les variables sont déclarés en début de code

NB: Tu as quand même 10 ans d'inscription sur le forum, mon petit bonhomme
Je vais pas tout de réapprendre quand même

Avec un Dim Classeur As Workbook
(comme dans le premier exemple, ça devrait mieux marcher ...)

 

Vote positif 0 Vote négatif

A

Aloha

XLDnaute Accro

• 16 Janvier 2018

• #9

Re,
J'avais mal déclaré la variable; lorsqu'elle est coirrectement déclarée comme String, le code fonctionne! Merci
Bonne soirée
Aloha

P.S.: nos messages se sont croisés
Je suis ici depuis longtemps en effet, avec une longue pause ces dernières années, mais je me suis surtout occupé de solutions avec des formules dans le temps.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 16 Janvier 2018

• #10

Re

N'importe quoi!!
Tel qu'écrit Classeur doit être déclaré as Workbook !!!

VB:

Sub Test()
Dim Classeur As Workbook
Set Classeur=Workbooks.Open(Filename:=strPfad  "\" & Range("K1") & "\" & Range("K1") & " " & intYear & ".xlsx")
'le reste du code de ta macro
Classeur.Close True
End Sub

 

Vote positif 0 Vote négatif

A

Aloha

XLDnaute Accro

• 16 Janvier 2018

• #11

Re,
Ouïïe! Tu as raison, je me suis trompé; je voulais dire le contraire: comme String il ne fonctionnait pas, mais comme Workbook bien.
Merci encore.
Avec ça, un autre petit problème résolu.
Faute de mieux j'avais commencé par ouvrir tous les fichiers à la fois. Comme il y a énormément de formules cela ralentissait davantage encore.
Je continue mon chemin et mon prochain problème n'est sûrement pas loin!
Bonne nuit
Aloha

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 16 Janvier 2018

• #12

Re

@Aloha
Au moins, désormais tu n'auras plus d'excuse.
Car tu vas imprimer et mettre sous verre ceci et l'accrocher au dessus de ton lit

A quoi cela sert-il de proposer des codes si tu les oublies dans la foulée?
(ou si tu ne les étudies pas pour les réutiliser)

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

A

Aloha

XLDnaute Accro

• 17 Janvier 2018

• #13

Re,
Ils sont bien archivés ici et je peux les retrouver à tout instant, et, qui plus est, avec tes commentaires.. Et une partie est intégrée dans mon code.
Bonne nuit
Aloha

 

Vote positif 0 Vote négatif