Commentaires de allopeck sur tout CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2008 12 02 02:59:00

ASTUCE WINDOWS : DéPLACER LES FENêTRES PERDUES D'UN éCRAN INEXISTANT VERS MON éCRAN PRINCIPAL par cyril

TEAM SYSTEM DATABASE EDITION : VERSION FINALE DISPONIBLE DE CETTE NOUVELLE MISE à JOUR DE LA VERSION 2008 par christian

[LINQ TO WIQL] LES DESSOUS DU PROVIDER (PART 1: INTRODUCTION) par Miiitch

SHAREPOINT 2007 : ACTIVATION DE FEATURES ET ACTIVATIONDEPENDENCIES par phil

DOCUMENT W3C SUR L'ACCESSIBILITé DE SILVERLIGHT 2.0 par neodante

+ de logiciels à télécharger

1 301 162 membres
49 nouveaux aujourd'hui
14 547 membres club

Trouver une ressource

Trouvez une ressource parmi 39 071 codes, 1 207 990 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

16 commentaire(s) de allopeck sur des sources sur tout CodeS-SourceS

Le : 06/12/2007 10:32:24
Source : AUTOCAD LT ET DDE

Bonjour,
Avez vous eu mon message?
Bonne journée

Le : 04/12/2007 16:06:59
Source : AUTOCAD LT ET DDE

Bonjour,
Alors est ce que pour vous ça marche ?
merci

Le : 03/12/2007 15:44:05
Source : FONCTION ARRONDIR COMPLÈTE. (DÉCIMALE, MULTIPLE, PAR DÉFAUT, PAR EXCÈS, AU PLUS PRÈS)

Excusez je me suis mal exprimé! en fait je veux arrondir le resultat d'une opération.
Si on a 0.5 je veux arrondir au supérieur. et autrement à l'inférieur.? Est ce possible et si oui pouvez vous me donner un exemple?
merci

PS : Ta fonction arrondir je la trouve ou ? je la déclare ?
bonne journée

Le : 03/12/2007 12:21:24
Source : FONCTION ARRONDIR COMPLÈTE. (DÉCIMALE, MULTIPLE, PAR DÉFAUT, PAR EXCÈS, AU PLUS PRÈS)

Bonjour,
Voilà je voudrais savoir comment arrondir un chiffre en fonction de ce qu'il y a derrière la virgule. Je m'explique, je réalise l'opération suivante :
R= X mod 2 et je veux que mon résultat s'arrondisse au supérieur si on a 0,5 ET à l'inférieur pour le reste.
10,5--> 11
10,45--> 10
Si quelqu'un pouvez m'aider merci
Bonne journée

Le : 25/11/2007 07:08:26
Source : AUTOCAD LT ET DDE

Au fait c bien ça pour le 2006 ?
chan = DDEInitiate("AutoCAD.r16.DDE", "System")
merci

Le : 25/11/2007 07:06:14
Source : AUTOCAD LT ET DDE

Bonjour,
Non il ne fallait pas changer de nom de variable pour régler le problème. C'est juste que cmd apparait avant la déclaration. Mais maintenant un autre porblème apparait : "Erreur d'excution 13 Incompatibilité de type. Set obj = Text1"
Est ce que ça marche avec la base que vous avez recrée? Si oui pouvez vous me l'envoyer par mail?

Le : 24/11/2007 15:44:59
Source : AUTOCAD LT ET DDE

Bonjour,
merci pour ce conseil en effet, le problème a disparu! Par contre sur la commande excuter j'ai toujours le même problème ::"erreur de compilation déclaration existante dans la portée en cours : cmd As String " que signifie cela ?
merci P.F

Le : 22/11/2007 15:41:32
Source : AUTOCAD LT ET DDE

Bonjour,
merci pour cette explication. Cela fonctionne trés bien. Mais une autre erreur est survenu : " Erreur d'excution '5'Argument ou appel de procédure incorrect" AppActivate MyAppID, True;
et le bouton éxcuter me mets toujours la même erreur :"erreur de compilation déclaration existante dans la portée en cours : cmd As String " cela vient-il de l'erreur ci dessus ?
Merci beaucoup

Le : 22/11/2007 09:17:06
Source : AUTOCAD LT ET DDE

Bonjour,
Tout d'abord je vous dit un grand merci pour votre réponse. Mais j'aurai une autre question ! excusez moi mais je suis trés nul en VB et j'ai decouvert ce logiciel avec access il n'y a pas trés longtemps. J'ai modifié le code comme vous pouvez le voir ci dessus mais il ne me lance pas autocad erreur suivante :"  MyAppID = Shell("C:Program FilesAutoCAD 2006 Fraaclt.exe", 1)    ' Exécute AutocadLT" erreur d'excution '53' fichier introuvable.

