..tu va là http://cjoint.com tu clique sur parcourir pour donnée copie de ton fichier tu copies le lien obtenu et tu colles le lien dans ton post avec ta question sur le forum
@+
lSteph
On 31 août, 11:50, TITUS wrote:
Je voudrais bien transférer mes fichiers pour qu'il vous soit plus simp le de m'aider, mais comment puis-je faire ?
Merci -- TITUS
Re,
..tu va là http://cjoint.com
tu clique sur parcourir pour donnée copie de ton fichier
tu copies le lien obtenu
et tu colles le lien dans ton post avec ta question sur le forum
@+
lSteph
On 31 août, 11:50, TITUS <TI...@discussions.microsoft.com> wrote:
Je voudrais bien transférer mes fichiers pour qu'il vous soit plus simp le de
m'aider, mais comment puis-je faire ?
..tu va là http://cjoint.com tu clique sur parcourir pour donnée copie de ton fichier tu copies le lien obtenu et tu colles le lien dans ton post avec ta question sur le forum
@+
lSteph
On 31 août, 11:50, TITUS wrote:
Je voudrais bien transférer mes fichiers pour qu'il vous soit plus simp le de m'aider, mais comment puis-je faire ?
Merci -- TITUS
TITUS
Ca y estj'ai trouvé . J'avais tapé cijoint.com au lieu de cjoint.com.
Mais mon fichier est trop gros.
Je me suis permise de te l'envoyé par mail.... si tu peux faire quelque chose.....??? Merci d'avance Bon weekend -- TITUS
Re,
...tu va là http://cjoint.com tu clique sur parcourir pour donnée copie de ton fichier tu copies le lien obtenu et tu colles le lien dans ton post avec ta question sur le forum
@+
lSteph
On 31 août, 11:50, TITUS wrote:
Je voudrais bien transférer mes fichiers pour qu'il vous soit plus simple de m'aider, mais comment puis-je faire ?
Merci -- TITUS
Ca y estj'ai trouvé .
J'avais tapé cijoint.com au lieu de cjoint.com.
Mais mon fichier est trop gros.
Je me suis permise de te l'envoyé par mail.... si tu peux faire quelque
chose.....???
Merci d'avance
Bon weekend
--
TITUS
Re,
...tu va là http://cjoint.com
tu clique sur parcourir pour donnée copie de ton fichier
tu copies le lien obtenu
et tu colles le lien dans ton post avec ta question sur le forum
@+
lSteph
On 31 août, 11:50, TITUS <TI...@discussions.microsoft.com> wrote:
Je voudrais bien transférer mes fichiers pour qu'il vous soit plus simple de
m'aider, mais comment puis-je faire ?
Ca y estj'ai trouvé . J'avais tapé cijoint.com au lieu de cjoint.com.
Mais mon fichier est trop gros.
Je me suis permise de te l'envoyé par mail.... si tu peux faire quelque chose.....??? Merci d'avance Bon weekend -- TITUS
Re,
...tu va là http://cjoint.com tu clique sur parcourir pour donnée copie de ton fichier tu copies le lien obtenu et tu colles le lien dans ton post avec ta question sur le forum
@+
lSteph
On 31 août, 11:50, TITUS wrote:
Je voudrais bien transférer mes fichiers pour qu'il vous soit plus simple de m'aider, mais comment puis-je faire ?
Merci -- TITUS
lSteph
Re,
Réponse dans ta BAL. (fichier joint) Ce que j'ai trouvé n'est pas exactement ma façon de faire donc j'ai respecté au maximum pour ne pas tout chambouler
Voici pour ceux qui visiteraient ce fil: Private Sub age_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) Dim tst On Error Resume Next tst = CDate(Me.age) On Error GoTo 0 If IsEmpty(tst) Then Cancel = True: MsgBox "date non valide"
End Sub
Private Sub UserForm_Initialize() Me.profil.AddItem "TNS" Me.profil.AddItem "AS"
End Sub Private Sub b_validation_Click() 'Contrôle de validation Dim msg As String msg = "Vous devez au moins entrer Nom Prenom et Date de naissance" If Len(Me.nom) = 0 Then Me.nom.SetFocus: MsgBox (msg): Exit Sub If Len(Me.Prenom) = 0 Then Me.Prenom.SetFocus: MsgBox (msg): Exit Sub If Len(Me.age) = 0 Then Me.age.SetFocus: MsgBox (msg): Exit Sub '--- Transfert Formulaire dans BD Application.EnableEvents = False
End Sub Private Sub b_fin_Click() With Application .ScreenUpdating = False .DisplayAlerts = False ActiveWorkbook.Save End With Unload Me End Sub
On 31 août, 14:24, TITUS wrote:
Ca y estj'ai trouvé . J'avais tapé cijoint.com au lieu de cjoint.com.
Mais mon fichier est trop gros.
Je me suis permise de te l'envoyé par mail.... si tu peux faire quelque chose.....??? Merci d'avance Bon weekend -- TITUS
Re,
...tu va làhttp://cjoint.com tu clique sur parcourir pour donnée copie de ton fichier tu copies le lien obtenu et tu colles le lien dans ton post avec ta question sur le forum
@+
lSteph
On 31 août, 11:50, TITUS wrote:
Je voudrais bien transférer mes fichiers pour qu'il vous soit plus simple de m'aider, mais comment puis-je faire ?
Merci -- TITUS
Re,
Réponse dans ta BAL. (fichier joint)
Ce que j'ai trouvé n'est pas exactement ma façon de faire donc j'ai
respecté
au maximum pour ne pas tout chambouler
Voici pour ceux qui visiteraient ce fil:
Private Sub age_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Dim tst
On Error Resume Next
tst = CDate(Me.age)
On Error GoTo 0
If IsEmpty(tst) Then Cancel = True: MsgBox "date non valide"
End Sub
Private Sub UserForm_Initialize()
Me.profil.AddItem "TNS"
Me.profil.AddItem "AS"
End Sub
Private Sub b_validation_Click()
'Contrôle de validation
Dim msg As String
msg = "Vous devez au moins entrer Nom Prenom et Date de naissance"
If Len(Me.nom) = 0 Then Me.nom.SetFocus: MsgBox (msg): Exit Sub
If Len(Me.Prenom) = 0 Then Me.Prenom.SetFocus: MsgBox (msg): Exit
Sub
If Len(Me.age) = 0 Then Me.age.SetFocus: MsgBox (msg): Exit Sub
'--- Transfert Formulaire dans BD
Application.EnableEvents = False
End Sub
Private Sub b_fin_Click()
With Application
.ScreenUpdating = False
.DisplayAlerts = False
ActiveWorkbook.Save
End With
Unload Me
End Sub
On 31 août, 14:24, TITUS <TI...@discussions.microsoft.com> wrote:
Ca y estj'ai trouvé .
J'avais tapé cijoint.com au lieu de cjoint.com.
Mais mon fichier est trop gros.
Je me suis permise de te l'envoyé par mail.... si tu peux faire quelque
chose.....???
Merci d'avance
Bon weekend
--
TITUS
Re,
...tu va làhttp://cjoint.com
tu clique sur parcourir pour donnée copie de ton fichier
tu copies le lien obtenu
et tu colles le lien dans ton post avec ta question sur le forum
@+
lSteph
On 31 août, 11:50, TITUS <TI...@discussions.microsoft.com> wrote:
Je voudrais bien transférer mes fichiers pour qu'il vous soit plus simple de
m'aider, mais comment puis-je faire ?
Réponse dans ta BAL. (fichier joint) Ce que j'ai trouvé n'est pas exactement ma façon de faire donc j'ai respecté au maximum pour ne pas tout chambouler
Voici pour ceux qui visiteraient ce fil: Private Sub age_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) Dim tst On Error Resume Next tst = CDate(Me.age) On Error GoTo 0 If IsEmpty(tst) Then Cancel = True: MsgBox "date non valide"
End Sub
Private Sub UserForm_Initialize() Me.profil.AddItem "TNS" Me.profil.AddItem "AS"
End Sub Private Sub b_validation_Click() 'Contrôle de validation Dim msg As String msg = "Vous devez au moins entrer Nom Prenom et Date de naissance" If Len(Me.nom) = 0 Then Me.nom.SetFocus: MsgBox (msg): Exit Sub If Len(Me.Prenom) = 0 Then Me.Prenom.SetFocus: MsgBox (msg): Exit Sub If Len(Me.age) = 0 Then Me.age.SetFocus: MsgBox (msg): Exit Sub '--- Transfert Formulaire dans BD Application.EnableEvents = False
End Sub Private Sub b_fin_Click() With Application .ScreenUpdating = False .DisplayAlerts = False ActiveWorkbook.Save End With Unload Me End Sub
On 31 août, 14:24, TITUS wrote:
Ca y estj'ai trouvé . J'avais tapé cijoint.com au lieu de cjoint.com.
Mais mon fichier est trop gros.
Je me suis permise de te l'envoyé par mail.... si tu peux faire quelque chose.....??? Merci d'avance Bon weekend -- TITUS
Re,
...tu va làhttp://cjoint.com tu clique sur parcourir pour donnée copie de ton fichier tu copies le lien obtenu et tu colles le lien dans ton post avec ta question sur le forum
@+
lSteph
On 31 août, 11:50, TITUS wrote:
Je voudrais bien transférer mes fichiers pour qu'il vous soit plus simple de m'aider, mais comment puis-je faire ?