Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Copier la valeur de plusieurs cellules de fichiers fermés dans un autre fichier

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Testeur
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
T

Testeur

XLDnaute Nouveau
Bonjour,

Je cherche à copier la valeur de plusieurs cellules dans des fichiers fermés dans un classeur ouvert. Ces cellules se trouvent au même emplacement dans les différents fichiers.

Les cellules doivent être copiées en ligne dans le fichier "bilan". Au final, les données de chaque fichier source correspondent donc à une ligne du fichier "bilan".

Tous les fichiers se trouvent dans le même répertoire.

J'ai cherché sur internet, mais soit la solution indiquée ne fonctionne pas soit je ne comprends pas les indications.

Merci par avance de votre aide, je suis un newbie en la matière et en plus c'est urgent.
 
Dernière édition:
Trier par date Trier par votes
Re : Copier la valeur de plusieurs cellules de fichiers fermés dans un autre fichier

Je précise qu'avec excel 2013, je peux agréger jusqu'à 20 fichiers, c'est un progrès ! 😀

Mais il est toutefois bien plus lent que Excel 2002 qui a exécuté de façon instantané, la version de 2013 met plus d'une minute à agréger 20 fichiers.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Copier la valeur de plusieurs cellules de fichiers fermés dans un autre fichier

En plus je suis obligé, que ce soit avec la version de 2002 ou de 2013, de rajouter les fichiers au fur et à mesure dans le dossier, si je mets le maximum d'un coup (10 ou 20) ça bloque direct.
 
Vote positif 0 Vote négatif
Re : Copier la valeur de plusieurs cellules de fichiers fermés dans un autre fichier

Re,

Testeur à dit:
En plus je suis obligé, que ce soit avec la version de 2002 ou de 2013, de rajouter les fichiers au fur et à mesure dans le dossier, si je mets le maximum d'un coup (10 ou 20) ça bloque direct.
Cliquez pour agrandir...

Là c'est le pompon, qu'est-ce que c'est que cette histoire ?

Serait-ce dû à l'antivirus ?

A+
 
Vote positif 0 Vote négatif
Re : Copier la valeur de plusieurs cellules de fichiers fermés dans un autre fichier

Non il n'y a bien qu'un seul fichier de synthèse dans le répertoire.
Et j'ai essayé en désactivant l'antivirus, pareil.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Copier la valeur de plusieurs cellules de fichiers fermés dans un autre fichier

Re,

Puisqu'il y a problème sur Excel 2002 et Excel 2013 il devrait exister sur 2003 ou 2010.

Vous pouvez zipper votre dossier qui beugue et me l'envoyer par MP sur cjoint.com

J'ai compris qu'il est confidentiel, je ne le diffuserai pas sur le fil.

A+
 
Vote positif 0 Vote négatif
Re : Copier la valeur de plusieurs cellules de fichiers fermés dans un autre fichier

Super Merci beaucoup, je suis désolé de vous avoir dérangé, j'ai trouvé le blocage, c'était le nom d'un de mes fichiers qui avait une apostrophe ! c'est ce qui bloquait excel !

Merci infiniment pour votre aide

Juste pour mon information, pourriez vous m'expliquez grosso modo le principe des fonctions que vous avez utilisé si je n'abuse pas trop. 🙂

C'est pour que je puisse comprendre et l'adapter à d'autres situations, je constate que vous maîtrisez parfaitement le logiciel.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Copier la valeur de plusieurs cellules de fichiers fermés dans un autre fichier

Je souhaiterais comprendre votre réflexion, le cheminement qui vous a conduit à utiliser telle fonction plutôt qu'une autre, utiliser
 
Vote positif 0 Vote négatif
Re : Copier la valeur de plusieurs cellules de fichiers fermés dans un autre fichier

Re,

Ah oui, une apostrophe dans le nom du fichier je n'y aurais pas pensé 🙄

Il suffit pour la liaison de remplacer l'apostrophe par 2 apostrophes :

Code: 
fichier = Replace(fichier, "'", "''")
La version (2) corrigée :

Code: 
Sub CopierFichiersFermés()
Dim chemin$, w As Worksheet, feuil$, P As Range, ncol As Byte
Dim fichier$, lig&, rest(), col As Byte, c As Range, f$
chemin = ThisWorkbook.Path & "\"
Set w = Feuil2 'CodeName de la feuille Synthèse
feuil = "Tableau-Enquete" 'nom à adapter
Set P = [A26,F26,A30,F30,C40:F42,F45,F46,F51,C54:F94]
ncol = P.Count + 1 '184 colonnes
fichier = Dir(chemin & "*.xls*") '1er fichier du dossier
While fichier <> ""
  If fichier <> ThisWorkbook.Name Then
    lig = lig + 1
    ReDim Preserve rest(1 To ncol, 1 To lig)
    col = 1
    fichier = Replace(fichier, "'", "''")
    For Each c In P
      f = "='" & chemin & "[" & fichier & "]" & feuil & "'!" & c.Address
      rest(col, lig) = f
      col = col + 1
    Next
    rest(col, lig) = Replace(fichier, "''", "'") 'nom du fichier en dernière colonne
  End If
  fichier = Dir 'fichier suivant du dossier
