usf @christhophe@

  • Initiateur de la discussion Evelyne
  • Date de début
E

Evelyne

Guest
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@

Guest
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 ligne:private 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@
 
E

Evelyne

Guest
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
 
E

Evelyne

Guest
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../\/\...........................:........
 
E

Evelyne

Guest
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@

Guest
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@
 
T

Théo

Guest
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!!!
 

Discussions similaires