J'ai une macro qui me s=E9lectionne des cellules, les=20
copient et ensuite m'ouvre notepad.
Existe t'il un moyen pour que la macro fasse un coller=20
dans notepad?
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
Frédéric Sigonneau
Bonjour,
Sub test() Workbooks.Add Range("A1:B10").Value = 25 Range("A1:B10").Copy SendKeys "^v" Shell "notepad.exe", vbNormalFocus ActiveWorkbook.Close False End Sub
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Thierry a écrit:
Bonjour et merci de me lire,
J'ai une macro qui me sélectionne des cellules, les copient et ensuite m'ouvre notepad. Existe t'il un moyen pour que la macro fasse un coller dans notepad?
Amicalement, Thierry
Bonjour,
Sub test()
Workbooks.Add
Range("A1:B10").Value = 25
Range("A1:B10").Copy
SendKeys "^v"
Shell "notepad.exe", vbNormalFocus
ActiveWorkbook.Close False
End Sub
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
Thierry a écrit:
Bonjour et merci de me lire,
J'ai une macro qui me sélectionne des cellules, les
copient et ensuite m'ouvre notepad.
Existe t'il un moyen pour que la macro fasse un coller
dans notepad?
Sub test() Workbooks.Add Range("A1:B10").Value = 25 Range("A1:B10").Copy SendKeys "^v" Shell "notepad.exe", vbNormalFocus ActiveWorkbook.Close False End Sub
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Thierry a écrit:
Bonjour et merci de me lire,
J'ai une macro qui me sélectionne des cellules, les copient et ensuite m'ouvre notepad. Existe t'il un moyen pour que la macro fasse un coller dans notepad?
Amicalement, Thierry
isabelle
bonjour Thierry,
voici une possibilité,
Sub CopierVersNotePad() Dim NP Range("A1").Copy NP = Shell("C:WINntNotePad.exe", 1) With ActiveWindow Application.SendKeys ("^v") End With End Sub
isabelle
Bonjour et merci de me lire,
J'ai une macro qui me sélectionne des cellules, les copient et ensuite m'ouvre notepad. Existe t'il un moyen pour que la macro fasse un coller dans notepad?
Amicalement, Thierry
bonjour Thierry,
voici une possibilité,
Sub CopierVersNotePad()
Dim NP
Range("A1").Copy
NP = Shell("C:WINntNotePad.exe", 1)
With ActiveWindow
Application.SendKeys ("^v")
End With
End Sub
isabelle
Bonjour et merci de me lire,
J'ai une macro qui me sélectionne des cellules, les
copient et ensuite m'ouvre notepad.
Existe t'il un moyen pour que la macro fasse un coller
dans notepad?
Sub CopierVersNotePad() Dim NP Range("A1").Copy NP = Shell("C:WINntNotePad.exe", 1) With ActiveWindow Application.SendKeys ("^v") End With End Sub
isabelle
Bonjour et merci de me lire,
J'ai une macro qui me sélectionne des cellules, les copient et ensuite m'ouvre notepad. Existe t'il un moyen pour que la macro fasse un coller dans notepad?