Ajouter un bouton annuler à une InputBox

Version imprimable

Bonjour,

Ce code me permet d'ouvrir une ImputBox d'y saisir du texte afin de créer une sauvegarde sous un autre nom. Mais voilà, je n'ai pas la possiblité d'annuler l'affichage en cas d'erreur. Comment dois-je procéder ?
Merci par avance
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub CommandButton10_Click() Dim vNom As String vNom = Trim(InputBox("Nom du fichier")) ActiveWorkbook.SaveAs Filename:=vNom & Sheets("Accueil").Range("A1").Value + 1 For N = 1 To 52 Sheets("S" & N).Visible = True Next N Sheets("Accueil").Visible = True Sheets("Accueil").Activate Range("A1").Select End Sub

06/03/2009, 16h07
Invité

Bonjour

J'imagine que tu as une erreur ici :

Code:

vNom = Trim(InputBox("Nom du fichier"))

Si c'est le cas, déclares vNom en Variant au lieu de String, et fais un test sur la nullité de cette variable avec la fonction IsNull.

Philippe

bonsoir

Utilise la méthode InputBox pour bénéficier du bouton Annuler :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Test_V04()
    Dim Donnee As Variant
 
    Donnee = Application.InputBox("Saisissez une valeur:", "Le titre")
 
   'Intercepte l'utilisation du bouton "Annuler" et la croix de fermeture.
   If VarType(Donnee) = vbBoolean Then
        MsgBox " opération annulée"
        Exit Sub
    End If
 
    MsgBox Donnee
End Sub

Quelle est la différence entre InputBox et Application.InputBox ?

bon week end
michel

06/03/2009, 19h00
Invité

:king:

Je ne fais pas assez d'Excel :?, comme je passes toujours par des UserForm.

Philippe

Citation:
Envoyé par SilkyRoad
bonsoir

Utilise la méthode InputBox pour bénéficier du bouton Annuler :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub Test_V04() Dim Donnee As Variant Donnee = Application.InputBox("Saisissez une valeur:", "Le titre") 'Intercepte l'utilisation du bouton "Annuler" et la croix de fermeture. If VarType(Donnee) = vbBoolean Then MsgBox " opération annulée" Exit Sub End If MsgBox Donnee End Sub
Quelle est la différence entre InputBox et Application.InputBox ?

bon week end
michel
Bonjour SilkyRoad,

Est-ce que ton code remplace le mien ou vient en complément ?
Merci

09/03/2009, 11h35
Godzestla

Bonjour,
il me semble qu'il vient à la place de ceci :

Code:

vNom = Trim(InputBox("Nom du fichier"))

Voici le code au complet. Par contre je voudrais que le disque de sauvegarde soit le C\: par défaut, où dois-je le mettre ?
J'ai essayé quelque chose mais ça beug de partout alors je l'ai retirer. (ce qu'il y a en violet)
Merci par avance pour votre aide
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Private Sub CommandButton10_Click() Dim donnee As Variant donnee = Application.InputBox("Saisissez le nom du fichier:", "Enregistrement de l'application") If VarType(donnee) = vbBoolean Then MsgBox "Opération annulée" Exit Sub End If MsgBox donnee ActiveWorkbook.SaveAs Filename:= (C\: &) donnee & Sheets("Accueil").Range("A1").Value + 1 For N = 1 To 52 Sheets("S" & N).Visible = False Next N Sheets("Accueil").Visible = True Sheets("Accueil").Activate End Sub

09/03/2009, 12h51
Godzestla

Alors, tu devrais plutot utiliser les méthodes standard de Excel et te servir de

Code:

Application.Filedialog(msoFileDialogSaveAs )

Regarde dans l'aide en ligne.

je crois qu'en utilisant CHDRIVE & CHDIR avant tu peux te positionner où tu veux avant.

Voici mon code et il fonctionne. Qu'en pensez-vous ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Private Sub CommandButton10_Click()
Dim donnee As Variant
Dim vChem As String
    vChem = "C:\Documents and Settings\CLAS\"
    donnee = Application.InputBox("Saisissez le nom du fichier:", "Enregistrement de l'application")
    If VarType(donnee) = vbBoolean Then
    MsgBox "Opération annulée"
    Exit Sub
    End If
    MsgBox donnee
ActiveWorkbook.SaveAs Filename:=vChem & donnee & Sheets("Accueil").Range("A1").Value + 1
For N = 1 To 52
    Sheets("S" & N).Visible = False
Next N
Sheets("Accueil").Visible = True
Sheets("Accueil").Activate
End Sub

09/03/2009, 13h27
Godzestla

Re,
j'en pense différentes choses :
1) s'il fonctionne tant mieux. ;)
2) je ne comprends pas pourquoi tu caches tes feuilles APRES le saveas.
3) si l'utilisateur choisit un nom qui n'est pas supporté par l'OS, :aie:. D'où l'avantage d'utiliser Filedialog qui ne lui permettra pas de saisir un mauvais nom.
09/03/2009, 15h21
NEC14

Moi non plus je ne sais pas pourquoi j'ai fait ça. De plus cela ne sert à rien.
Je vais supprimer cette ligne.
Merci pour ton éclairage