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

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Coller des données en fonction N°sem

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Coller des données en fonction N°sem

n°2227950
paul25
Posté le 14-05-2014 à 10:59:00  profilanswer
 

Bonjour à tous,
 
J'ai un pgm vba qui me permet d'aller chercher des infos dans un fichier excel et de les coller dans un autre.
Je voudrais que se programme ne me colle que les infos correspondant au n°de semaine rentré dans l'inputbox au tout début de mon pgm car, pour le moment il me colle tout...
 
Quelqu'un aurait une idée?
 
Voici le pgm:

Code :
  1. Sub Dechet_Finition_Hebdo()
  2. 'Identification des chemins et des fichiers
  3.     Dim Chemin As String
  4.     Dim Fichier As String
  5.     Dim Semaine As Long
  6.    
  7.     Chemin = "X:\30_QUALITE\307_Gestion_de_service\AAAA-Main-Courante-Atelier"
  8.    
  9. 'demande à l'utilisateur le numéro de semaine, semaine en cours par défaut
  10.     Semaine = InputBox("N° de la semaine", "SEMAINE", DatePart("ww", Date, vbMonday) - 1)
  11.     Fichier = "MC_Shootage.xlsm" '" & Semaine & "
  12. 'Transfert des données
  13.     ChDir Chemin
  14. 'ouverture du fichier en lecture seule
  15.     Workbooks.Open Filename:=Chemin & "\" & Fichier, UpdateLinks:=0, ReadOnly:=True
  16.    
  17. 'recopie l'onglet Synthese dans le fichier destination MC_Commun2.xlsm"
  18.     'Sheets("Synthese" ).Copy Before:=Workbooks("MC_commun2.xlsm" ).Sheets("Donnees" )
  19.      Workbooks("MC_commun2.xlsm" ).Worksheets("Donnees" ).Cells.ClearContents
  20.      Workbooks("MC_Shootage.xlsm" ).Worksheets("Synthese" ).Cells.Copy _
  21.      Workbooks("MC_commun2.xlsm" ).Worksheets("Donnees" ).Range("A1" )
  22.  
  23. 'fermeture du fichier source
  24.     Workbooks(Fichier).Close SaveChanges:=False
  25. End Sub


 
Merci

mood
Publicité
Posté le 14-05-2014 à 10:59:00  profilanswer
 

n°2227990
Marc L
Posté le 14-05-2014 à 14:10:09  profilanswer
 

 
           Bonjour,
 
           regarder du côté d'un filtre ou d'un filtre avancé par exemple …
 
           Comme il y a toujours un sujet en cours sur l'autre forum, je n'entrerai pas dans les détails sur celui-ci !


Message édité par Marc L le 14-05-2014 à 14:10:29

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

  Coller des données en fonction N°sem

 

Sujets relatifs
[RESOLU] Débutant - Tri de donnéesBase de données ou fichier de données ?
base de données d'utilisateurs pour assurer la sécurité du service.PETITE DEMANDE : comment récupérer des données XML dans un flash
Extraction données via scriptExcel : Alimenter une colonne en fonction de deux critères
problème pour inserer des données dans une table à partir d'un JframeComment afficher un résultat en fonction du choix de l'utilisateur
Modification des données via formulaireFonction include pour un fichier html
Plus de sujets relatifs à : Coller des données en fonction N°sem


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR