[EXCEL] Insérer contenu d'une feuille dans un autre fichier

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [EXCEL] Insérer contenu d'une feuille dans un autre fichier

kikidonc

:hello:

J'ai aucune compétence en VBA

J'ai 15 fichiers excels, je voudrais faire 1 fichier excel qui les affiche chacun dans 1 feuille (de manière a ne pas avoir a ouvrir les 15 fichiers)

J'arrive a insérer le contenu des cellules en faisant insérant la formule : ='D:\Fichier1.xls]Feuille1!A1, mais ca ne récupère pas le format de la cellule (couleur surtout)

Je pense qu'il doit pas être dur d'éditer la feuille excel et de lui dire d'aller chercher le contenu dans un autre fichier ? (sans devoir l'ouvrir)

Ou solution B, me dire comment on récupère le format d'une autre cellule

Merci à celui qui a une piste :jap:

Publicité

jpcheck

Pioupiou

le macro recorder doit pouvoir t'aider a faire cela.
essaie de faire ce que tu veux en enregistrant, et on décortiquera le code fourni.

kikidonc

Je sais pas trop me servir des macros mais ca a l'air efficace

Donc j'ai à peu prêt réussi à faire ce que je voulais :

Code :

Sub Macro()
Range("A1" ).Select
ActiveCell.FormulaR1C1 = "='[Fichier2.xls]Feuille1'!RC"
Range("A1" ).Select
Selection.Copy
Range("A2:A1000" ).Select
ActiveSheet.Paste
Columns("A:A" ).Select
Application.CutCopyMode = False
Selection.Copy
Columns("B:E" ).Select
ActiveSheet.Paste
Windows("Fichier2.xls" ).Activate
Columns("A:E" ).Select
Application.CutCopyMode = False
Selection.Copy
Windows("Fichier1.xls" ).Activate
Range("A1" ).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

Ca a l'air de marcher, par contre, quand je lance la macro sans ouvrir le Fichier2.xls, j'ai une erreur :
Erreur d'exécution '9':
L'indice n'appartient pas à la sélection

J'ai pas trop envie de rajouter une ouverture/fermeture du fichier

jpcheck

Pioupiou

Le code qui t'intéresse en définitive c'est ca:

Code :

Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

On partirait sur la solution B ^^

Après, il faut travailler sur "a quoi correspond ta sélection ?"

kikidonc

Ca fonctionne lorsque j'ouvre le fichier, c'est presque ce que je voulais

Par contre, les données sont enregistrée dans mon fichier, il n'y a pas moyen de faire une sorte d' "include", où toutes les données ne serait jamais écrites en dur dans le fichier qui les appelle ?

kikidonc

En fait non, c'est bon, je m'en sors en supprimant des champs, ca devient moins lourd.

Par contre il y a quelque chose que je ne sais pas faire :

J'insère les données des cellules de A1 à A1000, mais comme il ya des cellules à l'origine qui sont vides, dans ma destination j'ai : des 0 ou des dates 0/0/1900

Comment faire sauter les cellules vides ?

jpcheck

Pioupiou

tu fais ton collage standard puis tu fais une boucle de test si .value = 0 alors tu fais un .delete

kikidonc

Ok merci pour les tuyaux :hello:

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[EXCEL] Insérer contenu d'une feuille dans un autre fichier

Sujets relatifs
VBA Excel Impression sur critères	[PHP] Upload par fichier le retour !
Requete UPDATE et parcourt de fichier	probleme fichier téléchargé avec telechargement forcé de php
[Excel] mettre à jour un classement	[Collections]Collection intermédiaire pour stocker dans un fichier
C++ comment ouvrir et lire un fichier sur serveur distant ?	excel VBA : gestion des ";" lors d'un saveAS texte(DOS)
[PHP] comment faire un éditeur de feuille de style	[Macro Excel] Sauvegarder une sélection en fichier plat
Plus de sujets relatifs à : [EXCEL] Insérer contenu d'une feuille dans un autre fichier

Page générée en 0.035 secondes