VBA- Feuille renommée liée au code automatiquement Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
C
Cobzy
Jeune membre
Jeune membre
Messages : 18
Inscrit le : 27 janvier 2020
Version d'Excel : 2016 FR

Message par Cobzy » 21 février 2020, 12:04

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
Avatar du membre
LouReeD
Contributeur
Contributeur
Messages : 6'675
Appréciations reçues : 322
Inscrit le : 14 octobre 2014
Version d'Excel : 2013 FR, 2016 FR
Contact :
Téléchargements : Mes applications

Message par LouReeD » 21 février 2020, 17:31

Bonsoir,

si le code est présent sur la feuille et s'il doit être exécuté sur cette même feuille, il suffit de remplacer Sheets("S01") par :
ActiveSheet.

@ bientôt

LouReeD
Quelques règles à lire ICI ;;)
______________________________________________________Vous pouvez allez faire un tour sur : Index de "Mes applications" ;;)
C
Cobzy
Jeune membre
Jeune membre
Messages : 18
Inscrit le : 27 janvier 2020
Version d'Excel : 2016 FR

Message par Cobzy » 24 février 2020, 08:34

Super merci

je vais revoir mes classiques de VBA ...

Bonne journée

Cobzy
Avatar du membre
LouReeD
Contributeur
Contributeur
Messages : 6'675
Appréciations reçues : 322
Inscrit le : 14 octobre 2014
Version d'Excel : 2013 FR, 2016 FR
Contact :
Téléchargements : Mes applications

Message par LouReeD » 24 février 2020, 11:13

Bonjour

Ravi que cela vous convienne ! :o

@ bientôt

LouReeD
Quelques règles à lire ICI ;;)
______________________________________________________Vous pouvez allez faire un tour sur : Index de "Mes applications" ;;)
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message