Coller des données en fonction N°sem

Marsh Posté le 14-05-2014 à 10:59:00

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 :

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

Merci

Marsh Posté le 14-05-2014 à 10:59:00

Marsh Posté le 14-05-2014 à 14:10:09

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

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *