ANNUAIRE AVEC OPTIONS

Commentaire de Mik10_46 le 10/04/2006 16:28:52

Salut,
impossible d'ouvrir, pas mal d'erreurs à l'ouverture!!
peut-être as tu des indications pour nous aider à ouvrir ton prog?
Merci

Commentaire de Mik10_46 le 11/04/2006 08:53:25

En fait le pb vient des frmContacts

    frmContacts.Height = 576 / 100 * Range("ZoomNico").Value
    frmContacts.Width = 768 / 100 * Range("ZoomNico").Value
    frmContacts.Show

Merci d'avoir repondu rapidement, mais je ne comprends pas trop pkoi cela ne marche pas.
peut-etre que ca vient de ma beccane?!
Mais en tout état de cause, le peu que j'en ai vu est très bien présenté. peut-etre juste changer l'interface de la fiche d'impression de manière à être plus convivial, mais dans l'ensemble, tres bien!!!
Je n'ai pas encore regarder le code, j'arriverais à lancer le prog sans souci!
Cordialement,

Mik10_46

Commentaire de mortalino le 12/04/2006 08:11:29

Salut à tous !!

Bon en fait faut je reprenne certaine chose, pas mal de probleme, mine de rien...

Lors de la creation, ca marche, tu recrées une seconde fois a la suite, ça marche plus ??

J'essaie de mettre de le fichier mis à jour le plus rapidement possible.*

Bien à vous..

Mortalino

Commentaire de mortalino le 12/04/2006 10:56:37

Merci Mik10_46 !

C'est sympa de ta part, je confirme que ça à déjà été difficile hier soir mais le pire reste à venir.
Bon courage à toi aussi dans mon charrabia...

Si tu t'y connais en vb6, je me demandais s'il n'était pas possible, mais en VBA, de faire appel à la DLL (ou OCX) MSCOMM, pour pouvoir télephonner directement de l'annuaire (avec chois du port com ?)

Dès que j'ai réparer les bugs, je vais essayer de trouver ça..

A bientôt

Mortalino

Commentaire de Mik10_46 le 13/04/2006 09:33:24

Salut Mortalino,
je viens de regarder, bon ben sur ma beccane du boulot, ça ne marche pas, mais bon on tourne sous W98, donc, je regarderais sous ma beccane ce WE, mais apparemment tu as fait du bon boulot car moins de Bug, mais comme je te dis sous Win98 avec Excel 2000Pro, il doit manquer des modules de bases!
je te filerais une note au plus tard Mardi avec mes critiques constructives.
et je pense que je vais modifier l'interface de la feuille d'impression.

Mais, tu as fait du bon boulot.

Cordialement,

Mik

Commentaire de Mik10_46 le 24/04/2006 12:55:56

Salut mortalino,

désolé du retard, mais ton code fonctionne à merveille.
il est très pratique.
en ce qui concerne la fiche d'impression je ne l'ai pas encore modifiée, mais je le ferais sous peu je pense!!!
si tu veux je te la transmettrais.

@++
Mik

Commentaire de limaseb le 04/07/2006 18:39:03

Super j adore ces ce qui me fallais avec un pe de bidouille je vais m'en sortir je pense sinon te fais signe merci bcp mortalino

Commentaire de tom_811 le 16/11/2006 23:22:06

Salut Mortalino, ton annuaire est vraiment super !! Félicitation.
Toutefois, j'ai un petit soucis sur ce bout de code lorsque je créé un contact:

'******************    
Selection.Sort Key1:=Range("M2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
'******************

Mess : "Erreur définie par l'application ou par l'objet"

Y'aurai- il des références à ajouter auquelles je n'aurai pas penser.
Merci pour ton aide qui me sera très precieuse.

Salutation!
et encore une fois: respect pour le reste!
Tom

Commentaire de tom_811 le 17/11/2006 22:28:54

Bonjour,
Merci pour cette rapidité de reponse!!
Oui, il s'agit juste de la création d'un contact qui genère cette erreur. Si je met en commentaire ces 3 lignes. La création ne pose plus problème.
Mais par contre, un petit bug vient s'ajouter:  (nb. je ne suis pas certain que ça soit lié):
La liste de contact de la feuille "listes" vient se coller sur la feuille "données" en colonne L:M.
il me semble qu'il n'y a pas d'erreur dans le code; mais je ne trouve pas la solution pour y remedier.
Merci encore!
@ bientôt
Tom