Ouvrir Notepad avec Excel

Bonjour a tous

Voici un petit problème que les développeur plus chevronné que moi résoudront sans doute;
Je veux ouvrir le logiciel Notepad (ou Bloc-Notes) dans ma macro Excel. J'ai essayer de voir le code avec l'enregistreur de macro, mais rien (aucun code) n'est apparue. Comme je fais peu de code (uniquement quand J'en ai vraiment besoin pour me faire des macro) je ne sais pas si cela se fait. Puisque c'est une application Microsoft et que Excel est aussi une application Microsoft, cela doit surement se faire... mais comment?

Merci à tous ceux qui le savent et qui me donne la chance de pouvoir continuer.

Salut,

Comme ca par exemple

Code:

---

1 2 3

Sub Notepad() Shell "notepad", vbNormalFocus End Sub

---

++
Minick

Je vais l'essayer, mais je doute que ca fonctionne car je veux le mettre dans la macro. La macro commence ainsi

Code:

---

1 2 3 4 5 6 7 8

Columns("A:A").Select Range("A64").Activate Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Columns("A:A").Select Range("A64").Activate Selection.Copy

---

et c'est là que je veux ouvrir pour coller ma liste.

Bonjour,

essaies comme ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub c()   ' vbHide 0 La fenêtre est masquée et activée. La constante vbHide n'est pas applicable sur les plates-formes Macintosh. ' vbNormalFocus 1 La fenêtre est activée et rétablie à sa taille et à sa position d'origine. ' vbMinimizedFocus 2 La fenêtre est affichée sous forme d'icône et activée. ' vbMaximizedFocus 3 La fenêtre est agrandie et activée. ' vbNormalNoFocus 4 La fenêtre est rétablie à sa taille et à sa position les plus récentes. La fenêtre active reste active. ' vbMinimizedNoFocus 6 La fenêtre est affichée sous forme d'icône. La fenêtre active reste active.   Monshell = Environ("windir") & Application.PathSeparator & "system32" & Application.PathSeparator & "notepad.exe" 'AGR/KO Monshell = Environ("ComSpec") & Application.PathSeparator & "'dir'" ' & "calc.exe" ' Monshell = "C:\WINDOWS\system32\" & "calc.exe"   On Error GoTo gesterror RetVal = Shell(Monshell, 1)   gesterror: If Err.Number > 0 Then MsgBox Err.Number & " : " & Err.Description & vbCrLf & Monshell End If End Sub

---

Toutes mes excuses Minick, ca fonctionne bien:ccool:

Bonjour Minick,
désolé je n'avais pas raffraichi

Dans ce cas il est possible d'ouvrir notepad et de faire un sendkey CTRL + v

Mais une fois rendu dans notepad, comment on fait pour coller l'information. J'ai fait un Selection.Paste et ce ne foctionne pas???

Une autre idée, ecrire la liste dans un nouveau classeur et le sauvegardé comme un fichier text, il doit y avoir pas mal d'exemples dans le forum.

re,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Dim Id As Variant   Id = Shell("notepad")   Application.Wait Now + TimeValue("00:00:02")     Columns("A:A").Select Range("A64").Activate Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Columns("A:A").Select Range("A64").Activate Selection.Copy   AppActivate Id Application.SendKeys "^V"

---

Comme ca

Mais comme dit aalex_38, en passant par un classeur c'est peut etre mieux.

++
Minick

Bonne idée, je vais essayer à la main pour voir si ca fonctionne (c'est pour une application crystal report).

Ca marche très bien avec un classeur. Merci de votre aide:ccool: