Remplir des cellules depuis un batch

batch:
set /p NomClient=Nom:
mkdir "%NomClient%"
cd %NomClient%
start resultats.xls

Cela fonctionne sans souci, mais j'aimerais récupérer le contenu de la variable NomClient et l'écrire par exemple dans la cellule A1 de Excel.

Cliquez pour agrandir...

Private Sub Workbook_Open()
Dim A$
A$ = Environ("NomClient")   'NomClient correspond à la variable de l'instruction du batch "set /p NomClient=Nom:"
If A$ <> "" Then [a1] = A$
End Sub

PMO2 à dit:

Re : Remplir des cellules depuis un batch

Bonjour,



J'ai fait une version 2003 et une version 2007 (cette dernière impose de modifier le batch pour avoir, en dernière ligne, "start resultats.xlsm").

Dans chaque classeur resultats.xls ou resultats.xlsm, il faut copier le code suivant dans la fenêtre de code de ThisWorkbook

Code:

Private Sub Workbook_Open()
Dim A$
A$ = Environ("NomClient")   'NomClient correspond à la variable de l'instruction du batch "set /p NomClient=Nom:"
If A$ <> "" Then [a1] = A$
End Sub

Les dossiers contenant les différents classeurs doivent être dans le même dossier que le batch.
Ci-joint, les dossiers exemples (2003/2007).

Cliquez pour agrandir...