enregistrer

Pierrot93

XLDnaute Barbatruc

• 19 Mars 2010

• #2

Re : enregistrer

Bonjour JeanMc

regarde le code ci-dessous si il peut t'aider :

Code:

On Error Resume Next
ThisWorkbook.SaveAs "classeur1.xls"
If Err Then
    MsgBox "enregistrement annulé, fin de procédure..."
    Exit Sub
End If
On Error GoTo 0

bonne fin d'après midi
@+

 

Vote positif 0 Vote négatif

H

Habitude

XLDnaute Accro

• 19 Mars 2010

• #3

Re : enregistrer

le code continu même si tu répond non
Sauf qu'il tente un enregistrement vide

Valide donc avec

If not IsEmpty(nom fichier) then

endif

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 19 Mars 2010

• #4

Re : enregistrer

Re, bonjour Habitude

Perso, vois mal ton code fonctionner en l'état....

Code:

If not IsEmpty(nom fichier) then

endif

@+

 

Vote positif 0 Vote négatif

J

JeanMc

Guest

• 22 Mars 2010

• #5

Re : enregistrer

Bonjour,

La solution de Pierrot fonctionne très bien.

Merci de votre aide.

Salutations!!

 

Vote positif 0 Vote négatif