Macro excel vba et copier coller entre classeur

Michel_m

Oui chaque ligne du classeur mère aurait 5 colonnes remplies.

Il n'y a qu'une seule feuille dans les classeurs sources et mère

Les colonnes dans le classeur mère sont jointives.

La copie de A2 se trouve sur la cellule B2 du classeur mère,
La copie de A4 se trouve sur la cellule B3,
La copie de A6 se trouve sur la cellule B4,
La copie de A8 se trouve sur la cellule B5,
La copie de A10 se trouve sur la cellule B6.

Les classeurs cibles ont ce nom générique : "FO (X)" avec X allant de 1 à 50 minimum (le nombre n'est pas déterminé mais peut se limiter à 50).

S'il manque des informations je peux vous les fournir sans problème.

Oui seuls des valeurs son ciblées

Toutes les données sont en feuille 1

Les tableurs sources sont en .xlsx et le tableur mère en .xlsm ;)

Re Michel !

Merci pour ce nouveau code !

Je l'ai intégré à visual basic en remplacant le chemin (à savoir pour moi : "C:\essai_copie") dans lequel sont présent mes fichiers xlsx.

L'exécution de la macro ne remplis rien dans le fichier mère ou la macro est implantée...

Y a t'il un autre élément à modifier ?

n'aurais tu pas oublier l'antislash car chez moi ca marche (enfin!)


"C:\essai_copie\"

Les données copiées seront des textes ;)

D'accord, à demain, je resterai disponible: )

Bonne soirée

Bonjour Michel,

Excuse l'incruste, mais je crois que tu as fait l'inverse de ce que demandais FixiF :
- Copier le contenu de 5 cellules (A2, A4, A6, A8, A10) sur 50 tableurs excels de structure identiques localisés dans un dossier source.

- Coller ces contenus de cellule dans un tableur excel mère avec 1 ligne pour chaque tableur source.
Les 5 cellules à copier sont dans les 50 classeurs, et ,il veut les coller dans un classeur "récap".
Ce qui t'as induit en erreur c'est ceci :

La copie de A2 se trouve sur la cellule B2 du classeur mère,
La copie de A4 se trouve sur la cellule B3,
La copie de A6 se trouve sur la cellule B4,
La copie de A8 se trouve sur la cellule B5,
La copie de A10 se trouve sur la cellule B6.

qu'il faut comprendre comme ceci, je pense :
La copie de A2 se trouve sur la cellule Bi du classeur mère,
La copie de A4 se trouve sur la cellule Ci,
La copie de A6 se trouve sur la cellule Di,
La copie de A8 se trouve sur la cellule Ei,
La copie de A10 se trouve sur la cellule Fi.
ou i est le numéro de la dernière ligne du classeur "mère" (récap)

Si c'est le cas, et que je ne me goure pas, ce genre de code devrait convenir :
!!!Adapter les 3 constantes avec les noms des feuilles

Option Explicit

Const NomFeuilFichiers As String = "Feuil1" 'le nom commun à l'unique feuille des xxx fichiers
Const NomFeuilTemp As String = "Feuil2" 'le nom d'une autre feuille, vierge, du fichier mère
Const NomFeuilRecap As String = "Feuil1" 'le nom de la feuille du fichier mère qui accueille les données

Sub Import()
Dim objShell As Object, objFolder As Object
Dim Chemin As String, fichier As String

   Set objShell = CreateObject("Shell.Application")
   Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&)
   
   If objFolder Is Nothing Then
      MsgBox "Abandon opérateur", vbCritical, "Annulation"
   Else
      Chemin = objFolder.ParentFolder.ParseName(objFolder.Title).Path & "\"
      fichier = Dir(Chemin & "*.xlsx")
      Do While Len(fichier) > 0
         If fichier <> ThisWorkbook.Name Then
            ThisWorkbook.Names.Add "Plage", RefersTo:="='" & Chemin & "[" & fichier & "]" & NomFeuilFichiers & "'!$A$2:$A$10"
            With Sheets(NomFeuilTemp)
               .[A2:A10] = "=Plage"
               .Range("A2,A4,A6,A8,A10").Copy
               Sheets(NomFeuilRecap).Range("B" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
            End With
         End If
         fichier = Dir()
      Loop
      ThisWorkbook.Names("Plage").Delete
   End If
End Sub

Bonjour,

Désolé pour ma réponse tardive...

Je vais intégrer le code pour tester !

Mais oui en effet comme dit pikaju les 5 cellules à copier sont dans les 50 classeurs sources, et l'idée est de les coller dans le classeur mère (ou "récap").

Est ce qu'on s'est mal compris ?

Re-bonjour !

Tout d'abord merci pour votre aide :)

j'ai donc testé les deux codes sources:

Le premier ne semble rien donner, l'implémentation de données dans le classeur mère ne s'effectue pas mais aucun message d'erreur.

Pijaku j'ai ensuite essayé ton code qui, une fois le dossier sélectionné, m'a écrit dans 5 colonnes sur une ligne "=page"

La partie du code :

With Sheets(NomFeuilTemp)
.[A2:A10] = "=Plage"

est elle à modifier ?

merci de votre aide :)