Bonjour,
J'ai ici un VBA qui copie/colle entre 2 documents (Mon planning de production d'un jour vers un fiché que mon équipe suit.)
Qui fonctionne parfaitement.
Mon problème est que je veux créé des nouvelles feuilles de planning organiser à la semaine "S01", " S02" ... "S52" (nom de feuille) donc je copie/colle la feuille S01 puis renommée en S02
Mais mon VBA du S02 copiait en même temps que la feuille fonction toujours avec S01
Comment faire pour que le nom de ma feuille soit liée à mon code Vba automatiquement ?
Private Sub CommandButton1_Click()
Dim SourceFile As String, ThisFile As String, ShtToCopy As String
Dim Ws As Workbook, wf As Workbook
Dim validation As Byte
validation = MsgBox("Voulez vous définir le planning du Lundi en planning du jour ?", vbYesNo + vbInformation, "Validation")
If validation = vbYes Then
SourceFile = Dir("Q:\...")
ThisFile = Dir("Q:\...")
' Parti a modif
ShtToCopy = "S01"
Windows(ThisFile).Activate
Sheets("S01").Select
Sheets("S01").Range("A5:H100").Select
'Parti a modif
Selection.Copy
Windows(SourceFile).Activate
Sheets("Production").Activate
Sheets("Production").Range("K4").Select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
End Sub
Merci de votre précieuse aide comme toujours !
Bonne journée et bonne appétit