Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
2215 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Macro Copie données de feuilles excel dupliquées

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Macro Copie données de feuilles excel dupliquées

n°2300238
barrym78
Posté le 05-05-2017 à 10:25:00  profilanswer
 

Bonjour à tous,
 
Je dispose d'une macro qui me permet de copier les données d'un fichier Excel (A) vers un tableau du fichier Excel (B).
 
Je traite des affaires concernant des bâtiments allant du R+1 au R+3.  
 
Dans mon fichier Excel (A), j'ai une feuille nommée "RDC" que je duplique en fonction du nombre de niveau que possède le bâtiment pour ensuite renommer ces feuilles (R+1, R+2, R+3).
 
L'emplacement des données du fichier Excel (A) que je veux récupérer ne change pas, uniquement les valeurs de celles-ci.
 
Dans mon fichier Excel (B) j'ai ainsi créé 4 tableaux, un pour chaque niveau du bâtiment y compris le RDC.
 
Ce que je veux, c'est créer une macro qui lorsqu'on la lance :
 
- Me demande de choisir le fichier Excel (A) à l'aide d'une fenêtre
- Me demande à l'aide d'une boite de dialogue de choisir la feuille à copier (RDC, R+1 ....)
- Copie les données du fichiers Excel (A) vers le tableau du fichier Excel (B)
 
L'idée que j'avais en tête était de mettre 1 bouton lançant la macro à coté de chaque tableau car l'emplacement des données du fichier (A) ne change pas (uniquement le nom de la feuille) tandis que l'emplacement où doit être copiées les données dans le fichier Excel (B) change
 
Ainsi lorsque par exemple mon bâtiment ne comportera qu'un niveau d'étage, j'aurai juste à cacher les tableaux et boutons du R+2 et R+3 (en utilisant la fonction "Grouper" d'Excel) et à imprimer le fichier une fois rempli.
 
 

Code :
  1. Sub Copier_GOST()
  2. Dim Fichier As String
  3. Dim nom_onglet_source As String, nom_onglet_dest As String
  4. 'Acceleration du traitement des données
  5. Application.ScreenUpdating = False
  6. 'Ouverture fenêtre de selection du fichier d'entrée
  7. Fichier = Application.GetOpenFilename
  8. Workbooks.Open Filename:=Fichier
  9. 'Suppression du chemin
  10. Fichier = Dir(Fichier)
  11. 'Copie des données générales de l'onglet "Fond" vers l'onglet "DS"
  12. nom_onglet_source = "Fond"
  13. nom_onglet_dest = "DS"
  14.    
  15.     'Copie données fondations
  16.        
  17.         With ThisWorkbook.Sheets(nom_onglet_dest)
  18.        
  19.             .Range("Taux_travail_sol" ).Value = Workbooks(Fichier).Sheets(nom_onglet_source).Cells(665, 13).Value
  20.             .Range("Type_fondations" ).Value = Workbooks(Fichier).Sheets(nom_onglet_source).Cells(665, 11).Value
  21.             .Range("Type_plancher_bas" ).Value = Workbooks(Fichier).Sheets(nom_onglet_source).Cells(665, 10).Value
  22.         End With
  23. 'Copie des données générales de l'onglet "Infra" vers l'onglet "DS"
  24. nom_onglet_source = "Infra"
  25. nom_onglet_dest = "DS"
  26.     'Copie données temps unitaires
  27.        
  28.          With ThisWorkbook.Sheets(nom_onglet_dest)
  29.        
  30.             .Range("TU_coffrage_voile_infra" ).Value = Workbooks(Fichier).Sheets(nom_onglet_source).Range("TU_cof_voile" ).Value
  31.             .Range("TU_coffrage_doka_infra" ).Value = Workbooks(Fichier).Sheets(nom_onglet_source).Range("TU_cof_doka" ).Value
  32.             .Range("TU_finitions_infra" ).Value = Workbooks(Fichier).Sheets(nom_onglet_source).Range("TU_finitions" ).Value
  33.            
  34.          End With
  35.     'Copie données hauteurs de voile
  36.    
  37.         With ThisWorkbook.Sheets(nom_onglet_dest)
  38.        
  39.             .Range("Hauteur_voile_min_infra" ).Value = Workbooks(Fichier).Sheets(nom_onglet_source).Cells(665, 13).Value
  40.             .Range("Hauteur_voile_max_infra" ).Value = Workbooks(Fichier).Sheets(nom_onglet_source).Cells(665, 11).Value
  41.             .Range("Hauteur_voile_ref_infra" ).Value = Workbooks(Fichier).Sheets(nom_onglet_source).Cells(665, 10).Value
  42.            
  43.          End With
  44.    
  45. 'Fermeture du classeur source
  46. Workbooks(Fichier).Close False
  47. 'Confirmation de l'exportation
  48. MsgBox "Chargement des données réussi"
  49. End Sub


 
Pour le moment je ne sais pas vraiment comment modifier ma macro. Pouvez-vous me guider dans ma démarche?
 
Je vous remercie d'avance  :wahoo:

mood
Publicité
Posté le 05-05-2017 à 10:25:00  profilanswer
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Macro Copie données de feuilles excel dupliquées

 

Sujets relatifs
acquisition de données et traitement de résultatConstructeur de copie Liste chainée C++
Une simple question sur les bases de données (Débutant)Automatisation de bases de données
Export Excel=> TXT avec suppression doublonExtraction de données de logs dans un répertoire vers Excel
[RESOLU] Données dans un ifEnregistrer les données contenues dans un formulaire excel (textbox) v
Plus de sujets relatifs à : Macro Copie données de feuilles excel dupliquées



Copyright © 1997-2016 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR