usf @christhophe@

[Evelyne]

Bonsoir @Christophe@ bonsoir le forum.
j'ai un probleme insoluble pour moi
voila
j'ai "adapté" ton systeme d'enregistrement (creation ou modification d'un fichier par dates)
voir fichier joint

mon problème est que lorsque j'enregistre un fichier , le "thisWorkBook"se remplit de "UserForm1.show et donc quand je veux le modifier , il me relance l 'userform du départ (et je n'arrive plus à le fermer)
j'ai vu que tu utilisais
______________________________________________________________________
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then Cancel = True
End Sub
__________________________________________________________________
pour contourner le problème
mais moi beaucoup trop débutante je ne sais pas où le mettre !
en gros je patauge désespérement depuis midi
merci de ton aide
à bientôt et bonne soirée au forum!

Evelyne un peu pommée

 

[@Christophe@]

Bonsoir Evelyne

Tu as oublié le fichier, lol

Envoi et je vois ce que je peux faire, parce que je comprends pas trop la, lol

Bonne soirée

@Christophe@

 

[Evelyne]

ça fait dix fois que j'essaye , zipper ou non mais ça ne par pas
desolée
je vais continuer d'essayer §§§§§§§!
a plus

 

[@Christophe@]

Re

En faite pour t'expliquer le problème, voici ce que j'avais fait que toi tu n'as probablement pas bien adapté:
Quand tu enregistre sous, ton fichier de sauvergarde disons contient toujours les macro du fichier d'origine, donc, j'ai utilisé un code pour les supprimer avant l'enregistrement, et je suppose que tu a mal modifie mon code, puisque dans ta sauvergarde tes macros ne sont pas supprimer.

Quand a le problème de fermeture, tu as trouvé les bonne lignerivate Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then Cancel = True
End Sub

Cela sert à désactivé la croix de fermeture, tu peux supprimer c'est ligne si tu veux, j'ai désactivé cette croix pour forcer les utilisateur a faire création ou modification.

Voila

Envoi le fichier et je regarde cela

@Christophe@

 

[@Christophe@]

Re

Mail le fichier dans ma boite alors

@Christophe@

 

[Evelyne]

j'ai utilisé un code pour les supprimer avant l'enregistrement

c'est ça que j'ai pas trouvé , je vais chercher encore
(j'essaye toujours de joindre le fichier mais il ne part pas ,dommage
a plus
eve

 

[@Christophe@]

Re

Envoi le fichier sur mon mail

Christophe.xld@chello.be

 

[Evelyne]

je te l'ai envoyé par outlook
avec un peu de chance........

 

[Evelyne]

oups..............;;

meme idée

 

[@Christophe@]

Re

Voila, je te t'ai envoyé la version révisé

Tient moi au courant

@Christophe@

 

[Evelyne]

je t ai renvoyer le fichier
je ne tiens plus debout et demain je me leve tot
alors bonne nuit et merci pour tout

a demain

EVE
RRrrrrrr pchiiii RR rrrrrrr pchiii RRrrrrrrrr../\/\...........................:........

 

[@Christophe@]

Re

Merci, je viens de te le corrigé et je te l'ai réenvoyé

Bise

Bonne nuit

@Christophe@

 

[Evelyne]

bonsoir @christophe@
Ce coup ci c'est bon, tout fonctionne bien.
Cependant j'ai deux autres questions (est oui!)

1)Comment dans cette macro faire apparaitre une msgbox:
"il n'y a pas de fichier de cette date" ; plutot qu'un débogage ?

Private Sub CmdOK_Click()
DateFichier = TxtDate.Value
DocName = "FichierTest " & Format(DateFichier, "yyyy") & Format(DateFichier, "mm") _
& Format(DateFichier, "dd")
If TxtDate.Value = "" Then
MsgBox "Veuillez introduire une date svp."
Else
If Dir("C:\mes Documents\francois\V B A\") & DocName <> " " Then
Workbooks.Open Filename:= _
"C:\mes Documents\francois\V B A\" & DocName
End If
Unload Me
End If
End Sub

2)peux- tu à l'occasion me mettre des commentaires dans la macro enregistrer de la feuillle 1 (a ben oui , je comprends pas tout)
merci d'avance , à bientôt (c'est pas URGENT, respire un peu !!)
eVelyne

 

[@Christophe@]

Bonjour

Evelyne, remplace ton code par celui la:

DateFichier = TxtDate.Value
DocName = "FichierTest " & Format(DateFichier, "yyyy") & Format(DateFichier, "mm") _
& Format(DateFichier, "dd")

If TxtDate.Value = "" Then
MsgBox "Veuillez introduire une date svp."
Else
On Error GoTo fin
Workbooks.open Filename:= _
"C:\mes Documents\francois\V B A\" & DocName
End If
Unload Me
fin:
MsgBox ("Fichier inexistant!")
TxtDate.Value = Null
Exit Sub
End Sub

Voila, tient moi au courant

Pour les expication, je te fais cela probablement demain

Bonne soirée

@Christophe@

 

[Théo]

Bonjour Eveline,
Je voudrait pouvoir t'écrire dans un autre cadre. Tu pourrait certainement
me donner certaines informations sur les formations que tu suis sur le net. Moi je suis tout nouveau là dessus.
Je serai ravi de te lire à ce sujet.

Allez Bye!!!