Comment travailler dans un autre fichier excel sans l’afficher ?

[jojo2006]

Bonjour à tous,

Je vous explique mon souci, j’ai fait une macro qui

copie les données d’une feuille du fichier ouvert disons fichierA
ouvre un fichier B
copie les données du fichier A vers B
sauvegarde B et ferme B
et reviens sur le fichier A


Bon le souci c’est que mon fichier A peut changer de nom et ma macro utilise pour faire simple la syntaxe suivante :

Cells.Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A1").Select
Windows("fichierA.xls").Activate
Selection.Copy
Windows("fichierB.xls").Activate
Cells.Select
ActiveSheet.Paste



Comment puis faire pour que le fichier B ne s’affiche jamais à l’écran et que la syntaxe
Windows("fichierA.xls").Activate soit variable (je veux dire si fichierA se nomme toto) que la macro fonctionne quand même ?

Je sais que ActiveWorkbook.Visible = False existe mais comme mon fichier change de nom ….
ARf …. Je bloque un peu


Je ne sais pas si ma problématqiue est claire ?

Je vous remercie d’avance pour vos idées et suggestions

Bon week end

 

[Dranreb]

Re : Comment travailler dans un autre fichier excel sans l’afficher ?

Bonjour,

Déclarez : Dim WB as workbook
en début : Set WB = ActiveWorkbook
et vous pourrez utiliser votre WB pour le réactiver.
Pour que le deuxième fichier ne soit jamais affiché il suffirait de mettre Application.ScreenUpdating = False avant de l'ouvrir et de le fermer avant la fin de la macro.

Cordialement.

 

[jojo2006]

Re : Comment travailler dans un autre fichier excel sans l’afficher ?

Bonjour,

merci beaucoup pour la réponse rapide.
Ca fonctionne !!

 

[Hippolite]

Re : Comment travailler dans un autre fichier excel sans l’afficher ?

Bonjour à tous,
Pour info, si ça t'intéressse :
Lire et écrire dans les classeurs Excel fermés
Il y a toutefois quelques restrictions à prendre en compte.
A+

 

[Lone-wolf]

Re : Comment travailler dans un autre fichier excel sans l’afficher ?

Bonsoir Hippolite,

Merci pour le lien, très interéssant.



A+ 😎