Modification fichier

Bonjour

Je souhaiterai modifier le fichier ci-joint.

Nous avons 4 formulaires sur lequel on retrouve un bouton qui permet d'imprimer le rapport et effacer l'ensemble des données :

- formulaire de saisi impression de l'onglet rapport

- formulaire pieuvre impression de l'onglet rapport pieuvre

- formulaire valise impression de l'onglet rapport valise

- formulaire shunt impression de l'onglet rapport shunt

Actuellement cela fonctionne nickel pour le formulaire de saisi je voudrais faire la même chose avec des dossiers de destination différents:

- formulaire de saisi dossier traction

- formulaire pieuvre dossier pieuvre

- formulaire valise dossier valise

- formulaire shunt dossier shunt.

Est'il possible aussi de modifier l'intitulé des onglets formulaire de saisi en formulaire sertissage et l'onglet rapport en rapport sertissage

J'ai essayé mais je n'ai pas réussi

Cordialement

Bonjour Corbin2

As tu essayé de renommer en 2 phases :

1 - supprimer les espaces dans les noms de feuilles

Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Sheets
       ' "formulaire de ..." devient "formulaire_de_...        ws.Name = Replace(ws.Name, " ", "_")

2 - renommer ensuite avec "nom de feuille contenant des soulignés" vers "nom nouveaux noms de feuilles sans espaces incluant le mot sertissage"

    Dim strShtOld()
    Dim strShtNew()
    Dim sht As Worksheet
    Dim lngSht As Long
    strShtNew = Array("formulaire_sertissage", "rapport_sertissage")
    strShtOld = Array("formulaire_de_saisi", "rapport")
    On Error Resume Next
    For lngSht = LBound(strShtOld) To UBound(strShtOld)
        Set ws = Nothing
        Set ws = Sheets(strShtOld(lngSht))
       If Instr(1, Lcase(ws.Name) ,strShtOld(lngSht)) = 1 Then
        If Not ws Is Nothing Then ws.Name = strShtNew(lngSht)
      End If
    Next lngSht

Nickel je te remercie