Ouvrir une application avec Excel

[Le rital]

Bonjour le forum,

Je cherche une méthode qui me permette d'ouvrir

une appliclation comme (word, PSP, etc)

une macro ferait l'affaire

Cordialement

Le rital

 

[michel]

bonjour Le rital

ci joint quelques exemples

Sub OuvrirWord()
Dim WordObj As Object
Set WordObj = CreateObject("Word.Application")
WordObj.Visible = True
WordObj.documents.Add
End Sub

Sub LanceCalculatrice()
Dim RetVal
RetVal = Shell("C:\WINDOWS\CALC.EXE", 1)
End Sub

Sub OuvrirUnFichierPowerPoint()
Dim Cible
Cible = Shell("POWERPNT.EXE ""C:\Mes documents\MonFichier.ppt """, 1)
End Sub

bon apres midi
michel

 

[Le rital]

Bonjour Michel,

Merci pour les macros......

Cordialement

Le rital

 

[Corinne]

ouvrir un fichier par macro

J'essai la troisième macro pour ouvir un fichier word avec le code suivant sans résultat.


Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 01/12/2003
'

'
Dim Cible
Cible = Shell("C:\Program Files\Microsoft Office\Office10\WINWORD.EXE""C:\Perso\\Mon fichier""", 1)


End Sub

Je ne voi pas le bug, ce doit être un problème de syntax.
merci pour les corrections

Bonne journée

 

[michel]

Re: ouvrir un fichier par macro

bonsoir Corinne

si tu as une erreur type 53 :
verifies le chemin d'acces à winword
essayes aussi en indiquant uniquement le nom de l'application
Cible = Shell("WINWORD.EXE"..........

si tu as un message du type :
"impossible d'ouvrir le document"
vérifies la saisie du chemin et du nom de ton document

bonne soirée
michel