Ouvrir plusieurs fichiers à la fois !!!

Salut hasardeux,
Pour éviter l'affichage de la boîte d'avertissement, je sais faire mais les
macros sont activées par contre je ne sais pas comment neutraliser les
macros. Voir peut être avec un SendKeys "{ENTER}" mais je ne sais pas.
Pour mettre à jour, alors là il peut y avoir une multitudes de façons, tout
dépend de ce que tu veux faire.
Pour ouvrir plusieurs fichiers à la fois :

Private Declare Function ShellExecute Lib _
"shell32.dll" Alias "ShellExecuteA" ( _
ByVal hwnd As Long, _
ByVal lpszOp As String, _
ByVal lpszFile As String, _
ByVal lpszParams As String, _
ByVal lpszDir As String, _
ByVal FsShowCmd As Long) As Long

Sub OuvreFichiers(ByVal Fichier As String)
Dim Retour As Long

If Dir(Fichier) = "" Then
MsgBox "Le fichier " & Fichier & " est introuvable !"
Exit Sub
End If

Retour = ShellExecute(0, "open", Fichier, Chr(0), Chr(0), 3)

End Sub

Sub Ouvrir()
Dim tbl
Dim I As Integer

tbl = Array("D:Mon document1.doc", _
"D:Présentation.ppt", _
"D:Mon classeur1.xls", _
"D:Mon document2.doc", _
"D:Mon classeur2.xls")

For I = 0 To UBound(tbl)
OuvreFichiers tbl(I)
Next I

Erase tbl
End Sub

Hervé.

"hasardeux" <hasardeux@hotmail.com> a écrit dans le message news:
094501c39878$64932c10$a401280a@phx.gbl...
Bonjour,

Comment pourrais-je ouvrir plusieurs classeurs XLS et
Document Word dans un ordre donné? CLASSEUR1 - CLASSEUR2 -
CLASSEUR3 ... DOCUMENT1 - DOCUMENT2 - .....

Je voudrais aussi à l'ouvertur de chaque fichier:
-Désactiver les macros si le message d'activation des
macros apparaît
-Mettre à jour un fichier lorsque un message de demande
de mise à jour apparaît.

En gros, je voudrais ouvrir les fichiers que je je veux en
un seul CLICK (Par macro ou autre)


Merci ......
.