Je sais pas comment faire

Question

Bonjour j'ai fait ce code la qui permet d'afficher feuille et disparaitre une autre mais la feuille ne disparaitre pas
voila le code que j'ai utilisé , la partie rouge ou j'ai le probléme

Private Sub CommandValid_Click()
Dim nomDemandeur As String
Dim dateDemande As Date
Dim filiere As String
Dim annee As Integer

' Récupérer les données saisies dans la UserForm
nomDemandeur = TextBoxNom.Value
dateDemande = TextBoxDate.Value ' Assurez-vous que la date est au bon format
filiere = TextBoxFiliere.Value
annee = CInt(TextBoxAnnee.Value) ' Assurez-vous que l'année est un nombre entier

Dim feuilleCorrespondante As Worksheet
Dim feuilleAcceuil As Worksheet
Dim ws As Worksheet

' Parcourir toutes les feuilles du classeur
For Each ws In ThisWorkbook.Sheets
' Vérifier si le nom de la feuille correspond à la filière choisie
If ws.Name = filiere Then
Set feuilleCorrespondante = ws
Exit For ' Sortir de la boucle dès qu'une correspondance est trouvée
End If
Next ws

' Vérifier si la feuille correspondante a été trouvée
If feuilleCorrespondante Is Nothing Then
MsgBox "Feuille correspondante introuvable pour la filière " & filiere
Exit Sub
End If

' Rendre la feuille d'accueil invisible
Set feuilleAcceuil = ThisWorkbook.Sheets("Acceuil")
feuilleAcceuil.Visible = xlSheetHidden

' Copier les données dans la feuille correspondante
With feuilleCorrespondante
.Range("C7").Value = nomDemandeur
.Range("C8").Value = dateDemande
.Range("C9").Value = filiere
.Range("E7").Value = annee
End With

' Rendre la feuille sélectionnée visible et l'activer
feuilleCorrespondante.Visible = xlSheetVisible
feuilleCorrespondante.Activate

' Fermer la UserForm une fois que le traitement est terminé
Unload Me
End Sub

Merci infiniment ,

Joco7915 · Accepted Answer

Set feuilleAcceuil = ThisWorkbook.Sheets("Acceuil") a remplacer par ("Accueil") feuilleAcceuil.Visible = xlSheetHidden Idem ici feuilleAccueil Si cela te convient passe le sujet en résolu Crdlt...

galopin01 · Answer

Pour commencer veuillez lire ici : Charte du forum et informations utiles (en particulier les points 3 et 4) Pour plus de lisibilité, utilisez le bouton pour insérer vos codes VBA et vos formules Excel. Cordialement A+...