Lance l'Explorateur sous Windows 95-98

Sub LanceProgramme()
ValRetour = Shell("C:\WINDOWS\EXPLORER.EXE", 1)
Application.Wait Now + TimeValue("00:00:04")
SendKeys "%{F4}", True ' Envoie Alt+F4 pour fermer l'application EXPLORER.
End Sub

Sub OuvreWord()
MyAppID = Shell("Winword.EXE C:\ajeter\test.doc", 1)
AppActivate MyAppID
End Sub

'Fonctionne lorqu'il y a un espace dans le nom du repertoire avec ajout de ""

MyAppID = Shell("Winword.EXE ""C:\Mes documents\test.doc""", 1)

Ouvre un fichier TXT (test.txt)

Sub OuvreTXT()
Workbooks.OpenText Filename:="C:\ajeter\TEST.TXT", _
Origin:=xlWindows, StartRow:=1, _
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, _
Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1))
End Sub

Pour exécuter une macro d'un autre classeur ouvert

Sub Essai()
Run ("SiAlors.xls!Module2.ExMessage")
End Sub

Teste la version d'Excel en cours

Sub testVersion()
Dim myvers As String
myvers = Application.Version
MsgBox ("Microsoft Excel" & " " & myvers)
End Sub

Quelle est la résolution d'écran ?

Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, _
ByVal nIndex As Long) As Long
Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, _
ByVal hdc As Long) As Long

Sub RésolutionEcran()
Dim Pix As Long
Pix = GetDC(0)
MsgBox "La résolution est : " & GetDeviceCaps(Pix, 8) _
& " * " & GetDeviceCaps(Pix, 10) & " pixels"
ReleaseDC 0, Pix
End Sub

Inscrit la liste de tous les noms dans le classeur (Macros y compris)

Sub nom()
Selection.ListNames
End Sub

Supprime tous les noms dans le classeur

Sub Supnom()
Dim n As Name
For Each n In Names
n.Delete
Next n
End Sub

Exporte un graphique au format JPG

Sub GraphJPG()
Dim MyChart As Chart
Set MyChart = ActiveSheet.ChartObjects(1).Chart
MyChart.Export FileName:="C:\ajeter\graph1.jpg", filtername:="JPG"
End Sub

Comment exécuter une macro Auto-Open en ouvrant un classeur par macro ?

Lorque l'on ouvre un fichier par macro les macros Auto_Open ne s'exécutent pas!!!
En effet si l'on veut, par macro à la fois ouvrir un fichier et exécuter sa macro Auto_Open
il faut utiliser une commande spéciale: "RunAutoMacros"

Sub OuvreLanceAutoOpen()
Workbooks.Open "test.XLS"
ActiveWorkbook.RunAutoMacros xlAutoOpen
End Sub

Easter Eggs du Laboratoire des Technologies Microsoft

Un easter egg est un programme ou une fonction cachée dans vos logiciels préférés.
Ceux-ci se déclenchent uniquement aprés une série d'actions bien précise.
Ils ont été créés par les programmeurs, qui signent ainsi leur logiciel. MS

Un petit simulateur de vol dans Excel 97

1. Lancez Excel 97.
2. Appuyez sur F5.
3. Dans la zone référence, mettez X97:L97, cliquez sur OK.
4. Appuyez sur la touche "Tabulation", normalement, on se retrouve en M97.
5. Gardez appuyées les touches "CTRL" et "SHIFT" puis cliquez sur l'icône assistant graphes
(c'est une icône avec un graphique en barres).
Le petit simulateur fonctionne avec la souris et les boutons gauche/droite pour marche avant/arrière.


Les développeurs d' Excel 2000

1. Tout d'abord, ouvrez Microsoft Excel.
2. Ensuite tapez F5 et écrivez X2000:L2000, puis appuyer sur entrée.
3. Appuyer sur la touche tabulation une seule fois.
4. Maintenez enfoncées les touches CTRL et SHIFT.
5. Appuyez enfin sur l'icône de l'assistant graphique, il ressemble à un graphique en barres, en haut de l'écran.
Notez que cet easter ne fonctionne que sous Excel 2000.


Un Jeu de Course en 3D caché dans Excel 2000

1. Démarrez Excel 2000.
2. Dans le menu Fichier, faites 'Sauver en tant que page Web'.
3. Choisissez 'Publier' et 'Ajouter interactivité'.
4. Sauvez votre page en .htm sur votre disque.
5. Ouvrez le .htm avec votre IE. Vous avez à présent Excel au milieu de votre page.
6. Allez à la ligne 2000, sélectionnez toute la ligne.
7. Puis, à l'aide de la touche Tabulation, déplacez vous jusqu'à la colonne WC.
8. Utilisez les touches SHIFT+CTRL+ALT et cliquez sur le logo Office en haut à gauche.
9. Utilisez les flèches pour conduire, espace pour tirer, O pour lâcher de l'huile, et H pour les lumières.