Bonjour,
J'utilise une macro qui lance un fichier .bat sur un serveur.
Il marche très bien sur certaines machines mais pas sur la mienne équipé d'excel 2002 SP3 et sur celles de 2 collègues qui ont la version 2007.

Voici le code mais je ne suis pas sûr que ça vienne de là...
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
22
23
 
Option Explicit
 Const sChemin = "H:\Création\z_systeme - pas supprimer" 'Où sont situés les .bat et .txt pour les mails
 
Private Sub CommandButton1_Click()
    Dim sYourCommand, filename As String
    Dim test As Integer
 
    filename = sChemin & "\corpsTous.txt"
    Open filename For Output As #1    ' Ouvre le fichier en écriture
 
    Print #1, "Le fichier " & ThisWorkbook.Name & "du répertoire " & ThisWorkbook.Path & " a été validé par le Service Commercial. Pouvez vous mettre en oeuvre les moyens nécessaires à la création de ces produits dans vos services." 'Contenu du .txt
    Close #1
 
    ChDir sChemin 'Placement dossier contenant .bat pour appel cmd
 
    sYourCommand = "envoiMailTous.bat"
    test = Shell("cmd /k " & sYourCommand, 0) 'Appel commande, renvoi nombre aléatoire ?
    If test > 0 Then ' si executé
        MsgBox "Tous les services ont été prévenus de l'avancement de la validation."
    End If
 
End Sub
Comment faire pour exécuter le fichier? est-ce la bonne méthode? D'où vient le problème à votre avis?
Merci d'avance pour votre aide