Transfert de feuilles entre deux instances Excel

[GeoTrouvePas]

Bonjour le forum,

Je viens de créer une petite procédure pour transférer "discrètement" une feuille d'un classeur à un autre.

Afin que cela soit invisible pour l'utilisateur, je crée une nouvelle instance Excel invisible dans laquelle j'ouvre le fichier source.

Or je viens de me rendre compte qu'il n'est pas possible de transférer une feuille entre deux instances par la méthode .Copy.

Auriez vous une idée pour contourner cette limitation tout en gardant le côté discret de la manip.

Voici le petit code que j'ai élaboré :

Sub ImporterSauvegarde(FichierdeSauvegarde As String)
    InstanceSauvegarde As Excel.Application
    ClasseurSource As Workbook
    FeuilleACopier As Worksheet
    
    Set InstanceSauvegarde = CreateObject("Excel.Application")
    InstanceSauvegarde.Visible = False
    Set ClasseurSource = InstanceSauvegarde.Workbooks.Open(FichierdeSauvegarde)
    Set FeuilleACopier = ClasseurSource.Sheets("Feuil1")
    
    FeuilleACopier.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
End Sub

Edit : Question subsidiaire : j'ai également un problème lorsque deux versions d'excel sont installées sur le pc. Comment faire :

Set InstanceSauvegarde = CreateObject("Excel.Application")

en précisant quelle version d'excel je veux que ça ouvre ?

Merci d'avance à tous et bonne journée

 

[noviceAG]

Re : Transfert de feuilles entre deux instances Excel

Bonjour GeoTrouvePas, le Forum,
Peut-être ceci ????
Comment copier et coller des feuilles de calcul entre les classeurs Excel?

 

[GeoTrouvePas]

Re : Transfert de feuilles entre deux instances Excel

Oui j'avais effectivement pensé à un système de copier coller tout bête mais j'ai oublié de dire le plus important : mes cellules sont nommées et je ne dois pas perdre ces noms. Or le copier coller ne garde pas le nom des plages.

 

[kjin]

Re : Transfert de feuilles entre deux instances Excel

Bonjour,
Comprends pas....

Dim ws As Worksheet, wb As Workbook
Set ws = ActiveSheet
Application.ScreenUpdating = False
FichierdeSauvegarde = "X:\xxx.xls"
Set wb = Workbooks.Open(FichierdeSauvegarde)
t = Timer
wb.Sheets("Feuil1").Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
wb.Close False
ws.Activate
t = Timer - t
Application.ScreenUpdating = True
MsgBox t

....chez moi : 0,0425 seconde...!
A+
kjin

 

[GeoTrouvePas]

Re : Transfert de feuilles entre deux instances Excel

Il est là le soucis kjin :

....chez moi : 0,0425 seconde...!

Traduction : vu la lenteur du réseau de ma boîte (en général tu double clic sur le fichier le lundi et tu repasses le vendredi pour voir si c'est ouvert...) et le grand nombre de feuilles que je dois importer (je n'ai mis qu'un extrait de l'énorme boucle que j'ai du faire), cette macro est très longue a exécuter et ouvre un grand nombre de fichiers.

Du coup j'aurai voulu masquer l'opération pour faire un peu plus "propre".

Mais bon, tant pis, je me suis assez compliqué la vie jusqu'à maintenant. ^^

En tout cas merci de m'avoir éclairé.

Bonne fin de journée

 

[kjin]

Re : Transfert de feuilles entre deux instances Excel

Re,
D'où l'intérêt de poser précisemment le pb...
Dans ces conditions, je vois mal le coté discret...
A+
kjin

 

[Guest]

Re : Transfert de feuilles entre deux instances Excel

Bonjour GeoTrouvePas,
Kjin🙂

grand nombre de feuilles que je dois importer

Idée:

Si elle viennent toutes du même classeur peut-être serait-il plus rapide de faire une copie de ce dernier avec un nouveau nom et d'en supprimer les feuilles en trop.

A+

 

[GeoTrouvePas]

Re : Transfert de feuilles entre deux instances Excel

Désolé Hasco, je n'avais pas vu ta réponse.
J'ai pensé procéder comme ça mais, là où mon réseau pêche, c'est dans l'enregistrement des fichiers. Mes fichiers d'origine étant relativement conséquents, en enregistrer une copie pour en supprimer une partie ne serait pas vraiment viable.

Tant pis, quand on a un matos pourri, on se débrouille ! ^^

J'ai finalement opté pour la méthode "classique" d'export de feuilles, tant pis si ça reste visible pour l'utilisateur, au moins ça n'est pas trop lent.

Bonne journée.