alfazoulou
XLDnaute Occasionnel
Bonjour le forum,
mon problème est le suivant:
Je voudrais faire utiliser un imputbox tant que la valeur saisie ne correspond pas au nom d'un fichier archivé.
Dans mon exemple ci dessous, l'imputbox sert à changer le nom du fichier parce que celui ci a déja fait l'objet d'une vérification antérieure, donc appel de l'imputbox pour changer le nom.
mais comment faire pour que celui ci ne se ferme pas tant que le fichier existe.
Private Sub CommandButton1_Click()
[nom_devis] = [nom_archive_devis]
[nom_devis] = TextBox1.Value
Dim Nom As String
Nom = Range("nom_archive_devis").Value
Dim Chr As String 'déclare la variable
Chr = [nom_archive_devis]
Dim toto As String 'déclare la variable
toto = [année_date]
Dim Nomfichier As String
Nomfichier = [nom_devis]
Application.ScreenUpdating = False
Vérification de l'existance du fichier dans le répertoire
Dim fso As Object, x As Boolean
Set fso = CreateObject("Scripting.FileSystemObject")
x = fso.FileExists("F:\Maconnerie générale\devis factures\devis\" & toto & "\" & Nomfichier & ".xls")
If x = False Then
Me.Hide
Else
Si le fichier existe déjà
Dim ValDef As String
ValDef = [nom_archive_devis].Value
Dim Message, Title, Default, MyValue
Message = "Ce fichier existe déjà, veuillez saisir un autre nom"
Title = "Nom de fichier"
Default = ValDef
MyValue = InputBox(Message, Title, Default)
[nom_devis].Value = MyValue
End If
End Sub
Merci d'avance
mon problème est le suivant:
Je voudrais faire utiliser un imputbox tant que la valeur saisie ne correspond pas au nom d'un fichier archivé.
Dans mon exemple ci dessous, l'imputbox sert à changer le nom du fichier parce que celui ci a déja fait l'objet d'une vérification antérieure, donc appel de l'imputbox pour changer le nom.
mais comment faire pour que celui ci ne se ferme pas tant que le fichier existe.
Private Sub CommandButton1_Click()
[nom_devis] = [nom_archive_devis]
[nom_devis] = TextBox1.Value
Dim Nom As String
Nom = Range("nom_archive_devis").Value
Dim Chr As String 'déclare la variable
Chr = [nom_archive_devis]
Dim toto As String 'déclare la variable
toto = [année_date]
Dim Nomfichier As String
Nomfichier = [nom_devis]
Application.ScreenUpdating = False
Vérification de l'existance du fichier dans le répertoire
Dim fso As Object, x As Boolean
Set fso = CreateObject("Scripting.FileSystemObject")
x = fso.FileExists("F:\Maconnerie générale\devis factures\devis\" & toto & "\" & Nomfichier & ".xls")
If x = False Then
Me.Hide
Else
Si le fichier existe déjà
Dim ValDef As String
ValDef = [nom_archive_devis].Value
Dim Message, Title, Default, MyValue
Message = "Ce fichier existe déjà, veuillez saisir un autre nom"
Title = "Nom de fichier"
Default = ValDef
MyValue = InputBox(Message, Title, Default)
[nom_devis].Value = MyValue
End If
End Sub
Merci d'avance