Je remercie Titi, LSteph, mbfac et Modeste pour les réponses au problème des
SendKeys.
Les SendKeys fonctionnent à merveille mais je n'arrive pas à retourner le
Focus sur mon fichier excel.
Voici le code que j'utilise:
Sub test()
Dim Ret
nom = ActiveWorbook.Name
Ret = Shell("C:\Program Files\Adobe\Acrobat 7.0\Reader\AcroRd32.exe _
C:\Documents and Settings\Stéphane\Mes documents\test.pdf", vbNormalFocus)
SendKeys "^a^c%{F4}^v"
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
LSteph
Bonjour, Quelques doutes sur le chemin que tu as donné (dans le Ret=shell il ne faut pas couper... et à moins que tu ne l'ai créé pour l'occasion Stéphane est ici)
donc ici à adapter:
''''*** Private Declare Function BringWindowToTop _ Lib "user32" (ByVal hwnd As Long) As Long
Sub test() Dim Ret, myhnd As Long myhnd = Application.hwnd Ret = Shell("C:Program FilesAdobeAcrobat 7.0ReaderAcroRd32.exe C:Documents and SettingsStéphaneMes documentsallstones.pdf", vbNormalFocus) AppActivate Ret, 1 SendKeys "^a^c%{F4}^v", 1
"A QUEMENER" a écrit dans le message de news: do1l8s$r78$
Bonsoir Tous,
Je remercie Titi, LSteph, mbfac et Modeste pour les réponses au problème des SendKeys. Les SendKeys fonctionnent à merveille mais je n'arrive pas à retourner le Focus sur mon fichier excel. Voici le code que j'utilise:
Sub test() Dim Ret nom = ActiveWorbook.Name Ret = Shell("C:Program FilesAdobeAcrobat 7.0ReaderAcroRd32.exe _ C:Documents and SettingsStéphaneMes documentstest.pdf", vbNormalFocus) SendKeys "^a^c%{F4}^v"
impossible d'obtenir le Focus sur mon document excel.
Qqu'un peut-il m'aider D'avance merci cordialement andré
Bonjour,
Quelques doutes sur le chemin que tu as donné
(dans le Ret=shell il ne faut pas couper...
et à moins que tu ne l'ai créé pour l'occasion Stéphane est ici)
donc ici à adapter:
''''***
Private Declare Function BringWindowToTop _
Lib "user32" (ByVal hwnd As Long) As Long
Sub test()
Dim Ret, myhnd As Long
myhnd = Application.hwnd
Ret = Shell("C:Program FilesAdobeAcrobat 7.0ReaderAcroRd32.exe
C:Documents and SettingsStéphaneMes documentsallstones.pdf",
vbNormalFocus)
AppActivate Ret, 1
SendKeys "^a^c%{F4}^v", 1
"A QUEMENER" <rozavel@cario.fr> a écrit dans le message de news:
do1l8s$r78$1@aphrodite.grec.isp.9tel.net...
Bonsoir Tous,
Je remercie Titi, LSteph, mbfac et Modeste pour les réponses au problème
des SendKeys.
Les SendKeys fonctionnent à merveille mais je n'arrive pas à retourner le
Focus sur mon fichier excel.
Voici le code que j'utilise:
Sub test()
Dim Ret
nom = ActiveWorbook.Name
Ret = Shell("C:Program FilesAdobeAcrobat 7.0ReaderAcroRd32.exe _
C:Documents and SettingsStéphaneMes documentstest.pdf", vbNormalFocus)
SendKeys "^a^c%{F4}^v"
Bonjour, Quelques doutes sur le chemin que tu as donné (dans le Ret=shell il ne faut pas couper... et à moins que tu ne l'ai créé pour l'occasion Stéphane est ici)
donc ici à adapter:
''''*** Private Declare Function BringWindowToTop _ Lib "user32" (ByVal hwnd As Long) As Long
Sub test() Dim Ret, myhnd As Long myhnd = Application.hwnd Ret = Shell("C:Program FilesAdobeAcrobat 7.0ReaderAcroRd32.exe C:Documents and SettingsStéphaneMes documentsallstones.pdf", vbNormalFocus) AppActivate Ret, 1 SendKeys "^a^c%{F4}^v", 1
"A QUEMENER" a écrit dans le message de news: do1l8s$r78$
Bonsoir Tous,
Je remercie Titi, LSteph, mbfac et Modeste pour les réponses au problème des SendKeys. Les SendKeys fonctionnent à merveille mais je n'arrive pas à retourner le Focus sur mon fichier excel. Voici le code que j'utilise:
Sub test() Dim Ret nom = ActiveWorbook.Name Ret = Shell("C:Program FilesAdobeAcrobat 7.0ReaderAcroRd32.exe _ C:Documents and SettingsStéphaneMes documentstest.pdf", vbNormalFocus) SendKeys "^a^c%{F4}^v"
impossible d'obtenir le Focus sur mon document excel.
Qqu'un peut-il m'aider D'avance merci cordialement andré
A QUEMENER
LSteph,
You are the BEST MERCI andré
"LSteph" a écrit dans le message de news: uEV$
Bonjour, Quelques doutes sur le chemin que tu as donné (dans le Ret=shell il ne faut pas couper... et à moins que tu ne l'ai créé pour l'occasion Stéphane est ici)
donc ici à adapter:
''''*** Private Declare Function BringWindowToTop _ Lib "user32" (ByVal hwnd As Long) As Long
Sub test() Dim Ret, myhnd As Long myhnd = Application.hwnd Ret = Shell("C:Program FilesAdobeAcrobat 7.0ReaderAcroRd32.exe C:Documents and SettingsStéphaneMes documentsallstones.pdf", vbNormalFocus) AppActivate Ret, 1 SendKeys "^a^c%{F4}^v", 1
"A QUEMENER" a écrit dans le message de news: do1l8s$r78$
Bonsoir Tous,
Je remercie Titi, LSteph, mbfac et Modeste pour les réponses au problème des SendKeys. Les SendKeys fonctionnent à merveille mais je n'arrive pas à retourner le Focus sur mon fichier excel. Voici le code que j'utilise:
Sub test() Dim Ret nom = ActiveWorbook.Name Ret = Shell("C:Program FilesAdobeAcrobat 7.0ReaderAcroRd32.exe _ C:Documents and SettingsStéphaneMes documentstest.pdf", vbNormalFocus) SendKeys "^a^c%{F4}^v"
impossible d'obtenir le Focus sur mon document excel.
Qqu'un peut-il m'aider D'avance merci cordialement andré
LSteph,
You are the BEST
MERCI
andré
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
uEV$877AGHA.1088@tk2msftngp13.phx.gbl...
Bonjour,
Quelques doutes sur le chemin que tu as donné
(dans le Ret=shell il ne faut pas couper...
et à moins que tu ne l'ai créé pour l'occasion Stéphane est ici)
donc ici à adapter:
''''***
Private Declare Function BringWindowToTop _
Lib "user32" (ByVal hwnd As Long) As Long
Sub test()
Dim Ret, myhnd As Long
myhnd = Application.hwnd
Ret = Shell("C:Program FilesAdobeAcrobat 7.0ReaderAcroRd32.exe
C:Documents and SettingsStéphaneMes documentsallstones.pdf",
vbNormalFocus)
AppActivate Ret, 1
SendKeys "^a^c%{F4}^v", 1
"A QUEMENER" <rozavel@cario.fr> a écrit dans le message de news:
do1l8s$r78$1@aphrodite.grec.isp.9tel.net...
Bonsoir Tous,
Je remercie Titi, LSteph, mbfac et Modeste pour les réponses au problème
des SendKeys.
Les SendKeys fonctionnent à merveille mais je n'arrive pas à retourner le
Focus sur mon fichier excel.
Voici le code que j'utilise:
Sub test()
Dim Ret
nom = ActiveWorbook.Name
Ret = Shell("C:Program FilesAdobeAcrobat 7.0ReaderAcroRd32.exe _
C:Documents and SettingsStéphaneMes documentstest.pdf",
vbNormalFocus)
SendKeys "^a^c%{F4}^v"
Bonjour, Quelques doutes sur le chemin que tu as donné (dans le Ret=shell il ne faut pas couper... et à moins que tu ne l'ai créé pour l'occasion Stéphane est ici)
donc ici à adapter:
''''*** Private Declare Function BringWindowToTop _ Lib "user32" (ByVal hwnd As Long) As Long
Sub test() Dim Ret, myhnd As Long myhnd = Application.hwnd Ret = Shell("C:Program FilesAdobeAcrobat 7.0ReaderAcroRd32.exe C:Documents and SettingsStéphaneMes documentsallstones.pdf", vbNormalFocus) AppActivate Ret, 1 SendKeys "^a^c%{F4}^v", 1
"A QUEMENER" a écrit dans le message de news: do1l8s$r78$
Bonsoir Tous,
Je remercie Titi, LSteph, mbfac et Modeste pour les réponses au problème des SendKeys. Les SendKeys fonctionnent à merveille mais je n'arrive pas à retourner le Focus sur mon fichier excel. Voici le code que j'utilise:
Sub test() Dim Ret nom = ActiveWorbook.Name Ret = Shell("C:Program FilesAdobeAcrobat 7.0ReaderAcroRd32.exe _ C:Documents and SettingsStéphaneMes documentstest.pdf", vbNormalFocus) SendKeys "^a^c%{F4}^v"
impossible d'obtenir le Focus sur mon document excel.
Qqu'un peut-il m'aider D'avance merci cordialement andré
LSteph
Bonsoir André, ;-) c'est avec plaisir mais pour être tout à fait honnête si la solution fonctionne, reste que sa nécessité m'échappe encore. J'aurais pensé que la fermeture d'Acrobat rendrait spontanément le focus à Excel.
Cordialement.
lSteph
"A QUEMENER" a écrit dans le message de news: do3vla$2fv$
LSteph,
You are the BEST MERCI andré
"LSteph" a écrit dans le message de news: uEV$
Bonjour, Quelques doutes sur le chemin que tu as donné (dans le Ret=shell il ne faut pas couper... et à moins que tu ne l'ai créé pour l'occasion Stéphane est ici)
donc ici à adapter:
''''*** Private Declare Function BringWindowToTop _ Lib "user32" (ByVal hwnd As Long) As Long
Sub test() Dim Ret, myhnd As Long myhnd = Application.hwnd Ret = Shell("C:Program FilesAdobeAcrobat 7.0ReaderAcroRd32.exe C:Documents and SettingsStéphaneMes documentsallstones.pdf", vbNormalFocus) AppActivate Ret, 1 SendKeys "^a^c%{F4}^v", 1
"A QUEMENER" a écrit dans le message de news: do1l8s$r78$
Bonsoir Tous,
Je remercie Titi, LSteph, mbfac et Modeste pour les réponses au problème des SendKeys. Les SendKeys fonctionnent à merveille mais je n'arrive pas à retourner le Focus sur mon fichier excel. Voici le code que j'utilise:
Sub test() Dim Ret nom = ActiveWorbook.Name Ret = Shell("C:Program FilesAdobeAcrobat 7.0ReaderAcroRd32.exe _ C:Documents and SettingsStéphaneMes documentstest.pdf", vbNormalFocus) SendKeys "^a^c%{F4}^v"
impossible d'obtenir le Focus sur mon document excel.
Qqu'un peut-il m'aider D'avance merci cordialement andré
Bonsoir André,
;-) c'est avec plaisir
mais pour être tout à fait honnête si la solution fonctionne, reste
que sa nécessité m'échappe encore.
J'aurais pensé que la fermeture d'Acrobat rendrait spontanément le focus
à Excel.
Cordialement.
lSteph
"A QUEMENER" <rozavel@cario.fr> a écrit dans le message de news:
do3vla$2fv$1@aphrodite.grec.isp.9tel.net...
LSteph,
You are the BEST
MERCI
andré
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
uEV$877AGHA.1088@tk2msftngp13.phx.gbl...
Bonjour,
Quelques doutes sur le chemin que tu as donné
(dans le Ret=shell il ne faut pas couper...
et à moins que tu ne l'ai créé pour l'occasion Stéphane est ici)
donc ici à adapter:
''''***
Private Declare Function BringWindowToTop _
Lib "user32" (ByVal hwnd As Long) As Long
Sub test()
Dim Ret, myhnd As Long
myhnd = Application.hwnd
Ret = Shell("C:Program FilesAdobeAcrobat 7.0ReaderAcroRd32.exe
C:Documents and SettingsStéphaneMes documentsallstones.pdf",
vbNormalFocus)
AppActivate Ret, 1
SendKeys "^a^c%{F4}^v", 1
"A QUEMENER" <rozavel@cario.fr> a écrit dans le message de news:
do1l8s$r78$1@aphrodite.grec.isp.9tel.net...
Bonsoir Tous,
Je remercie Titi, LSteph, mbfac et Modeste pour les réponses au problème
des SendKeys.
Les SendKeys fonctionnent à merveille mais je n'arrive pas à retourner
le Focus sur mon fichier excel.
Voici le code que j'utilise:
Sub test()
Dim Ret
nom = ActiveWorbook.Name
Ret = Shell("C:Program FilesAdobeAcrobat 7.0ReaderAcroRd32.exe _
C:Documents and SettingsStéphaneMes documentstest.pdf",
vbNormalFocus)
SendKeys "^a^c%{F4}^v"
Bonsoir André, ;-) c'est avec plaisir mais pour être tout à fait honnête si la solution fonctionne, reste que sa nécessité m'échappe encore. J'aurais pensé que la fermeture d'Acrobat rendrait spontanément le focus à Excel.
Cordialement.
lSteph
"A QUEMENER" a écrit dans le message de news: do3vla$2fv$
LSteph,
You are the BEST MERCI andré
"LSteph" a écrit dans le message de news: uEV$
Bonjour, Quelques doutes sur le chemin que tu as donné (dans le Ret=shell il ne faut pas couper... et à moins que tu ne l'ai créé pour l'occasion Stéphane est ici)
donc ici à adapter:
''''*** Private Declare Function BringWindowToTop _ Lib "user32" (ByVal hwnd As Long) As Long
Sub test() Dim Ret, myhnd As Long myhnd = Application.hwnd Ret = Shell("C:Program FilesAdobeAcrobat 7.0ReaderAcroRd32.exe C:Documents and SettingsStéphaneMes documentsallstones.pdf", vbNormalFocus) AppActivate Ret, 1 SendKeys "^a^c%{F4}^v", 1
"A QUEMENER" a écrit dans le message de news: do1l8s$r78$
Bonsoir Tous,
Je remercie Titi, LSteph, mbfac et Modeste pour les réponses au problème des SendKeys. Les SendKeys fonctionnent à merveille mais je n'arrive pas à retourner le Focus sur mon fichier excel. Voici le code que j'utilise:
Sub test() Dim Ret nom = ActiveWorbook.Name Ret = Shell("C:Program FilesAdobeAcrobat 7.0ReaderAcroRd32.exe _ C:Documents and SettingsStéphaneMes documentstest.pdf", vbNormalFocus) SendKeys "^a^c%{F4}^v"