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

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

Staple1600

XLDnaute Barbatruc
Bonjour Pierre

Je ne suis pas encore au bureau.
Il y a de fortes chances qu'on se recroise sur XLD
(Ça fait presque quinze ans que j'y traîne mes guêtres, donc statistiquement...)

Content pour toi, si mon aide t'a été profitable
 

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

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…