Discussion :

[grisan29]

bonjour a vous

dans le post que RDurupt a très bien mené, je voudrais savoir pourquoi il y a un usf recepissé qui ne s'ouvre pas et si je rajoute un bouton il fige excel en s'ouvrant, je n'avais pas remarqué cet usf avant
car j'ai un bug inconnu car ca a refonctionner normalement après qui m'a amener vers ses lignes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
With Me.recepisse.destinataire1 = form_email.Emetteur
 form_email.piece_jointe.Clear

qui bugait, bon l'usf s’appelle repisse mais je l'ai modifié et pas mieux le bug y reviens, parce qu'un récépissé m'interresse aussi pour une justification d'émission
il n'y a aucun code dans cet usf

Par ailleurs la fonction de zipper est un peu complexe a comprendre, car le clic du bouton ouvre l'explorateur pour demander ou enregistrer, mais que veux t'il enregistrer , en fait en relisant le post concerné, la fonction zip est la pour zippé les pièces jointes s'il y en plusieurs, je ne l'ai pas essayer mais si parmi les pièces jointes une est déjà zippé je ne sais pas si cela ne mènera pas a un bug

merci par avance

Pascal

[SfJ5Rpw8]

Bonsoir,

je ne comprends pas ton utilisation de With ...

un petit tour dans l'aide en ligne excel :

Syntaxe

With object
[statements]

End With

Remarques

L'instruction With permet d'appliquer une série d'instructions à l'objet indiqué, sans qualifier à chaque fois le nom de l'objet. Par exemple, pour modifier plusieurs propriétés d'un seul objet, placez les instructions d'affectation de propriétés dans la structure de contrôle With ; vous ne faites ainsi référence qu'une seule fois à l'objet, au lieu de le faire à chaque affectation de propriété. L'exemple ci-dessous illustre l'utilisation de l'instruction With dans le cadre de l'affectation de valeurs à plusieurs propriétés d'un même objet.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
With MonÉtiquette
    .Height = 2000
    .Width = 2000
    .Caption = "Voici MonÉtiquette"
End With

[grisan29]

bonsoir bbil

merci de ta réponse , mais j'ai regardé 3 ou 4 fois je ne trouve où tu a trouvé

With MonÉtiquette

le classeur est celui que Patricktoulon a mis dans les contributions et qui a été revu par durupt pour l'envoie de plusieurs pièces jointes
de toute facon je ne plus utiliser l'aide car je ne suis pas bilingue et sur office2013 il n'y a pas d'autres aides que en ligne

Pascal

[SfJ5Rpw8]

bonsoir,

dans l'aide en ligne excel ...

c'est juste un exemple d'utilisation de With ... "MonEtiquette" est un objet ... ..

tu as modifié ta ligne "With ... " , qu'elle était la ligne originale ?

[grisan29]

bonsoir bibil

comme je ne sais pas de quel with tu parles voici le lien originel du classeur
si c'est with me.recipisse dont tu parles c'est durupt qui l'a mis la où il est
Pascal

[SfJ5Rpw8]

pas besoin du classeur il n'y as qu'un seul with dans ton code ....

...
[CODE]With Me.recepisse.destinataire1 = form_email.Emetteur
...

je n'ai pas besoin d'ouvrir le classeur pour déceler cette grosse erreur de syntaxe ...

[grisan29]

je viens de modifier le post et on s'est croisé
je pense que tu préfère ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

With Me.recepisse.destinataire1.Value = form_email.Emetteur.Value

Pascal

[SfJ5Rpw8]

Il manque peu être un saut de ligne dans ton code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
 
With Me.recepisse
     .destinataire1 = form_email.Emetteur

et ainsi la syntaxe serait plus cohérente ...

[grisan29]

re
tel que tu me dit c'est une erreur de compilation avec une utilisation incorrect du mot cle Me.mais sans mettre Me. le message est envoyer mais l'usf recepisse ne bronche pas

Pascal

re
j'arrive comme cela c'est juste pour ouvrir l'usf recepisse que je form_email.hide ou unload me devantet ensuite recepisse.show

recepisse s'ouvre et se rempli pas souci mais reste figé et fige tout excel avec et plus rien ne réponds, donc il faut fermé par le gestionnaire de taches et perdre ce qui vient d'etre fait

Pascal

[grisan29]

bonjour bbil et le forum

donc j'ai fait ceci et c'est mieux mais pas bien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
With accuse_reception
    .destinataire1 = form_email.Emetteur
    .CC1 = form_email.CC
    .CCI1 = form_email.CCI
    '.pieces_jointes = form_email.piece_jointe.ListIndex
    .corps_du_message = form_email.corp_du_message
form_email.Hide
accuse_reception.Show
End With

j'ai mis la propriété show modal de recepissé a false et c'est mieux car je peux fermer excel en enregistrant mais je n'ai toujours aucune action sur l'usf

bon j'ai créer un autre usf et copier coller les contrôles et c'est beaucoup mieux , il n'y a que le show modal que j'ai trouvé de différent a modifier sur recepisser, mais du donner un autre nom au nouvel usf
il n'y a que les pièces jointes qui bug si je mets la ligne tel que dans le code, car les pièces jointes sont dans une listbox et a transferer dans une autre

Pascal

[grisan29]

bonjour a vous

j'ai fini par comprendre le fonctionnement du zip mais il a falu que je modifie une partie du code pour le faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Case "Zipper"
 
  Dim fso As New FileSystemObject
 
  Dim I As Long
  If maform.piece_jointe.ListCount = 0 Then
  MsgBox "Il n'y a pas de pièce jointe à zipper": Exit Sub
  Else
 
        For I = maform.piece_jointe.ListCount - 1 To 0 Step -1
                fichier = fso.GetBaseName("Chemin à définir\" & maform.piece_jointe.List(I))
                FichierExiste ("Chemin à définir" & fichier & ".zip")
                ZipeurRD maform.piece_jointe.List(I), "Chemin à définir" & fichier & ".zip"
        maform.piece_jointe.RemoveItem (I)
        maform.piece_jointe.AddItem "Chemin à définir" & fichier & ".zip"
        Next
 
 End If

mais cela ne concerne pas le fonctionnement du "recépissé"

Pascal