Sujet Précédent Sujet Suivant

Exécuter un fichier cmd

Résolu
ivgu19 Messages postés 52 Date d'inscription   Statut Membre Dernière intervention   -  
ivgu19 Messages postés 52 Date d'inscription   Statut Membre Dernière intervention   -
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ésumé de la discussion

La discussion porte sur l’automatisation de l’exécution d’un fichier renommageCommande.cmd généré par une macro Excel et localisé dans le dossier photosOriginales, afin de renommer et organiser des photos via CMD. Le processus décrit que le code VBA parcourt les données, crée le fichier CMD dans le même dossier et prévoit son exécution automatique, plutôt que manuellement, en gérant chemins et noms d’objets. Des échanges recommandent d’ajuster le séparateur dans VBA, par exemple remplacer le tiret par un espace, afin d’éviter les problèmes de noms avec accents et caractères spéciaux, puis tester via le fichier Excel.

Généré automatiquement par IA
sur la base des meilleures réponses
Réponse 1 / 19
yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 588
 
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
Changer le nom de l'administrateur
C59G -
Derbe -

37 réponses
devenir administrateur
claztum -
Malekal_morte- -

8 réponses
fichier introuvable cmd
Utilisateur anonyme -
little boy62 -

3 réponses
Envoyer un message sur le même réseau avec CMD
Utilisateur anonyme -
zzz -

2 réponses
Commande cmd pour récupérer clé Windows
sapinleroy -
Malekal_morte- -

2 réponses