Msgbox avec une valeur en entrée [Résolu]

mmmxtina 67 Messages postés mardi 26 mai 2009Date d'inscription 9 avril 2013 Dernière intervention - 27 juil. 2009 à 15:09 - Dernière réponse : mmmxtina 67 Messages postés mardi 26 mai 2009Date d'inscription 9 avril 2013 Dernière intervention
- 28 juil. 2009 à 15:20
Bonjour à tous,

Petit soucis:

J'aimerai faire une MsgBox personnalisée où je demande à l'utilisateur d'entrer un nom de fichier (si le fichier est déjà présent dans le répertoire) et quand il appuie sur Ok le programme récupère ce nom, et enregistre le fichier à l'endroit et sous le nom donné par l'utilisateur.
Sauf erreur VBA ne propose pas de msgbox où l'utilisateur, peut entrer une valeur, et on peut récupérer cette valeur en VBA?

Et donc j'ai crée un formulaire tout simple, avec une zone de texte et un bouton OK, et j'ouvre ce formulaire après avoir scanner le dossier.
Le probleme, c'est que j'aimerai stopé le code VBA, et que le code reprenne une fois que l'utilisateur à cliqué sur OK.

voici mon code:
cette fonction cherche dans le répertoire "chemin" si le nom du fichier existe
Public Function VerifExistant(nomFichAs String, chemin As String)
Dim fso As FileSystemObject, dossier As Folder, sousdossier As Folder, fichier As File
Set fso = New FileSystemObject
Set dossier = fso.GetFolder(chemin)
 
 
For Each fichier In dossier.Files
        If (InStr(1, fichier, nomFich, 1) <> 0) Then
            NomsauveStat = True
            DoCmd.OpenForm "Remplacer", acNormal
            Form_Remplacer.TextFichExistant = Replace(nomFich, ".xls", "")
            Exit Function
        End If
    Next
End Function


cette fonction s'execute lorsque l'utilisateur appui sur le formulaire Form_Remplacer:
Private Sub Commande3_Click()
NomsauveStat = False
 
If Len(Form_Remplacer.TextFichExistant) = 0 Then
    MsgBox "Vous devez écrire un nom."
    Exit Sub
End If
If NomsauveStat = True Then
    sauvegardeStat = Form_Remplacer.TextFichExistant.Value
    GoTo saveStat
End If
 
NomsauveStat = False
End Sub

donc le soucis c'est que le code ne sarrete pas, le formulaire Form_Remplacer est ouvert, mais le code continu, donc l'utilisateur ne peut pas changer le nom du fichier du coup!!

help help! jespere que j'ai été assez claire!

merci!!
Afficher la suite 

Votre réponse

3 réponses

Meilleure réponse
cs_DeWaRs 77 Messages postés vendredi 31 décembre 2004Date d'inscription 6 septembre 2010 Dernière intervention - 27 juil. 2009 à 17:22
3
Merci
As-tu essayé avec une InputBox ???

Merci cs_DeWaRs 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 72 internautes ce mois-ci

Commenter la réponse de cs_DeWaRs
jmf0 1566 Messages postés mardi 26 décembre 2000Date d'inscription 5 avril 2013 Dernière intervention - 27 juil. 2009 à 19:08
0
Merci
Bonjour,

Intéresse-toi donc au contrôle CommonDialog ! (à voir dans ton aide en ligne)
Commenter la réponse de jmf0
mmmxtina 67 Messages postés mardi 26 mai 2009Date d'inscription 9 avril 2013 Dernière intervention - 28 juil. 2009 à 15:20
0
Merci
désolée de répondre aussi tard c'est une InputBox qui me fallait:!!!
merci!
Commenter la réponse de mmmxtina

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.