Discussion :

[patricktoulon]

bonjour a tous
que manque t il dans la ligne "r=...."
j'ai le message"la methode run de l'object... a echoué
le N°erreur est 2147024894

Code :

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

1
2
3
4
Sub test3()
Set WshShell = CreateObject("WScript.Shell")
r = WshShell.Run("C:\Program Files (x86)\Adobe\Reader 9.0\Reader\AcroRd32.exe " & "C:\Users\polux\Desktop\exemple.pdf", 1, True)
End Sub

[joe.levrai]

Hello,

faut pas doubler les guillemets quand le chemin contient des espaces ?? Ce qui revient donc à les tripler ^^

[Jipété]

que manque t il dans la syntaxe

Deux traits d'union ?

Désolé, pas pu résister : que manque-t-il dans la syntaxe ? Plus rien, maintenant

Forum francophone quand même, hein...

Et tiens, pour me faire pardonner, si tu remplaces ton "é" dans :résolu: de ta signature par un bête "e" (oui, je sais, ça surprend), elle sera encore plus belle :

[patricktoulon]

oui Joe j'avais trouvé entre temps

Code :

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

1
2
With CreateObject("WScript.Shell")
        retour = .Run("""C:\Program Files (x86)\Adobe\Reader 9.0\Reader\AcroRd32.exe""" & "C:\Users\polux\Desktop\exemple.pdf", 1, True)

pat contre j'ai un soucis avec true visiblement il est bloquant tant que le Reader est ouvert

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
19
Sub test3()
    Set memo = CreateObject("htmlfile")
    clearall = memo.parentwindow.clipboardData.setData("TEXT", "") 'vide le clipboard
    With CreateObject("WScript.Shell")
        retour = .Run("""C:\Program Files (x86)\Adobe\Reader 9.0\Reader\AcroRd32.exe""" & "C:\Users\polux\Desktop\exemple.pdf", 1, True)
       ' Application.Wait (Now + TimeValue("00:00:01"))    'pause
        If retour = 1 Then
            .SendKeys "^a", True     'selectionne tout
            .SendKeys "^c", True    'copy
            Application.Wait (Now + TimeValue("00:00:01"))    'pause
            .SendKeys "%{F4}", True    'ferme la fenetre
            '----------------------------------------------------------------------------------------
            'récupération du text dans le presse papier dans la variable T
            t = memo.parentwindow.clipboardData.GetData("TEXT")
            '-------------------
        End If
    End With
    MsgBox t
End Sub

pour le Français "ien a fout'"c'est dimanche

[Jipété]

pour le Français "ien a fout'"c'est dimanche

La règle ne précise pas que le dimanche est exclu, or tout utilisateur de dvlp est censé se conformer aux règles...

Sans compter le respect vis-à-vis des autres (nombreux) lecteurs.

[joe.levrai]

Bonjour,

il y a, d'une part, significative différence entre sobriété et zèle

Postez vos messages en bon français si possible.

Nombre d'utilisateurs ont des compétences indiscutables en programmation. Cela est le point essentiel de ce forum, en y ajoutant un soupçon de pédagogie dans l'aide apportée.
Cependant, certains parmi nous n'ont pas une aussi grande aisance avec la rigueur de notre si difficile langue.
Doit-on pour autant jeter le bébé avec l'eau du bain ? Vaste question !

D'autre part :

Afin de conserver un forum le plus lisible possible, developpez.com se réserve le droit de modifier tous les messages pour en corriger les fautes d'orthographe.

Je (et probablement d'autres) t'invite à postuler pour modérer le forum afin de ne plus seulement soulever des états de faits, mais à également les démontrer par une modération claire et pédagogique (ce qui ne signifie pas que précédemment ce n'était pas le cas)

A ce titre, après lecture attentive de la règle suivante, reprise ci-après :

Les enrichissements de texte ne servent pas à mettre tout votre message en gras taille 40 en rouge.

Ta description d'utilisateur pique vraiment les yeux, en rouge et taille avoisinant probablement 40 ?
Tu vois, nul n'est irréprochable


Ps : Le sot du roi, à cheval, transportait un seau et le sceau royal. Soudain le cheval chût, les trois ??? tombèrent dans le caniveau.
Remplacer ??? par le juste mot pour embrasser les trois éléments


EDIT : il est également fort curieux de jouer les chantres de la syntaxe, tout en étant capable d'écrire cette phrase-ci

Désolé, pas pu résister : que manque-t-il dans la syntaxe ? Plus rien, maintenant

Car ceci est un vrai problème de syntaxe ... contrairement à Patrick qui, de son côté, nous habitue plutôt a des problèmes d'orthographe/grammaire (enfin, problème est un grand mot à mes yeux).

Oui, la langue française est rigoureuse, ces deux notions ne concernent pas du tout la même chose.

[Invité]

Bonjour,
Les espaces sont vue comment des paramètres et par définition les paramètres sont séparés par des espaces!

On encadre chaque termes par des doubles cotes et ce même pour lancer une application sen paramètres mais avec des espaces.

Je préfère chr(34) c'est plus lisible et plus facile que """""""""!

Code :

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

set AdobApp=creatobject("Acrobat.CAcroAp")

Pour ce qui concerne l'orthographe mon pseudo est claire!

Je viens ici uniquement pour me détendre et je n'es cure de l'horographe pendant mes loisirs!
Si ca pose problème pas grave je me casse!

Victor Hugo faisait de fautes d'orthographe!

[patricktoulon]

bon me voala reviendu j'y voulé biain savoar commant fère un jesttion d'attante avec cett object

[Invité]

Bonjour Patrick,
Tu t'es trompé c'est savora de Dijon!

http://www.khk.net/wordpress/2009/03...-introduction/

[patricktoulon]

bonjour Robert
je l'ai pas cette librairie visiblement

[Invité]

Il faut télécharger acrobate mais tu as sûrement un équivalent

[Jipété]

Victor Hugo faisait de fautes d'orthographe!

Peut-être.
Sans doute.
Mais ça n'avait aucune importance en ce temps-là car avant que ses romans ne se retrouvent en librairie, ils étaient passés sous les yeux attentifs des correcteurs, un métier qui disparaît pour cause de réduction des coûts, et avec lui les textes propres et bien corrigés qui respectaient les lecteurs.

Pour ce qui concerne l'orthographe mon pseudo est claire!

Trop fastoche l'excuse bidon !

Je viens ici uniquement pour me détendre et je n'es cure de l'horographe pendant mes loisirs!
Si ca pose problème pas grave je me casse!

Chiche !

Quant à l'autre (que même pas je le cite, j'aurais trop honte), au lieu de dire merci et de corriger pendant qu'il est temps, ben non, il s'engraine et du coup, plutôt que de reconnaître que j'ai raison, sa signature va rester pourrave.
On se demande ce qui se passe dans la tête le yaourt entre les deux oreilles des gens.
Et le respect d'autrui, on s'assoit dessus et on pousse très fort, c'est ça ?

'tain, vous ne donnez vraiment pas envie qu'on vous file un coup de main pour le code...

[Invité]

Chiche

Je l'ai déjà fais, j'ai renoncé à mes 6 étoiles pour t'informer!

Penses tu apporter autant a ca forum pour justifier cette pédantes remarque?

[joe.levrai]

Quant à l'autre (que même pas je le cite, j'aurais trop honte)
[...]
On se demande ce qui se passe dans la tête le yaourt entre les deux oreilles des gens.
Et le respect d'autrui, on s'assoit dessus et on pousse très fort, c'est ça ?.

Balaye devant ta porte, et va voir ailleurs si d'autres pédants y sont, ici on tente d'apporter de l'aide sur des problématiques ayant trait au VBA.

A faire ainsi le malin, ça en devient pathétique.

[Invité]

