Opier les données de 3 feuilles dans un autre fichier

Constantin

XLDnaute Occasionnel
Supporter XLD
Bonjour,
Je dispose de deux fichiers qui sont tous les deux ouverts. Le premier reçoit des informations et les trois dernières feuilles synthétisent ces informations.
Les valeurs contenues dans les trois derniers onglets sont copiées dans le deuxième fichier.
J’ai fait des petites macros de copie pour chacun des trois derniers onglets qui copient les valeurs vers chaque feuille du deuxième fichier. Je suis donc obligé de recommencer cette opération 3 fois.
Serait-il possible de ne réaliser qu’une macro qui effectue ces trois copies de valeurs en même temps et qui effectue les copies dans des cellules prédéfinies de chacun des trois feuilles du fichier destinataire.
J’ai réalisé un exemple raccourci de mon problème au moyen de deux fichiers :
Données Essai.xlsm (fichier source)
ExportEssai.xlsx (fichier destinataire)
Je ne sais si quelqu’un pourra m’aider, mais j’en serai ravi.
Mille mercis d’avance !
 

Pièces jointes

  • Données Essai.xlsm
    22.3 KB · Affichages: 9
  • ExportEssai.xlsx
    9.9 KB · Affichages: 5
Solution
Re

La précédente macro n'était qu'un exemple.
Une "accroche" pour que le demandeur mette les mains dans le cambouis ;)
Et finisse par exemple à écrire ceci dans son VBE ;)
Code:
Sub Test_II()
Dim Wbk As Workbook
Dim F, D, Pg, i%
F = Array("Données1", "Données2", "Données3")
D = Array("Export1", "Export2", "Export3")
Pg = Array("B5:B10", "A7:D9", "B7:C9")
On Error Resume Next
Set Wbk = Application.Workbooks("ExportEssai.xlsx")
If Wbk Is Nothing Then
MsgBox "Le classeur ExportEssai n'est pas ouvert!", vbCritical, "Erreur"
Else
MsgBox "Le classeur ExportEssai est ouvert", vbInformation
For i = LBound(F) To UBound(F)
Workbooks("ExportEssai.xlsx").Sheets(D(i)).Range(Pg(i)).Value = Sheets(F(i)).Range(Pg(i)).Value
Next
End If
End Sub

Constantin

XLDnaute Occasionnel
Supporter XLD
Bonjour JM,
J'ai encore une requête. J'ai beau chercher, ça plante et je ne comprends pas pourquoi.
Dans le fichier joint, j'ai une macro sensées lancer un tri sur la colonne F (masquée) pour afficher les valeurs "x". En même temps, je veux masquer les colonnes C et D. J'ai réalisé cette macro avec l'enregistreur. Quand on la lance, tout se masque. Je ne comprends pas pourquoi. Est-ce du à la cellule fusionnée (commentaire) que je ne peux pas supprimer.

Si tu as une idée...

Bonne journée !

Pierre
 

Pièces jointes

  • Essai_Masque.xlsm
    19.5 KB · Affichages: 5

Discussions similaires

Statistiques des forums

Discussions
312 115
Messages
2 085 455
Membres
102 891
dernier inscrit
cocowild