Re : Recherche du dernier Nom
Bonjour,
Sub copie_cp()
réponse = ""
For Each sht In ActiveWorkbook.Sheets
If sht.Name = nm Then
réponse = MsgBox("Cette feuille existe, voulez-vous écraser son contenu ?", vbYesNo)
If réponse = 7 Then Sheets("FSCP").Activate: Exit Sub
If réponse = 6 Then GoTo copie
End If
Next
ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = nm
copie:
Sheets(nm).Visible = True
Sheets("CP").Select
Cells.Select
Selection.Copy
Sheets(nm).Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("A1").Select
If réponse = 6 Then GoTo exitimage
pos_img
Sheets("FSCP").Activate
exitimage:
Sheets(nm).Visible = False
End Sub
j'ai testé la procédure du post#92 résultat non satisfaisante
Quel est le format de ton fichier logo?
a+