Salut tout le monde,
Je suis en train de créer un dot qui sera utilisé par plusieurs
départements
différents. Les utilisateurs devront inscrire le nom de leur département
dans
une txtbox (tbox.dept). J'aimerais leur simplifier la vie et qu'ils
n'aient
pas à le saisir chaque fois mais que le code aille chercher cette
information
qlqpart sur le DD. Autrement dit, il faudrait :
1- à l'ouverture du document, vérifier dans "C:donnees" (par exemple)
s'il
existe déjà un fichier "departement" (je ne sais pas sous quelle forme...)
2- si oui -> récupérer l'information et l'afficher dans tbox.dept
(l'utilisateur n'a plus besoin de le taper)
3- si non -> afficher la userform et enregister la valeur de tbox.dept
lors
de la sortie de la userform (par un clic sur un bouton "Continuer") dans
un
fichier "departement" dans C:Donnees afin qu'il soit disponible pour la
prochaine fois.
Simple... non !?!?!? Yaka !! Donc si quelqu'un a une idée, ça
m'intéresse.
Merci d'avance
--
Céd / Lausanne
Salut tout le monde,
Je suis en train de créer un dot qui sera utilisé par plusieurs
départements
différents. Les utilisateurs devront inscrire le nom de leur département
dans
une txtbox (tbox.dept). J'aimerais leur simplifier la vie et qu'ils
n'aient
pas à le saisir chaque fois mais que le code aille chercher cette
information
qlqpart sur le DD. Autrement dit, il faudrait :
1- à l'ouverture du document, vérifier dans "C:donnees" (par exemple)
s'il
existe déjà un fichier "departement" (je ne sais pas sous quelle forme...)
2- si oui -> récupérer l'information et l'afficher dans tbox.dept
(l'utilisateur n'a plus besoin de le taper)
3- si non -> afficher la userform et enregister la valeur de tbox.dept
lors
de la sortie de la userform (par un clic sur un bouton "Continuer") dans
un
fichier "departement" dans C:Donnees afin qu'il soit disponible pour la
prochaine fois.
Simple... non !?!?!? Yaka !! Donc si quelqu'un a une idée, ça
m'intéresse.
Merci d'avance
--
Céd / Lausanne
Salut tout le monde,
Je suis en train de créer un dot qui sera utilisé par plusieurs
départements
différents. Les utilisateurs devront inscrire le nom de leur département
dans
une txtbox (tbox.dept). J'aimerais leur simplifier la vie et qu'ils
n'aient
pas à le saisir chaque fois mais que le code aille chercher cette
information
qlqpart sur le DD. Autrement dit, il faudrait :
1- à l'ouverture du document, vérifier dans "C:donnees" (par exemple)
s'il
existe déjà un fichier "departement" (je ne sais pas sous quelle forme...)
2- si oui -> récupérer l'information et l'afficher dans tbox.dept
(l'utilisateur n'a plus besoin de le taper)
3- si non -> afficher la userform et enregister la valeur de tbox.dept
lors
de la sortie de la userform (par un clic sur un bouton "Continuer") dans
un
fichier "departement" dans C:Donnees afin qu'il soit disponible pour la
prochaine fois.
Simple... non !?!?!? Yaka !! Donc si quelqu'un a une idée, ça
m'intéresse.
Merci d'avance
--
Céd / Lausanne
Bonsoir,
Un point de départ peut être ? Regarde ce que tu peux faire avec.
A mettre dans le module de la Form et à adapter selon tes envies (exemple
très simple) :
'-------------------------------------------------------------------------
Private Sub CmdContinuer_Click()
Open "C:CodeDept.dep" For Output As #1
Print #1, TxtDept.Text
Close #1
Unload Me
End Sub
Private Sub TxtDept_Change()
If TxtDept.Text <> "" Then
CmdContinuer.Enabled = True
Else
CmdContinuer.Enabled = False
End If
End Sub
Private Sub UserForm_Initialize()
CmdContinuer.Enabled = False
End Sub
'-------------------------------------------------------------------------
A mettre dans le module du document et à adapter :
'-------------------------------------------------------------------------
Private Sub Document_New()
'voir ici si contrôle nécessaire
'du type de département ???
If lireDept("C:CodeDept.dep") = "ERREUR" Then
UserForm1.Show
Else
Exit Sub
End If
End Sub
Function lireDept(Fichier As String) As String
Dim Ligne As String
On Error GoTo Fin
Open Fichier For Input As #1
Do While Not EOF(1)
Line Input #1, Ligne
Loop
Close #1
lireDept = Ligne
Exit Function
Fin:
lireDept = "ERREUR"
End Function
'--------------------------------------------------------------------------
Hervé.
"Congelator" <congelator(a_effacer)@hotmail.com> a écrit dans le message de
news:
> Salut tout le monde,
> Je suis en train de créer un dot qui sera utilisé par plusieurs
> départements
> différents. Les utilisateurs devront inscrire le nom de leur département
> dans
> une txtbox (tbox.dept). J'aimerais leur simplifier la vie et qu'ils
> n'aient
> pas à le saisir chaque fois mais que le code aille chercher cette
> information
> qlqpart sur le DD. Autrement dit, il faudrait :
> 1- à l'ouverture du document, vérifier dans "C:donnees" (par exemple)
> s'il
> existe déjà un fichier "departement" (je ne sais pas sous quelle forme...)
> 2- si oui -> récupérer l'information et l'afficher dans tbox.dept
> (l'utilisateur n'a plus besoin de le taper)
> 3- si non -> afficher la userform et enregister la valeur de tbox.dept
> lors
> de la sortie de la userform (par un clic sur un bouton "Continuer") dans
> un
> fichier "departement" dans C:Donnees afin qu'il soit disponible pour la
> prochaine fois.
>
> Simple... non !?!?!? Yaka !! Donc si quelqu'un a une idée, ça
> m'intéresse.
> Merci d'avance
>
> --
> Céd / Lausanne
Bonsoir,
Un point de départ peut être ? Regarde ce que tu peux faire avec.
A mettre dans le module de la Form et à adapter selon tes envies (exemple
très simple) :
'-------------------------------------------------------------------------
Private Sub CmdContinuer_Click()
Open "C:CodeDept.dep" For Output As #1
Print #1, TxtDept.Text
Close #1
Unload Me
End Sub
Private Sub TxtDept_Change()
If TxtDept.Text <> "" Then
CmdContinuer.Enabled = True
Else
CmdContinuer.Enabled = False
End If
End Sub
Private Sub UserForm_Initialize()
CmdContinuer.Enabled = False
End Sub
'-------------------------------------------------------------------------
A mettre dans le module du document et à adapter :
'-------------------------------------------------------------------------
Private Sub Document_New()
'voir ici si contrôle nécessaire
'du type de département ???
If lireDept("C:CodeDept.dep") = "ERREUR" Then
UserForm1.Show
Else
Exit Sub
End If
End Sub
Function lireDept(Fichier As String) As String
Dim Ligne As String
On Error GoTo Fin
Open Fichier For Input As #1
Do While Not EOF(1)
Line Input #1, Ligne
Loop
Close #1
lireDept = Ligne
Exit Function
Fin:
lireDept = "ERREUR"
End Function
'--------------------------------------------------------------------------
Hervé.
"Congelator" <congelator(a_effacer)@hotmail.com> a écrit dans le message de
news: E66131D9-894A-44C8-BCBF-0D664DFA0AD6@microsoft.com...
> Salut tout le monde,
> Je suis en train de créer un dot qui sera utilisé par plusieurs
> départements
> différents. Les utilisateurs devront inscrire le nom de leur département
> dans
> une txtbox (tbox.dept). J'aimerais leur simplifier la vie et qu'ils
> n'aient
> pas à le saisir chaque fois mais que le code aille chercher cette
> information
> qlqpart sur le DD. Autrement dit, il faudrait :
> 1- à l'ouverture du document, vérifier dans "C:donnees" (par exemple)
> s'il
> existe déjà un fichier "departement" (je ne sais pas sous quelle forme...)
> 2- si oui -> récupérer l'information et l'afficher dans tbox.dept
> (l'utilisateur n'a plus besoin de le taper)
> 3- si non -> afficher la userform et enregister la valeur de tbox.dept
> lors
> de la sortie de la userform (par un clic sur un bouton "Continuer") dans
> un
> fichier "departement" dans C:Donnees afin qu'il soit disponible pour la
> prochaine fois.
>
> Simple... non !?!?!? Yaka !! Donc si quelqu'un a une idée, ça
> m'intéresse.
> Merci d'avance
>
> --
> Céd / Lausanne
Bonsoir,
Un point de départ peut être ? Regarde ce que tu peux faire avec.
A mettre dans le module de la Form et à adapter selon tes envies (exemple
très simple) :
'-------------------------------------------------------------------------
Private Sub CmdContinuer_Click()
Open "C:CodeDept.dep" For Output As #1
Print #1, TxtDept.Text
Close #1
Unload Me
End Sub
Private Sub TxtDept_Change()
If TxtDept.Text <> "" Then
CmdContinuer.Enabled = True
Else
CmdContinuer.Enabled = False
End If
End Sub
Private Sub UserForm_Initialize()
CmdContinuer.Enabled = False
End Sub
'-------------------------------------------------------------------------
A mettre dans le module du document et à adapter :
'-------------------------------------------------------------------------
Private Sub Document_New()
'voir ici si contrôle nécessaire
'du type de département ???
If lireDept("C:CodeDept.dep") = "ERREUR" Then
UserForm1.Show
Else
Exit Sub
End If
End Sub
Function lireDept(Fichier As String) As String
Dim Ligne As String
On Error GoTo Fin
Open Fichier For Input As #1
Do While Not EOF(1)
Line Input #1, Ligne
Loop
Close #1
lireDept = Ligne
Exit Function
Fin:
lireDept = "ERREUR"
End Function
'--------------------------------------------------------------------------
Hervé.
"Congelator" <congelator(a_effacer)@hotmail.com> a écrit dans le message de
news:
> Salut tout le monde,
> Je suis en train de créer un dot qui sera utilisé par plusieurs
> départements
> différents. Les utilisateurs devront inscrire le nom de leur département
> dans
> une txtbox (tbox.dept). J'aimerais leur simplifier la vie et qu'ils
> n'aient
> pas à le saisir chaque fois mais que le code aille chercher cette
> information
> qlqpart sur le DD. Autrement dit, il faudrait :
> 1- à l'ouverture du document, vérifier dans "C:donnees" (par exemple)
> s'il
> existe déjà un fichier "departement" (je ne sais pas sous quelle forme...)
> 2- si oui -> récupérer l'information et l'afficher dans tbox.dept
> (l'utilisateur n'a plus besoin de le taper)
> 3- si non -> afficher la userform et enregister la valeur de tbox.dept
> lors
> de la sortie de la userform (par un clic sur un bouton "Continuer") dans
> un
> fichier "departement" dans C:Donnees afin qu'il soit disponible pour la
> prochaine fois.
>
> Simple... non !?!?!? Yaka !! Donc si quelqu'un a une idée, ça
> m'intéresse.
> Merci d'avance
>
> --
> Céd / Lausanne
Salut Hervé,
Merci pour le coup de main. Avec ton code
Open "C:CodeDept.txt" For Output As #1
Print #1, frm_entree.TextBox1.Text
Close #1
Unload Me
j'ai déjà réussi à aller inscrire la valeur de la txtbox dans un fichier.
Maintenant, je n'arrive pas à faire faire l'inverse, c-a-d qu'à
l'ouverture
de mon document, si ce fichier existe, que cette valeur soit directement
insérée dans cette même txtbox et s'il n'existe pas, alors on laisse le
champ
blanc et l'utilisateur l'inséère lui-même (je suis pince en VBA...).
Est-ce
que tu pourrais m'aider encore une fois ?
Merci d'avance
--
Céd / Lausanne
"Hervé" a écrit :Bonsoir,
Un point de départ peut être ? Regarde ce que tu peux faire avec.
A mettre dans le module de la Form et à adapter selon tes envies (exemple
très simple) :
'-------------------------------------------------------------------------
Private Sub CmdContinuer_Click()
Open "C:CodeDept.dep" For Output As #1
Print #1, TxtDept.Text
Close #1
Unload Me
End Sub
Private Sub TxtDept_Change()
If TxtDept.Text <> "" Then
CmdContinuer.Enabled = True
Else
CmdContinuer.Enabled = False
End If
End Sub
Private Sub UserForm_Initialize()
CmdContinuer.Enabled = False
End Sub
'-------------------------------------------------------------------------
A mettre dans le module du document et à adapter :
'-------------------------------------------------------------------------
Private Sub Document_New()
'voir ici si contrôle nécessaire
'du type de département ???
If lireDept("C:CodeDept.dep") = "ERREUR" Then
UserForm1.Show
Else
Exit Sub
End If
End Sub
Function lireDept(Fichier As String) As String
Dim Ligne As String
On Error GoTo Fin
Open Fichier For Input As #1
Do While Not EOF(1)
Line Input #1, Ligne
Loop
Close #1
lireDept = Ligne
Exit Function
Fin:
lireDept = "ERREUR"
End Function
'--------------------------------------------------------------------------
Hervé.
"Congelator" <congelator(a_effacer)@hotmail.com> a écrit dans le message
de
news:
> Salut tout le monde,
> Je suis en train de créer un dot qui sera utilisé par plusieurs
> départements
> différents. Les utilisateurs devront inscrire le nom de leur
> département
> dans
> une txtbox (tbox.dept). J'aimerais leur simplifier la vie et qu'ils
> n'aient
> pas à le saisir chaque fois mais que le code aille chercher cette
> information
> qlqpart sur le DD. Autrement dit, il faudrait :
> 1- à l'ouverture du document, vérifier dans "C:donnees" (par exemple)
> s'il
> existe déjà un fichier "departement" (je ne sais pas sous quelle
> forme...)
> 2- si oui -> récupérer l'information et l'afficher dans tbox.dept
> (l'utilisateur n'a plus besoin de le taper)
> 3- si non -> afficher la userform et enregister la valeur de tbox.dept
> lors
> de la sortie de la userform (par un clic sur un bouton "Continuer")
> dans
> un
> fichier "departement" dans C:Donnees afin qu'il soit disponible pour
> la
> prochaine fois.
>
> Simple... non !?!?!? Yaka !! Donc si quelqu'un a une idée, ça
> m'intéresse.
> Merci d'avance
>
> --
> Céd / Lausanne
Salut Hervé,
Merci pour le coup de main. Avec ton code
Open "C:CodeDept.txt" For Output As #1
Print #1, frm_entree.TextBox1.Text
Close #1
Unload Me
j'ai déjà réussi à aller inscrire la valeur de la txtbox dans un fichier.
Maintenant, je n'arrive pas à faire faire l'inverse, c-a-d qu'à
l'ouverture
de mon document, si ce fichier existe, que cette valeur soit directement
insérée dans cette même txtbox et s'il n'existe pas, alors on laisse le
champ
blanc et l'utilisateur l'inséère lui-même (je suis pince en VBA...).
Est-ce
que tu pourrais m'aider encore une fois ?
Merci d'avance
--
Céd / Lausanne
"Hervé" a écrit :
Bonsoir,
Un point de départ peut être ? Regarde ce que tu peux faire avec.
A mettre dans le module de la Form et à adapter selon tes envies (exemple
très simple) :
'-------------------------------------------------------------------------
Private Sub CmdContinuer_Click()
Open "C:CodeDept.dep" For Output As #1
Print #1, TxtDept.Text
Close #1
Unload Me
End Sub
Private Sub TxtDept_Change()
If TxtDept.Text <> "" Then
CmdContinuer.Enabled = True
Else
CmdContinuer.Enabled = False
End If
End Sub
Private Sub UserForm_Initialize()
CmdContinuer.Enabled = False
End Sub
'-------------------------------------------------------------------------
A mettre dans le module du document et à adapter :
'-------------------------------------------------------------------------
Private Sub Document_New()
'voir ici si contrôle nécessaire
'du type de département ???
If lireDept("C:CodeDept.dep") = "ERREUR" Then
UserForm1.Show
Else
Exit Sub
End If
End Sub
Function lireDept(Fichier As String) As String
Dim Ligne As String
On Error GoTo Fin
Open Fichier For Input As #1
Do While Not EOF(1)
Line Input #1, Ligne
Loop
Close #1
lireDept = Ligne
Exit Function
Fin:
lireDept = "ERREUR"
End Function
'--------------------------------------------------------------------------
Hervé.
"Congelator" <congelator(a_effacer)@hotmail.com> a écrit dans le message
de
news: E66131D9-894A-44C8-BCBF-0D664DFA0AD6@microsoft.com...
> Salut tout le monde,
> Je suis en train de créer un dot qui sera utilisé par plusieurs
> départements
> différents. Les utilisateurs devront inscrire le nom de leur
> département
> dans
> une txtbox (tbox.dept). J'aimerais leur simplifier la vie et qu'ils
> n'aient
> pas à le saisir chaque fois mais que le code aille chercher cette
> information
> qlqpart sur le DD. Autrement dit, il faudrait :
> 1- à l'ouverture du document, vérifier dans "C:donnees" (par exemple)
> s'il
> existe déjà un fichier "departement" (je ne sais pas sous quelle
> forme...)
> 2- si oui -> récupérer l'information et l'afficher dans tbox.dept
> (l'utilisateur n'a plus besoin de le taper)
> 3- si non -> afficher la userform et enregister la valeur de tbox.dept
> lors
> de la sortie de la userform (par un clic sur un bouton "Continuer")
> dans
> un
> fichier "departement" dans C:Donnees afin qu'il soit disponible pour
> la
> prochaine fois.
>
> Simple... non !?!?!? Yaka !! Donc si quelqu'un a une idée, ça
> m'intéresse.
> Merci d'avance
>
> --
> Céd / Lausanne
Salut Hervé,
Merci pour le coup de main. Avec ton code
Open "C:CodeDept.txt" For Output As #1
Print #1, frm_entree.TextBox1.Text
Close #1
Unload Me
j'ai déjà réussi à aller inscrire la valeur de la txtbox dans un fichier.
Maintenant, je n'arrive pas à faire faire l'inverse, c-a-d qu'à
l'ouverture
de mon document, si ce fichier existe, que cette valeur soit directement
insérée dans cette même txtbox et s'il n'existe pas, alors on laisse le
champ
blanc et l'utilisateur l'inséère lui-même (je suis pince en VBA...).
Est-ce
que tu pourrais m'aider encore une fois ?
Merci d'avance
--
Céd / Lausanne
"Hervé" a écrit :Bonsoir,
Un point de départ peut être ? Regarde ce que tu peux faire avec.
A mettre dans le module de la Form et à adapter selon tes envies (exemple
très simple) :
'-------------------------------------------------------------------------
Private Sub CmdContinuer_Click()
Open "C:CodeDept.dep" For Output As #1
Print #1, TxtDept.Text
Close #1
Unload Me
End Sub
Private Sub TxtDept_Change()
If TxtDept.Text <> "" Then
CmdContinuer.Enabled = True
Else
CmdContinuer.Enabled = False
End If
End Sub
Private Sub UserForm_Initialize()
CmdContinuer.Enabled = False
End Sub
'-------------------------------------------------------------------------
A mettre dans le module du document et à adapter :
'-------------------------------------------------------------------------
Private Sub Document_New()
'voir ici si contrôle nécessaire
'du type de département ???
If lireDept("C:CodeDept.dep") = "ERREUR" Then
UserForm1.Show
Else
Exit Sub
End If
End Sub
Function lireDept(Fichier As String) As String
Dim Ligne As String
On Error GoTo Fin
Open Fichier For Input As #1
Do While Not EOF(1)
Line Input #1, Ligne
Loop
Close #1
lireDept = Ligne
Exit Function
Fin:
lireDept = "ERREUR"
End Function
'--------------------------------------------------------------------------
Hervé.
"Congelator" <congelator(a_effacer)@hotmail.com> a écrit dans le message
de
news:
> Salut tout le monde,
> Je suis en train de créer un dot qui sera utilisé par plusieurs
> départements
> différents. Les utilisateurs devront inscrire le nom de leur
> département
> dans
> une txtbox (tbox.dept). J'aimerais leur simplifier la vie et qu'ils
> n'aient
> pas à le saisir chaque fois mais que le code aille chercher cette
> information
> qlqpart sur le DD. Autrement dit, il faudrait :
> 1- à l'ouverture du document, vérifier dans "C:donnees" (par exemple)
> s'il
> existe déjà un fichier "departement" (je ne sais pas sous quelle
> forme...)
> 2- si oui -> récupérer l'information et l'afficher dans tbox.dept
> (l'utilisateur n'a plus besoin de le taper)
> 3- si non -> afficher la userform et enregister la valeur de tbox.dept
> lors
> de la sortie de la userform (par un clic sur un bouton "Continuer")
> dans
> un
> fichier "departement" dans C:Donnees afin qu'il soit disponible pour
> la
> prochaine fois.
>
> Simple... non !?!?!? Yaka !! Donc si quelqu'un a une idée, ça
> m'intéresse.
> Merci d'avance
>
> --
> Céd / Lausanne
Bonsoir,
En fait tu veux ouvrir de toutes façons la Form, fichier texte existant ou
pas (j'avais mal compris :o(( ).
Remplace le code de la proc "Document_New" par celui-ci :
Private Sub Document_New()
UserForm1.Show
If lireDept("C:CodeDept.dep") <> "ERREUR" Then
UserForm1.TxtDept.Text = lireDept
CmdContinuer.Enabled = True
End If
End Sub
Hervé.
"Congelator" <congelator(a_effacer)@hotmail.com> a écrit dans le message de
news:
> Salut Hervé,
>
> Merci pour le coup de main. Avec ton code
> Open "C:CodeDept.txt" For Output As #1
> Print #1, frm_entree.TextBox1.Text
> Close #1
> Unload Me
> j'ai déjà réussi à aller inscrire la valeur de la txtbox dans un fichier.
> Maintenant, je n'arrive pas à faire faire l'inverse, c-a-d qu'à
> l'ouverture
> de mon document, si ce fichier existe, que cette valeur soit directement
> insérée dans cette même txtbox et s'il n'existe pas, alors on laisse le
> champ
> blanc et l'utilisateur l'inséère lui-même (je suis pince en VBA...).
> Est-ce
> que tu pourrais m'aider encore une fois ?
> Merci d'avance
>
> --
> Céd / Lausanne
>
>
> "Hervé" a écrit :
>
>> Bonsoir,
>> Un point de départ peut être ? Regarde ce que tu peux faire avec.
>>
>> A mettre dans le module de la Form et à adapter selon tes envies (exemple
>> très simple) :
>> '-------------------------------------------------------------------------
>> Private Sub CmdContinuer_Click()
>> Open "C:CodeDept.dep" For Output As #1
>> Print #1, TxtDept.Text
>> Close #1
>> Unload Me
>> End Sub
>>
>> Private Sub TxtDept_Change()
>> If TxtDept.Text <> "" Then
>> CmdContinuer.Enabled = True
>> Else
>> CmdContinuer.Enabled = False
>> End If
>> End Sub
>>
>> Private Sub UserForm_Initialize()
>> CmdContinuer.Enabled = False
>> End Sub
>> '-------------------------------------------------------------------------
>> A mettre dans le module du document et à adapter :
>> '-------------------------------------------------------------------------
>> Private Sub Document_New()
>> 'voir ici si contrôle nécessaire
>> 'du type de département ???
>> If lireDept("C:CodeDept.dep") = "ERREUR" Then
>> UserForm1.Show
>> Else
>> Exit Sub
>> End If
>> End Sub
>>
>> Function lireDept(Fichier As String) As String
>> Dim Ligne As String
>> On Error GoTo Fin
>> Open Fichier For Input As #1
>> Do While Not EOF(1)
>> Line Input #1, Ligne
>> Loop
>> Close #1
>> lireDept = Ligne
>> Exit Function
>> Fin:
>> lireDept = "ERREUR"
>> End Function
>> '--------------------------------------------------------------------------
>>
>> Hervé.
>>
>>
>> "Congelator" <congelator(a_effacer)@hotmail.com> a écrit dans le message
>> de
>> news:
>> > Salut tout le monde,
>> > Je suis en train de créer un dot qui sera utilisé par plusieurs
>> > départements
>> > différents. Les utilisateurs devront inscrire le nom de leur
>> > département
>> > dans
>> > une txtbox (tbox.dept). J'aimerais leur simplifier la vie et qu'ils
>> > n'aient
>> > pas à le saisir chaque fois mais que le code aille chercher cette
>> > information
>> > qlqpart sur le DD. Autrement dit, il faudrait :
>> > 1- à l'ouverture du document, vérifier dans "C:donnees" (par exemple)
>> > s'il
>> > existe déjà un fichier "departement" (je ne sais pas sous quelle
>> > forme...)
>> > 2- si oui -> récupérer l'information et l'afficher dans tbox.dept
>> > (l'utilisateur n'a plus besoin de le taper)
>> > 3- si non -> afficher la userform et enregister la valeur de tbox.dept
>> > lors
>> > de la sortie de la userform (par un clic sur un bouton "Continuer")
>> > dans
>> > un
>> > fichier "departement" dans C:Donnees afin qu'il soit disponible pour
>> > la
>> > prochaine fois.
>> >
>> > Simple... non !?!?!? Yaka !! Donc si quelqu'un a une idée, ça
>> > m'intéresse.
>> > Merci d'avance
>> >
>> > --
>> > Céd / Lausanne
>>
>>
>>
Bonsoir,
En fait tu veux ouvrir de toutes façons la Form, fichier texte existant ou
pas (j'avais mal compris :o(( ).
Remplace le code de la proc "Document_New" par celui-ci :
Private Sub Document_New()
UserForm1.Show
If lireDept("C:CodeDept.dep") <> "ERREUR" Then
UserForm1.TxtDept.Text = lireDept
CmdContinuer.Enabled = True
End If
End Sub
Hervé.
"Congelator" <congelator(a_effacer)@hotmail.com> a écrit dans le message de
news: F51861E4-E0EA-414D-B775-473A7C261FA0@microsoft.com...
> Salut Hervé,
>
> Merci pour le coup de main. Avec ton code
> Open "C:CodeDept.txt" For Output As #1
> Print #1, frm_entree.TextBox1.Text
> Close #1
> Unload Me
> j'ai déjà réussi à aller inscrire la valeur de la txtbox dans un fichier.
> Maintenant, je n'arrive pas à faire faire l'inverse, c-a-d qu'à
> l'ouverture
> de mon document, si ce fichier existe, que cette valeur soit directement
> insérée dans cette même txtbox et s'il n'existe pas, alors on laisse le
> champ
> blanc et l'utilisateur l'inséère lui-même (je suis pince en VBA...).
> Est-ce
> que tu pourrais m'aider encore une fois ?
> Merci d'avance
>
> --
> Céd / Lausanne
>
>
> "Hervé" a écrit :
>
>> Bonsoir,
>> Un point de départ peut être ? Regarde ce que tu peux faire avec.
>>
>> A mettre dans le module de la Form et à adapter selon tes envies (exemple
>> très simple) :
>> '-------------------------------------------------------------------------
>> Private Sub CmdContinuer_Click()
>> Open "C:CodeDept.dep" For Output As #1
>> Print #1, TxtDept.Text
>> Close #1
>> Unload Me
>> End Sub
>>
>> Private Sub TxtDept_Change()
>> If TxtDept.Text <> "" Then
>> CmdContinuer.Enabled = True
>> Else
>> CmdContinuer.Enabled = False
>> End If
>> End Sub
>>
>> Private Sub UserForm_Initialize()
>> CmdContinuer.Enabled = False
>> End Sub
>> '-------------------------------------------------------------------------
>> A mettre dans le module du document et à adapter :
>> '-------------------------------------------------------------------------
>> Private Sub Document_New()
>> 'voir ici si contrôle nécessaire
>> 'du type de département ???
>> If lireDept("C:CodeDept.dep") = "ERREUR" Then
>> UserForm1.Show
>> Else
>> Exit Sub
>> End If
>> End Sub
>>
>> Function lireDept(Fichier As String) As String
>> Dim Ligne As String
>> On Error GoTo Fin
>> Open Fichier For Input As #1
>> Do While Not EOF(1)
>> Line Input #1, Ligne
>> Loop
>> Close #1
>> lireDept = Ligne
>> Exit Function
>> Fin:
>> lireDept = "ERREUR"
>> End Function
>> '--------------------------------------------------------------------------
>>
>> Hervé.
>>
>>
>> "Congelator" <congelator(a_effacer)@hotmail.com> a écrit dans le message
>> de
>> news: E66131D9-894A-44C8-BCBF-0D664DFA0AD6@microsoft.com...
>> > Salut tout le monde,
>> > Je suis en train de créer un dot qui sera utilisé par plusieurs
>> > départements
>> > différents. Les utilisateurs devront inscrire le nom de leur
>> > département
>> > dans
>> > une txtbox (tbox.dept). J'aimerais leur simplifier la vie et qu'ils
>> > n'aient
>> > pas à le saisir chaque fois mais que le code aille chercher cette
>> > information
>> > qlqpart sur le DD. Autrement dit, il faudrait :
>> > 1- à l'ouverture du document, vérifier dans "C:donnees" (par exemple)
>> > s'il
>> > existe déjà un fichier "departement" (je ne sais pas sous quelle
>> > forme...)
>> > 2- si oui -> récupérer l'information et l'afficher dans tbox.dept
>> > (l'utilisateur n'a plus besoin de le taper)
>> > 3- si non -> afficher la userform et enregister la valeur de tbox.dept
>> > lors
>> > de la sortie de la userform (par un clic sur un bouton "Continuer")
>> > dans
>> > un
>> > fichier "departement" dans C:Donnees afin qu'il soit disponible pour
>> > la
>> > prochaine fois.
>> >
>> > Simple... non !?!?!? Yaka !! Donc si quelqu'un a une idée, ça
>> > m'intéresse.
>> > Merci d'avance
>> >
>> > --
>> > Céd / Lausanne
>>
>>
>>
Bonsoir,
En fait tu veux ouvrir de toutes façons la Form, fichier texte existant ou
pas (j'avais mal compris :o(( ).
Remplace le code de la proc "Document_New" par celui-ci :
Private Sub Document_New()
UserForm1.Show
If lireDept("C:CodeDept.dep") <> "ERREUR" Then
UserForm1.TxtDept.Text = lireDept
CmdContinuer.Enabled = True
End If
End Sub
Hervé.
"Congelator" <congelator(a_effacer)@hotmail.com> a écrit dans le message de
news:
> Salut Hervé,
>
> Merci pour le coup de main. Avec ton code
> Open "C:CodeDept.txt" For Output As #1
> Print #1, frm_entree.TextBox1.Text
> Close #1
> Unload Me
> j'ai déjà réussi à aller inscrire la valeur de la txtbox dans un fichier.
> Maintenant, je n'arrive pas à faire faire l'inverse, c-a-d qu'à
> l'ouverture
> de mon document, si ce fichier existe, que cette valeur soit directement
> insérée dans cette même txtbox et s'il n'existe pas, alors on laisse le
> champ
> blanc et l'utilisateur l'inséère lui-même (je suis pince en VBA...).
> Est-ce
> que tu pourrais m'aider encore une fois ?
> Merci d'avance
>
> --
> Céd / Lausanne
>
>
> "Hervé" a écrit :
>
>> Bonsoir,
>> Un point de départ peut être ? Regarde ce que tu peux faire avec.
>>
>> A mettre dans le module de la Form et à adapter selon tes envies (exemple
>> très simple) :
>> '-------------------------------------------------------------------------
>> Private Sub CmdContinuer_Click()
>> Open "C:CodeDept.dep" For Output As #1
>> Print #1, TxtDept.Text
>> Close #1
>> Unload Me
>> End Sub
>>
>> Private Sub TxtDept_Change()
>> If TxtDept.Text <> "" Then
>> CmdContinuer.Enabled = True
>> Else
>> CmdContinuer.Enabled = False
>> End If
>> End Sub
>>
>> Private Sub UserForm_Initialize()
>> CmdContinuer.Enabled = False
>> End Sub
>> '-------------------------------------------------------------------------
>> A mettre dans le module du document et à adapter :
>> '-------------------------------------------------------------------------
>> Private Sub Document_New()
>> 'voir ici si contrôle nécessaire
>> 'du type de département ???
>> If lireDept("C:CodeDept.dep") = "ERREUR" Then
>> UserForm1.Show
>> Else
>> Exit Sub
>> End If
>> End Sub
>>
>> Function lireDept(Fichier As String) As String
>> Dim Ligne As String
>> On Error GoTo Fin
>> Open Fichier For Input As #1
>> Do While Not EOF(1)
>> Line Input #1, Ligne
>> Loop
>> Close #1
>> lireDept = Ligne
>> Exit Function
>> Fin:
>> lireDept = "ERREUR"
>> End Function
>> '--------------------------------------------------------------------------
>>
>> Hervé.
>>
>>
>> "Congelator" <congelator(a_effacer)@hotmail.com> a écrit dans le message
>> de
>> news:
>> > Salut tout le monde,
>> > Je suis en train de créer un dot qui sera utilisé par plusieurs
>> > départements
>> > différents. Les utilisateurs devront inscrire le nom de leur
>> > département
>> > dans
>> > une txtbox (tbox.dept). J'aimerais leur simplifier la vie et qu'ils
>> > n'aient
>> > pas à le saisir chaque fois mais que le code aille chercher cette
>> > information
>> > qlqpart sur le DD. Autrement dit, il faudrait :
>> > 1- à l'ouverture du document, vérifier dans "C:donnees" (par exemple)
>> > s'il
>> > existe déjà un fichier "departement" (je ne sais pas sous quelle
>> > forme...)
>> > 2- si oui -> récupérer l'information et l'afficher dans tbox.dept
>> > (l'utilisateur n'a plus besoin de le taper)
>> > 3- si non -> afficher la userform et enregister la valeur de tbox.dept
>> > lors
>> > de la sortie de la userform (par un clic sur un bouton "Continuer")
>> > dans
>> > un
>> > fichier "departement" dans C:Donnees afin qu'il soit disponible pour
>> > la
>> > prochaine fois.
>> >
>> > Simple... non !?!?!? Yaka !! Donc si quelqu'un a une idée, ça
>> > m'intéresse.
>> > Merci d'avance
>> >
>> > --
>> > Céd / Lausanne
>>
>>
>>
Il manque le paramètre à ta fonction lireDept !
Voici le code corrigé (et optimisé):
Dim Dept as String
Dept = lireDept("C:CodeDept.txt")
If Dept <> "ERREUR" Then frm_entree.TextBox1.Text = Dept
Cordialement
Pascal B.
"Congelator" <congelator(a_effacer)@hotmail.com> wrote in message news:
| Salut Hervé,
| Je me suis effectivement mal expliqué. J'ouvre de toute façon la userform
| dans laquelle les utilisateurs vont devoir remplir des champs et en première
| position, ils devront mettre leur service, ce que j'aimerais automatiser.
|
| J'ai recopié ton code
| If lireDept("C:CodeDept.txt") <> "ERREUR" Then
| frm_entree.TextBox1.Text = lireDept <-- mais ici j'ai un message
| d'erreur sur "lireDept"
|
| "Erreur de compilation - Argument non facultatif"
|
| Est-ce que tu as une idée de quoi ça vient ?
|
| --
| Céd / Lausanne
|
|
| "Hervé" a écrit :
|
| > Bonsoir,
| >
| > En fait tu veux ouvrir de toutes façons la Form, fichier texte existant ou
| > pas (j'avais mal compris :o(( ).
| > Remplace le code de la proc "Document_New" par celui-ci :
| >
| > Private Sub Document_New()
| > UserForm1.Show
| > If lireDept("C:CodeDept.dep") <> "ERREUR" Then
| > UserForm1.TxtDept.Text = lireDept
| > CmdContinuer.Enabled = True
| > End If
| > End Sub
| >
| > Hervé.
| >
| > "Congelator" <congelator(a_effacer)@hotmail.com> a écrit dans le message de
| > news:
| > > Salut Hervé,
| > >
| > > Merci pour le coup de main. Avec ton code
| > > Open "C:CodeDept.txt" For Output As #1
| > > Print #1, frm_entree.TextBox1.Text
| > > Close #1
| > > Unload Me
| > > j'ai déjà réussi à aller inscrire la valeur de la txtbox dans un fichier.
| > > Maintenant, je n'arrive pas à faire faire l'inverse, c-a-d qu'à
| > > l'ouverture
| > > de mon document, si ce fichier existe, que cette valeur soit directement
| > > insérée dans cette même txtbox et s'il n'existe pas, alors on laisse le
| > > champ
| > > blanc et l'utilisateur l'inséère lui-même (je suis pince en VBA...).
| > > Est-ce
| > > que tu pourrais m'aider encore une fois ?
| > > Merci d'avance
| > >
| > > --
| > > Céd / Lausanne
| > >
| > >
| > > "Hervé" a écrit :
| > >
| > >> Bonsoir,
| > >> Un point de départ peut être ? Regarde ce que tu peux faire avec.
| > >>
| > >> A mettre dans le module de la Form et à adapter selon tes envies (exemple
| > >> très simple) :
| > >> '-------------------------------------------------------------------------
| > >> Private Sub CmdContinuer_Click()
| > >> Open "C:CodeDept.dep" For Output As #1
| > >> Print #1, TxtDept.Text
| > >> Close #1
| > >> Unload Me
| > >> End Sub
| > >>
| > >> Private Sub TxtDept_Change()
| > >> If TxtDept.Text <> "" Then
| > >> CmdContinuer.Enabled = True
| > >> Else
| > >> CmdContinuer.Enabled = False
| > >> End If
| > >> End Sub
| > >>
| > >> Private Sub UserForm_Initialize()
| > >> CmdContinuer.Enabled = False
| > >> End Sub
| > >> '-------------------------------------------------------------------------
| > >> A mettre dans le module du document et à adapter :
| > >> '-------------------------------------------------------------------------
| > >> Private Sub Document_New()
| > >> 'voir ici si contrôle nécessaire
| > >> 'du type de département ???
| > >> If lireDept("C:CodeDept.dep") = "ERREUR" Then
| > >> UserForm1.Show
| > >> Else
| > >> Exit Sub
| > >> End If
| > >> End Sub
| > >>
| > >> Function lireDept(Fichier As String) As String
| > >> Dim Ligne As String
| > >> On Error GoTo Fin
| > >> Open Fichier For Input As #1
| > >> Do While Not EOF(1)
| > >> Line Input #1, Ligne
| > >> Loop
| > >> Close #1
| > >> lireDept = Ligne
| > >> Exit Function
| > >> Fin:
| > >> lireDept = "ERREUR"
| > >> End Function
| > >> '--------------------------------------------------------------------------
| > >>
| > >> Hervé.
| > >>
| > >>
| > >> "Congelator" <congelator(a_effacer)@hotmail.com> a écrit dans le message
| > >> de
| > >> news:
| > >> > Salut tout le monde,
| > >> > Je suis en train de créer un dot qui sera utilisé par plusieurs
| > >> > départements
| > >> > différents. Les utilisateurs devront inscrire le nom de leur
| > >> > département
| > >> > dans
| > >> > une txtbox (tbox.dept). J'aimerais leur simplifier la vie et qu'ils
| > >> > n'aient
| > >> > pas à le saisir chaque fois mais que le code aille chercher cette
| > >> > information
| > >> > qlqpart sur le DD. Autrement dit, il faudrait :
| > >> > 1- à l'ouverture du document, vérifier dans "C:donnees" (par exemple)
| > >> > s'il
| > >> > existe déjà un fichier "departement" (je ne sais pas sous quelle
| > >> > forme...)
| > >> > 2- si oui -> récupérer l'information et l'afficher dans tbox.dept
| > >> > (l'utilisateur n'a plus besoin de le taper)
| > >> > 3- si non -> afficher la userform et enregister la valeur de tbox.dept
| > >> > lors
| > >> > de la sortie de la userform (par un clic sur un bouton "Continuer")
| > >> > dans
| > >> > un
| > >> > fichier "departement" dans C:Donnees afin qu'il soit disponible pour
| > >> > la
| > >> > prochaine fois.
| > >> >
| > >> > Simple... non !?!?!? Yaka !! Donc si quelqu'un a une idée, ça
| > >> > m'intéresse.
| > >> > Merci d'avance
| > >> >
| > >> > --
| > >> > Céd / Lausanne
| > >>
| > >>
| > >>
| >
| >
| >
Il manque le paramètre à ta fonction lireDept !
Voici le code corrigé (et optimisé):
Dim Dept as String
Dept = lireDept("C:CodeDept.txt")
If Dept <> "ERREUR" Then frm_entree.TextBox1.Text = Dept
Cordialement
Pascal B.
"Congelator" <congelator(a_effacer)@hotmail.com> wrote in message news:B80F26BD-9E9F-4771-899A-B6EF82FA0B2A@microsoft.com...
| Salut Hervé,
| Je me suis effectivement mal expliqué. J'ouvre de toute façon la userform
| dans laquelle les utilisateurs vont devoir remplir des champs et en première
| position, ils devront mettre leur service, ce que j'aimerais automatiser.
|
| J'ai recopié ton code
| If lireDept("C:CodeDept.txt") <> "ERREUR" Then
| frm_entree.TextBox1.Text = lireDept <-- mais ici j'ai un message
| d'erreur sur "lireDept"
|
| "Erreur de compilation - Argument non facultatif"
|
| Est-ce que tu as une idée de quoi ça vient ?
|
| --
| Céd / Lausanne
|
|
| "Hervé" a écrit :
|
| > Bonsoir,
| >
| > En fait tu veux ouvrir de toutes façons la Form, fichier texte existant ou
| > pas (j'avais mal compris :o(( ).
| > Remplace le code de la proc "Document_New" par celui-ci :
| >
| > Private Sub Document_New()
| > UserForm1.Show
| > If lireDept("C:CodeDept.dep") <> "ERREUR" Then
| > UserForm1.TxtDept.Text = lireDept
| > CmdContinuer.Enabled = True
| > End If
| > End Sub
| >
| > Hervé.
| >
| > "Congelator" <congelator(a_effacer)@hotmail.com> a écrit dans le message de
| > news: F51861E4-E0EA-414D-B775-473A7C261FA0@microsoft.com...
| > > Salut Hervé,
| > >
| > > Merci pour le coup de main. Avec ton code
| > > Open "C:CodeDept.txt" For Output As #1
| > > Print #1, frm_entree.TextBox1.Text
| > > Close #1
| > > Unload Me
| > > j'ai déjà réussi à aller inscrire la valeur de la txtbox dans un fichier.
| > > Maintenant, je n'arrive pas à faire faire l'inverse, c-a-d qu'à
| > > l'ouverture
| > > de mon document, si ce fichier existe, que cette valeur soit directement
| > > insérée dans cette même txtbox et s'il n'existe pas, alors on laisse le
| > > champ
| > > blanc et l'utilisateur l'inséère lui-même (je suis pince en VBA...).
| > > Est-ce
| > > que tu pourrais m'aider encore une fois ?
| > > Merci d'avance
| > >
| > > --
| > > Céd / Lausanne
| > >
| > >
| > > "Hervé" a écrit :
| > >
| > >> Bonsoir,
| > >> Un point de départ peut être ? Regarde ce que tu peux faire avec.
| > >>
| > >> A mettre dans le module de la Form et à adapter selon tes envies (exemple
| > >> très simple) :
| > >> '-------------------------------------------------------------------------
| > >> Private Sub CmdContinuer_Click()
| > >> Open "C:CodeDept.dep" For Output As #1
| > >> Print #1, TxtDept.Text
| > >> Close #1
| > >> Unload Me
| > >> End Sub
| > >>
| > >> Private Sub TxtDept_Change()
| > >> If TxtDept.Text <> "" Then
| > >> CmdContinuer.Enabled = True
| > >> Else
| > >> CmdContinuer.Enabled = False
| > >> End If
| > >> End Sub
| > >>
| > >> Private Sub UserForm_Initialize()
| > >> CmdContinuer.Enabled = False
| > >> End Sub
| > >> '-------------------------------------------------------------------------
| > >> A mettre dans le module du document et à adapter :
| > >> '-------------------------------------------------------------------------
| > >> Private Sub Document_New()
| > >> 'voir ici si contrôle nécessaire
| > >> 'du type de département ???
| > >> If lireDept("C:CodeDept.dep") = "ERREUR" Then
| > >> UserForm1.Show
| > >> Else
| > >> Exit Sub
| > >> End If
| > >> End Sub
| > >>
| > >> Function lireDept(Fichier As String) As String
| > >> Dim Ligne As String
| > >> On Error GoTo Fin
| > >> Open Fichier For Input As #1
| > >> Do While Not EOF(1)
| > >> Line Input #1, Ligne
| > >> Loop
| > >> Close #1
| > >> lireDept = Ligne
| > >> Exit Function
| > >> Fin:
| > >> lireDept = "ERREUR"
| > >> End Function
| > >> '--------------------------------------------------------------------------
| > >>
| > >> Hervé.
| > >>
| > >>
| > >> "Congelator" <congelator(a_effacer)@hotmail.com> a écrit dans le message
| > >> de
| > >> news: E66131D9-894A-44C8-BCBF-0D664DFA0AD6@microsoft.com...
| > >> > Salut tout le monde,
| > >> > Je suis en train de créer un dot qui sera utilisé par plusieurs
| > >> > départements
| > >> > différents. Les utilisateurs devront inscrire le nom de leur
| > >> > département
| > >> > dans
| > >> > une txtbox (tbox.dept). J'aimerais leur simplifier la vie et qu'ils
| > >> > n'aient
| > >> > pas à le saisir chaque fois mais que le code aille chercher cette
| > >> > information
| > >> > qlqpart sur le DD. Autrement dit, il faudrait :
| > >> > 1- à l'ouverture du document, vérifier dans "C:donnees" (par exemple)
| > >> > s'il
| > >> > existe déjà un fichier "departement" (je ne sais pas sous quelle
| > >> > forme...)
| > >> > 2- si oui -> récupérer l'information et l'afficher dans tbox.dept
| > >> > (l'utilisateur n'a plus besoin de le taper)
| > >> > 3- si non -> afficher la userform et enregister la valeur de tbox.dept
| > >> > lors
| > >> > de la sortie de la userform (par un clic sur un bouton "Continuer")
| > >> > dans
| > >> > un
| > >> > fichier "departement" dans C:Donnees afin qu'il soit disponible pour
| > >> > la
| > >> > prochaine fois.
| > >> >
| > >> > Simple... non !?!?!? Yaka !! Donc si quelqu'un a une idée, ça
| > >> > m'intéresse.
| > >> > Merci d'avance
| > >> >
| > >> > --
| > >> > Céd / Lausanne
| > >>
| > >>
| > >>
| >
| >
| >
Il manque le paramètre à ta fonction lireDept !
Voici le code corrigé (et optimisé):
Dim Dept as String
Dept = lireDept("C:CodeDept.txt")
If Dept <> "ERREUR" Then frm_entree.TextBox1.Text = Dept
Cordialement
Pascal B.
"Congelator" <congelator(a_effacer)@hotmail.com> wrote in message news:
| Salut Hervé,
| Je me suis effectivement mal expliqué. J'ouvre de toute façon la userform
| dans laquelle les utilisateurs vont devoir remplir des champs et en première
| position, ils devront mettre leur service, ce que j'aimerais automatiser.
|
| J'ai recopié ton code
| If lireDept("C:CodeDept.txt") <> "ERREUR" Then
| frm_entree.TextBox1.Text = lireDept <-- mais ici j'ai un message
| d'erreur sur "lireDept"
|
| "Erreur de compilation - Argument non facultatif"
|
| Est-ce que tu as une idée de quoi ça vient ?
|
| --
| Céd / Lausanne
|
|
| "Hervé" a écrit :
|
| > Bonsoir,
| >
| > En fait tu veux ouvrir de toutes façons la Form, fichier texte existant ou
| > pas (j'avais mal compris :o(( ).
| > Remplace le code de la proc "Document_New" par celui-ci :
| >
| > Private Sub Document_New()
| > UserForm1.Show
| > If lireDept("C:CodeDept.dep") <> "ERREUR" Then
| > UserForm1.TxtDept.Text = lireDept
| > CmdContinuer.Enabled = True
| > End If
| > End Sub
| >
| > Hervé.
| >
| > "Congelator" <congelator(a_effacer)@hotmail.com> a écrit dans le message de
| > news:
| > > Salut Hervé,
| > >
| > > Merci pour le coup de main. Avec ton code
| > > Open "C:CodeDept.txt" For Output As #1
| > > Print #1, frm_entree.TextBox1.Text
| > > Close #1
| > > Unload Me
| > > j'ai déjà réussi à aller inscrire la valeur de la txtbox dans un fichier.
| > > Maintenant, je n'arrive pas à faire faire l'inverse, c-a-d qu'à
| > > l'ouverture
| > > de mon document, si ce fichier existe, que cette valeur soit directement
| > > insérée dans cette même txtbox et s'il n'existe pas, alors on laisse le
| > > champ
| > > blanc et l'utilisateur l'inséère lui-même (je suis pince en VBA...).
| > > Est-ce
| > > que tu pourrais m'aider encore une fois ?
| > > Merci d'avance
| > >
| > > --
| > > Céd / Lausanne
| > >
| > >
| > > "Hervé" a écrit :
| > >
| > >> Bonsoir,
| > >> Un point de départ peut être ? Regarde ce que tu peux faire avec.
| > >>
| > >> A mettre dans le module de la Form et à adapter selon tes envies (exemple
| > >> très simple) :
| > >> '-------------------------------------------------------------------------
| > >> Private Sub CmdContinuer_Click()
| > >> Open "C:CodeDept.dep" For Output As #1
| > >> Print #1, TxtDept.Text
| > >> Close #1
| > >> Unload Me
| > >> End Sub
| > >>
| > >> Private Sub TxtDept_Change()
| > >> If TxtDept.Text <> "" Then
| > >> CmdContinuer.Enabled = True
| > >> Else
| > >> CmdContinuer.Enabled = False
| > >> End If
| > >> End Sub
| > >>
| > >> Private Sub UserForm_Initialize()
| > >> CmdContinuer.Enabled = False
| > >> End Sub
| > >> '-------------------------------------------------------------------------
| > >> A mettre dans le module du document et à adapter :
| > >> '-------------------------------------------------------------------------
| > >> Private Sub Document_New()
| > >> 'voir ici si contrôle nécessaire
| > >> 'du type de département ???
| > >> If lireDept("C:CodeDept.dep") = "ERREUR" Then
| > >> UserForm1.Show
| > >> Else
| > >> Exit Sub
| > >> End If
| > >> End Sub
| > >>
| > >> Function lireDept(Fichier As String) As String
| > >> Dim Ligne As String
| > >> On Error GoTo Fin
| > >> Open Fichier For Input As #1
| > >> Do While Not EOF(1)
| > >> Line Input #1, Ligne
| > >> Loop
| > >> Close #1
| > >> lireDept = Ligne
| > >> Exit Function
| > >> Fin:
| > >> lireDept = "ERREUR"
| > >> End Function
| > >> '--------------------------------------------------------------------------
| > >>
| > >> Hervé.
| > >>
| > >>
| > >> "Congelator" <congelator(a_effacer)@hotmail.com> a écrit dans le message
| > >> de
| > >> news:
| > >> > Salut tout le monde,
| > >> > Je suis en train de créer un dot qui sera utilisé par plusieurs
| > >> > départements
| > >> > différents. Les utilisateurs devront inscrire le nom de leur
| > >> > département
| > >> > dans
| > >> > une txtbox (tbox.dept). J'aimerais leur simplifier la vie et qu'ils
| > >> > n'aient
| > >> > pas à le saisir chaque fois mais que le code aille chercher cette
| > >> > information
| > >> > qlqpart sur le DD. Autrement dit, il faudrait :
| > >> > 1- à l'ouverture du document, vérifier dans "C:donnees" (par exemple)
| > >> > s'il
| > >> > existe déjà un fichier "departement" (je ne sais pas sous quelle
| > >> > forme...)
| > >> > 2- si oui -> récupérer l'information et l'afficher dans tbox.dept
| > >> > (l'utilisateur n'a plus besoin de le taper)
| > >> > 3- si non -> afficher la userform et enregister la valeur de tbox.dept
| > >> > lors
| > >> > de la sortie de la userform (par un clic sur un bouton "Continuer")
| > >> > dans
| > >> > un
| > >> > fichier "departement" dans C:Donnees afin qu'il soit disponible pour
| > >> > la
| > >> > prochaine fois.
| > >> >
| > >> > Simple... non !?!?!? Yaka !! Donc si quelqu'un a une idée, ça
| > >> > m'intéresse.
| > >> > Merci d'avance
| > >> >
| > >> > --
| > >> > Céd / Lausanne
| > >>
| > >>
| > >>
| >
| >
| >
