paul25 | 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 |
