Private Sub CommandButton1_Click()
On Error GoTo gesterreur
Dim nomfic As String [COLOR=Red][B]' remplace ceci par: [COLOR=Black]Dim nomfic As variant[/COLOR][/B][/COLOR]
Application.ActiveSheet.Copy
With ActiveSheet
.Cells.Select
End With
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveSheet.Shapes("CommandButton1").Delete
nomfic = ""
Do
If nomfic = "" Then
nomfic = Application.InputBox("Sous quel nom souhaitez vous enregistrer le fichier ? (chemin complet, le repertoire doit exister)" _
& Chr(13) & Chr(10) & "Cliquez sur Annuler pour ne pas l'enregistrer")
Else: If nomfic = "Faux"[COLOR=Red][B]'ici, remplace par :[/B][/COLOR] [B]FALSE[/B] Then GoTo gesterreur Else GoTo suite
End If: '
Loop
suite:
ActiveWorkbook.SaveAs Filename:=nomfic, FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
MsgBox "Le fichier esr enregistre sous le nom : " & nomfic
Exit Sub
gesterreur:
If Err.Number = 1004 Then MsgBox "Fichier Non Enregistre ": ActiveWorkbook.Saved = True: ActiveWorkbook.Close
End Sub