et quand je lance excuter il met  erreur de compilation déclaration existante dans la portée en cours : cmd As String
Voila si vous pouviez me dire quel est le problème ?
merci
code dans access :

Option Compare Database
'liste des library                              nom           fichier référence
'v Microsoft DAO 3.6 Object library           : (DAO)         dao360.dll     (methode ancienne)
'
'v visual basic for applications              : (VBA)         vbe6.dll
'Import Microsoft Access 9.0 Object library        : (Access)      MSACC9.olb
'v Ole Automation                             : (stdole)      stdole2.tld
'v Microsoft Office 9.0 Object Library        : (Office)      MSO9.dll
'
'#########################################################
'cet exemple fonctionne avec une table "TableCommandesAcad"
'contenant 2 champs
'champs1 : ID (numauto)
'champs2 : CommandesAcad (string)
'#########################################################
'et un formulaire contenant 3 boutons
'Bouton1 : LancerAcad
'Bouton2 : Executer
'Bouton3 : Fermer
'#########################################################
'les enregistrements de la table:
'1 : proxynotice 0         'elimine boite de dialogue indésirable au démarrage. Les autres se désactivent par Outils / Option dans autocad
'2 : filedia 0             'demande ouverture de fichier en ligne
'3 : _open                 'ouverture
'4 : c: oto.dwg           'nom du fichier
'5 : filedia 1             'fin du mode ouverture de fichier en ligne
'6 : z et                  'zoom etendu

Private Sub executer_Click()
'Ouverture table en "DAO"
   Set obj = Text1
obj.LinkMode = 0
obj.LinkTopic = "AutoCAD.r16.DDE|System"
obj.LinkMode = 2
obj.LinkTimeout = 500
obj.LinkExecute cmd
    Dim nom_de_la_table_a_ouvrir As String
    nom_de_la_table_a_ouvrir = "TableCommandesAcad"
    'Ouverture champ correspondant à table en "DAO"
    Dim nom_du_champs_a_ouvrir As String
    nom_du_champs_a_ouvrir = "CommandesAcad"

    Dim cmd As String
    Dim chan

    'initialisation DDE Autocad v.14
    'chan = DDEInitiate("AutoCAD.r14.DDE", "System")

    'initialisation DDE Autocad LT
    chan = DDEInitiate("AutoCAD.r16.DDE|System")

    'initialisation DDE Autocad 2000,  2002 ou MAP
    'chan = DDEInitiate("AutoCAD.r15.DDE", "System")

Dim db As Database
Dim rs As DAO.Recordset

Set db = CurrentDb()
Set rs = db.OpenRecordset(nom_de_la_table_a_ouvrir)

'###lire une table "DAO"
rs.MoveFirst

Do Until rs.EOF
    '###execute commande puis ferme et ouvre liaison
    '###avant de passer à suivante
    cmd = RTrim(rs(nom_du_champs_a_ouvrir)) + Chr(13)
    DDEExecute chan, cmd
    DoEvents
    DDETerminate chan
    'chan = DDEInitiate("AutoCAD.r15.DDE", "System") 'Acad2000
    chan = DDEInitiate("AutoCAD.r16.DDE|System")   'Acad LT
    rs.MoveNext
Loop
rs.Close
Set rs = Nothing

'###ferme liaison Autocad
    DDETerminate chan

End Sub
End Sub

Private Sub Fermer_Click()
On Error GoTo Err_Fermer_Click
    DoCmd.Close
Exit_Fermer_Click:
    Exit Sub
Err_Fermer_Click:
    MsgBox Err.Description
    Resume Exit_Fermer_Click
End Sub

Private Sub LancerAcad_Click()
  '3lignes pour lancer l'application DDE
    Dim MyAppID
    'MyAppID = Shell("C:Program FilesAutodesk Map 5 - Fraacad.exe", 1)    ' Exécute Autocad2000
    MyAppID = Shell("C:Program FilesAutoCAD 2006 Fraaclt.exe", 1)    ' Exécute AutocadLT
    '
    DoEvents
    AppActivate MyAppID, True
End Sub

Le : 21/11/2007 10:06:58
Source : AUTOCAD LT ET DDE

Bonjour,
voila j'ai repris ton code je l'ai collé dans un module.
J'ai crée les trois butons dans un formulaire. Et j'ai rempli le 2 champ de la table avec " circle 4,4 1.1" mais le problème c que j'ai le 2006 je ne sais pas ou vous trouvez les DDE .
Pouvez vous m'aider s'il vous plait ?
merci