Discussion :

[NEC14]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Bonjour

J'imagine que tu as une erreur ici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SilkyRoad]

bonsoir

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

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

Philippe

[NEC14]

bonsoir

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Godzestla]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[NEC14]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Godzestla]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[NEC14]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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, . D'où l'avantage d'utiliser Filedialog qui ne lui permettra pas de saisir un mauvais nom.

[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