Wend
'---restitution---
If lig Then w.[A2].Resize(lig, ncol) = Application.Transpose(rest)
w.Rows(lig + 2 & ":" & w.Rows.Count).Delete
w.UsedRange = w.UsedRange.Value 'supprime les formules
w.Activate
End Sub
Edit : sur 400 fichiers sources la macro s'exécute en 28 secondes (Excel 2003).

La boucle While/Wend ne prend que 0,8 seconde, c'est la restitution du tableau qui prend du temps.

Le principe de la macro est simple :

- on stocke les formules de liaisons dans un tableau que l'on redimensionne au fur et à mesure

- il faut savoir que seule la 2ème dimension du tableau peut être modifiée, donc il faut un tableau transposé

- à la fin on restitue le tableau (transposé) en bloc dans la feuille, puis on supprime les formules.

Bonne nuit.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Copier la valeur de plusieurs cellules de fichiers fermés dans un autre fichier

Merci,

En fait je dois déjà modifier le programme:

je dois copier les cellules d'une autre façon comme indiqué dans le fichier "bilan" en pièce jointe.

Il faut faire cette copie pour chaque fichier source, donc ça fait 40 lignes par fichier source. Est-il possible de ne copier que les lignes BV remplies ?

Merci par avance
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Copier la valeur de plusieurs cellules de fichiers fermés dans un autre fichier

Bonjour Testeur,

Ce n'est plus le même problème, il sera peut-être plus judicieux d'ouvrir chaque fichier.

Créez donc une nouvelle discussion.

Il faudra y expliquer pourquoi sur les colonnes A à N vous copiez 40 fois la même valeur, car ça paraît très farfelu.

A+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

R
  • Question Question
XL 2010 Copie de plusieurs plages de cellules spécifiques dans le presse-papier
2
Réponses
20
Affichages
476
Dranreb
G
  • Question Question
XL 2010 Copier valeur plusieurs cellules vers plusieurs ZoneTexte vba
Réponses
6
Affichages
225
Gnedea
G
S
  • Question Question
XL 2013 Copier automatiquement des données dans plusieurs onglets
Réponses
4
Affichages
328
Phil69970
  • Question Question
Microsoft 365 Excel : problème de liaison avec un fichier source "Fichier dans un autre domaine"...
Réponses
2
Affichages
385
nightswan
S
  • Résolu(e)
Microsoft 365 VBA Concaténer contenu de plusieurs cellules dans une seule avec séparateurs / évolutifs
Réponses
3
Affichages
304
spike29
S
A
  • Question Question
Microsoft 365 Macro pour recherche de cellules entre 2 fichiers Excel
Réponses
7
Affichages
203
AtTheOne
W
  • Résolu(e)
XL 2019 Somme d'éléments (retours à la ligne) dans un segment, ou plusieurs segments, horizon·tal·aux de cellules
Réponses
2
Affichages
105
Webperegrino
W
Q
  • Question Question
XL 2019 vba pour effacer résultat cellules de plusieurs fichiers a partir d'un fichier distant
Réponses
6
Affichages
264
Phil69970
  • Question Question
Microsoft 365 Remplir cellules à partir de plusieurs fichiers Excel d'un dossier
2
Réponses
17
Affichages
730
alexga78
A
R
  • Question Question
XL 2010 Copie de données de plusieurs feuilles dans une seule
Réponses
5
Affichages
738
Renaud22
R
Z
  • Question Question
XL 2016 Macro pour copier plusieurs cellules vers un fichier :(
Réponses
3
Affichages
418
zendb
Z
P
  • Résolu(e)
XL 2021 Besoin d'aide pour copier/coller données de plusieurs classeurs
2
Réponses
20
Affichages
1 K
Pac41240
P
S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
247
safranien
S
R
  • Question Question
XL 2010 Copier des lignes de données de plusieurs feuilles dans une seule
Réponses
6
Affichages
671
AtTheOne
F
  • Question Question
Autres Récupération de données d'une feuille X en fonction de la valeur de cellule dans une collone d'une feuille Y
2
Réponses
27
Affichages
950
fanfan38
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
285
JJ69
J
S
  • Résolu(e)
XL 2016 copier des données d'une feuille à une autre selon critères et protection de la feuille 1
Réponses
6
Affichages
627
steph_29120
S
  • Question Question
Microsoft 365 Conserver la valeur de ma variable pour l'utiliser dans un autre code
Réponses
3
Affichages
413
mapomme
L
  • Question Question
Microsoft 365 Effectué une recherche dans plusieurs fichiers
2 3
Réponses
42
Affichages
4 K
job75
N
  • Question Question
XL 2016 Récupération de lignes dans un autre fichier excel
Réponses
4
Affichages
420
ninieg
N
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…