Discussion :

[Prekestolen]

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.

[Minick]

Salut,

Comme ca par exemple

Code :

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

1
2
3
Sub Notepad()
    Shell "notepad", vbNormalFocus
End Sub

++
Minick

[Prekestolen]

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

Code :

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

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.

[Prekestolen]

Toutes mes excuses Minick, ca fonctionne bien

[Prekestolen]

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

[aalex_38]

Bonjour,

essaies comme ça :

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
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

[aalex_38]

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

[aalex_38]

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.

[Minick]

re,

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
    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

[Prekestolen]

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

[Prekestolen]

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