Discussion :

[Al Core]

Bonjour,

j'ai créé une macro ci dessous pour copier des cellules (C6:C10) d'un onglet "Synthèse" d'une feuille "KPI_Modèle S32" en (AG24:AG29) de l'onglet "production endoQMSM "d'une feuille "KPI 2024 Essais de labo"

Sub CopierCollerCellules()
' Définir les variables pour les classeurs et les feuilles
Dim wbSource As Workbook
Dim wsSource As Worksheet
Dim wbCible As Workbook
Dim wsCible As Worksheet
Dim rangeSource As Range
Dim rangeCible As Range


' Ajustez les chemins des fichiers selon vos besoins
Set wbSource = Workbooks("KPI_Modèle S32.xlsm")
Set wsSource = wbSource.Sheets("Synthèse")
Set wbCible = Workbooks("KPI 2024 Essais de labo.xlsm")
Set wsCible = wbCible.Sheets("production endoQMSM ")

' Définir la plage de cellules à copier et la destination
Set rangeSource = wsSource.Range("C6:C11")
Set rangeCible = wsCible.Range("AG24:AG29")

' Copier les cellules
rangeSource.Copy
rangeCible.PasteSpecial Paste:=xlPasteValues

' Fermer le presse-papiers
Application.CutCopyMode = False

End Sub

La feuille "KPI_Modèle Sxx" est généré chaque semaine (ou xx est remplacé par le numéro de la semaine). J'aimerais donc que pour la semaine suivante (S33) les données soit copiées en AH24:AH29, en S34 en AI24:AI29,..... et ainsi de suite. Malheureusement, je n'arrive pas à trouver la macro à utiliser. Pouvez vous m'aider

Merci à vous

Philippe

[Nain porte koi]

Hello,

pas testé mais ça devrait faire le job

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub CopierCollerCellules()
' Définir les variables pour les classeurs et les feuilles
Dim wbSource As Workbook
Dim wsSource As Worksheet
Dim wbCible As Workbook
Dim wsCible As Worksheet
Dim rangeSource As Range
Dim rangeCible As Range
 
Dim Num_Semaine As Byte
Num_Semaine = Application.IsoWeekNum(Date)
 
' Ajustez les chemins des fichiers selon vos besoins
'Set wbSource = Workbooks("KPI_Modèle S32.xlsm")
Set wbSource = Workbooks("KPI_Modèle S" & Num_Semaine & ".xlsm")
Set wsSource = wbSource.Sheets("Synthèse")
Set wbCible = Workbooks("KPI 2024 Essais de labo.xlsm")
Set wsCible = wbCible.Sheets("production endoQMSM ")
 
' Définir la plage de cellules à copier et la destination
Set rangeSource = wsSource.Range("C6:C11")
'Set rangeCible = wsCible.Range("AG24:AG29")
Set rangeCible = wsCible.Range(Cells(29, Num_Semaine + 1))
 
' Copier les cellules
rangeSource.Copy
rangeCible.PasteSpecial Paste:=xlPasteValues
 
' Fermer le presse-papiers
Application.CutCopyMode = False
 
End Sub