Sujet Précédent Sujet Suivant

Exécuter un fichier cmd

Résolu/Fermé
ivgu19 Messages postés 52 Date d'inscription vendredi 1 décembre 2006 Statut Membre Dernière intervention 17 février 2018 - Modifié le 27 juil. 2017 à 18:44
ivgu19 Messages postés 52 Date d'inscription vendredi 1 décembre 2006 Statut Membre Dernière intervention 17 février 2018 - 17 févr. 2018 à 14:52
Bonjour le forum,

après avoir copier des bouts de code dans le forum, je sollicite votre aide afin que le fichier"renommageCommande.cmd" s’exécute automatiquement. 

Sub genererFichierDeCommande()
'
    Dim Repertoire As FileDialog, prefixe As String
    Dim lig As Long, col As Long
    Dim numfich As Integer
    Dim LigneCommande As String
    
    
    Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker)
    Repertoire.Show
    If Repertoire.SelectedItems.Count = 0 Then Exit Sub
   
    numfich = FreeFile
    Open Repertoire.SelectedItems(1) & "\" & "renommageCommande.cmd" For Output As #numfich
    Sheets("fichier de commande").Activate
    Print #numfich, "CD " & Repertoire.InitialFileName;
    For lig = 1 To 65000
          Print #numfich, Cells(lig, 1) & vbCrLf;
    Next lig
    Close #numfich
    
    LigneCommande = Repertoire.InitialFileName & "renommageCommande.cmd"
    Shell "CMD /C " & """" & "cd " & Repertoire.InitialFileName & """"
    Shell "CMD /C " & """" & LigneCommande & """"

End Sub



EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici :ICI

Merci d'y penser dans tes prochains messages.




Je remercie par avance celui ou celle qui prendra le temps de me lire


A voir également:

19 réponses

Réponse 1 / 19
yg_be Messages postés 22692 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 16 avril 2024 1 471
28 juil. 2017 à 10:12
bonjour, as-tu un message d'erreur?
je pense que la ligne 24 est inutile.
je suggère /K au lieu de /C, tu verras ainsi ce que fait cmd.
0

Discussions similaires

mon cmd ne s'execute pas
Josoa91 -
Josoa91 -

5 réponses
Lire le fichier python avec le cmd
M3NSONG3 -
nidhogg-59 -

7 réponses
ouvrir un fichier avec une application en CMD
the_dark_gost -
the_dark_gost -

9 réponses
MS-Dos - Lister le contenu d'un répertoire dans un fichier
baissaoui -
baissaoui -

0 réponse
Cmd Windows32/ Le fichier spécifié est introuvable
Bgamer123 -
¡El Desaparecido! -

3 réponses
Ouvrir un dossier avec le terminal
lauraberth -
Illoxx -

5 réponses