Jipété au regard du nombre de points obtenus et le nombre de réponses poster, tu n'as pas l'aire d'être une lumière!

Mais pour ta décharge tout le monde apprécie pas forcement tes leçons d'horographe!

[patricktoulon]

bon jipété tu es gentil tu laisse tomber

ta petite guéguerre contre les fautes d'orthographe tu va la faire ailleurs tu pourrie mon post avec tes chichis
donc stop


@robert non je n'est pas ces librairie ,j'en ai d'autre mais les exemples ne fonctionnent pas avec

[Jipété]

ici on tente d'apporter de l'aide sur des problématiques ayant trait au VBA.

Ah ouais ?

Code :

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

Set WshShell = CreateObject("WScript.Shell")

Ben vous avez un gros souci, alors !

ta petite guéguerre contre les fautes d'orthographe tu va la faire ailleurs tu pourrie mon post avec tes chichis
donc stop

Du verbe pourrier ?
Le problème avec moi, c'est que si on me prend à l'envers, c'est comme tirer sur un brin de la pelote, après y a tout qui vient...

Tu vois, comme déjà expliqué (mais il faut beaucoup et longtemps taper sur le clou pour qu'il rentre), tu aurais pris l'autre chemin et tu aurais un titre correct et décent, et une belle signature. Mais tu préfères la jouer fier et droit dans ses bottes, ridicule, quoi, tu vas te faire monter la bile et la tension, àmha.

Monter sur vos grands chevaux ne vous autorise pas pour autant à conchier les règles du forum que vous avez acceptées de respecter en vous inscrivant.

[joe.levrai]

Ta remarque est encore une fois peu judicieuse, et quand j'en viens à lire des points soulevés relevant du "détail" face à tout ce que j'ai pu dire, ça prête également à sourire, on cherche le détail quand le principal n'est plus soutenable.

Ce n'est pas parce qu'on utilise un objet externe au VBA qu'on s'écarte du VBA. On pourrait être un génie du HTML (par exemple) qu'il demeurerait impossible de l'utiliser dans des procédures VBA si on ne maîtrise pas ce langage.
C'est d'ailleurs tout l'objet du problème de ce sujet : utilisation d'objets externes en VBA, qui pose simplement problème dans la syntaxe (ça te parle ce mot) à employer pour que l'interpréteur VBA l'accepte et le comprenne. Nul part la problématique posait sur l'objet en lui-même (fonctionnement, principe, possibilités)

A ce titre, les utilisateurs d'objets tels des Dictionnaires vont poster dans la section windows ? Ailleurs ?

Allons, il faut savoir se retirer quand le moment est venu...

EDIT : nous remercions par avance notre Savant de la langue française de corriger la ponctuation de sa signature ... il manque un signe ...

[patricktoulon]

Bonjour
Bref j'ai eu de tout sauf quelque chose sur ce que j'ai demandé
alors je répète
comment faire une gestion d'attente sur un shell ou Wsshell autrement qu'avec des pause "wait"

Code :

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

1
2
R=shell(progamme,fichier)
'gestion d'attente

ou

Code :

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

1
2
3
With CreateObject("WScript.Shell")
        retour = .Run("""C:\Program Files (x86)\Adobe\Reader 9.0\Reader\AcroRd32.exe""" & "C:\Users\polux\Desktop\exemple.pdf", 1, False)
    'gestion d'attente

[Invité]

Bonjour Patrick,

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
19
Private Type SYSTEMTIMExAnnee As Integer
xMois As Integer
xJourSemaine As Integer
xJour As Integer
xHeure As Integer
xMinute As Integer
xSeconde As Integer
xMilliseconde As Integer
End Type
Private Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Sub test()
Dim TempsSysteme As SYSTEMTIME, TempsTemporaire
 GetSystemTime TempsSysteme
a = TempsSysteme.xMilliseconde
 While a + 100 > TempsSysteme.xMilliseconde
 GetSystemTime TempsSysteme
    DoEvents
Wend
End Sub