Bonjour forum,
Dans un USF j'ai le code suivant pour copier un feuil "Masque" et renommer l'onglet en fonction du nom de cellule "C5" vers un classeur avec ouverture/écriture/sauvegarde/fermeture je voudrais intégrer un code pour vérifier si cette feuil existe si c'est le cas (Msgbox info) et la renommer le cas échéant dans mon USF et re valider
J’ai essayé d'intégrer différents code sans résultats.
merci pour votre aide
phil
Dans un USF j'ai le code suivant pour copier un feuil "Masque" et renommer l'onglet en fonction du nom de cellule "C5" vers un classeur avec ouverture/écriture/sauvegarde/fermeture je voudrais intégrer un code pour vérifier si cette feuil existe si c'est le cas (Msgbox info) et la renommer le cas échéant dans mon USF et re valider
J’ai essayé d'intégrer différents code sans résultats.
merci pour votre aide
phil
Code:
Private Sub Valider_Click()
Dim wkB As Workbook
Dim ctl As Object
If MSL.Value = True Then
On Error Resume Next
[COLOR="Green"]'Ouvrir le classeur MSL.xls[/COLOR]
Set wkB = Workbooks.Open(ThisWorkbook.Path & "\MSL.xls")
If err > 0 Then
MsgBox "Une erreur c'est produite lors de l'ouverture du classeur MSL", n, "Copier la feuille vers MSL.xls"
Exit Sub
End If
[COLOR="Green"]'Copier la feuille dans classeur MSL.xls[/COLOR]
ThisWorkbook.Sheets("Masque").Copy After:=wkB.Sheets(Sheets.Count)
[COLOR="green"]'Changer le nom de la feuille créée[/COLOR]
ActiveSheet.Name = ThisWorkbook.Sheets("Masque").Range("C5")
[COLOR="green"]'Détruire les éventuels objets shapes de la feuille[/COLOR]
For Each ctl In ActiveSheet.Shapes
ctl.Delete
Next
wkB.Save 'Sauvegarde
wkB.Close 'Fermeture
Else
...........