Bonjour,
j'ai un problème avec une commande shell dans un module vba Access.
En fait j'exécute un .bat qui fait un transfert ftp sur un site
mainframe.
Lorsque je passe la module en débug, ça marche, lorsque j'exécute en
normal, il ne se passe rien, la fenêtre DOS s'ouvre et se ferme
immédiatement, et je n'ai rien de transféré.
Quelqu'un aurait une idée, svp ?
Merci à tous.
pour info, mon bout de code :
' Demande le user et mot de passe de l'utilisateur pour le transfert
ftp
Do Until User <> "" And User <> "user"
User = InputBox("Veuillez saisir votre User pour le système
central", _
"Saisie du user", "User")
Loop
Do Until Pass <> "" And Pass <> "Mot de passe"
Pass = InputBox("Veuillez saisir votre mot de passe pour ce
user", "Saisie du mot de passe", "Mot de passe")
Loop
ChDir (Chemin)
' Crée le fichier .bat
If Dir(Batch) <> vbNullString Then
Kill Chemin & Batch
End If
/C Exécute la commande donnée par la chaîne de caractères puis se termine
/K Exécute la commande donnée par la chaîne de caractères puis reste actif
/S Modifie le traitement de la chaîne après /C ou /K (voir ci-dessous)
/Q Exécute (sans interactions) la commande donnée puis reste actif
/D Désactive l'exécution de AutoRun à partir du Registre (voir ci-dessous)
/A Redirige la sortie de commandes internes vers un canal ou un fichier ANSI
/U Redirige la sortie de commandes internes vers un canal ou un fichier
UNICODE
/T:fg, Change la couleur du premier ou de l'arrière plan (voir aussi COLOR /?)
/E:ON Active les extensions de commande (voir ci-dessous)
/E:OFF Désactive les extensions de commande (voir ci-dessous)
/F:ON Active les caractères de fin des noms de fichiers et de répertoires
(voir ci-dessous)
/F:OFF Désactive les caractères de fin des noms de fichiers et de répertoires
(voir ci-dessous)
/V:ON Active l'expansion retardée des variables d'environnement en
utilisant ! comme délimitation.
Par exemple, /V:ON permet à !var! de développer la variable var à
l'exécution. La syntaxe var développe les variables lorsqu'elles sont
entrées, ce qui est différent lorsque utilisé à l'intérieur d'une
boucle FOR.
/V:OFF Désactive l'expansion retardée des variables d'environnement.
"karghyl" a écrit dans le message de news:
Bonjour, j'ai un problème avec une commande shell dans un module vba Access. En fait j'exécute un .bat qui fait un transfert ftp sur un site mainframe. Lorsque je passe la module en débug, ça marche, lorsque j'exécute en normal, il ne se passe rien, la fenêtre DOS s'ouvre et se ferme immédiatement, et je n'ai rien de transféré. Quelqu'un aurait une idée, svp ? Merci à tous.
pour info, mon bout de code :
' Demande le user et mot de passe de l'utilisateur pour le transfert ftp Do Until User <> "" And User <> "user" User = InputBox("Veuillez saisir votre User pour le système central", _ "Saisie du user", "User") Loop Do Until Pass <> "" And Pass <> "Mot de passe" Pass = InputBox("Veuillez saisir votre mot de passe pour ce user", "Saisie du mot de passe", "Mot de passe") Loop
ChDir (Chemin)
' Crée le fichier .bat If Dir(Batch) <> vbNullString Then Kill Chemin & Batch End If
/C Exécute la commande donnée par la chaîne de caractères puis se termine
/K Exécute la commande donnée par la chaîne de caractères puis reste actif
/S Modifie le traitement de la chaîne après /C ou /K (voir ci-dessous)
/Q Exécute (sans interactions) la commande donnée puis reste actif
/D Désactive l'exécution de AutoRun à partir du Registre (voir ci-dessous)
/A Redirige la sortie de commandes internes vers un canal ou un fichier
ANSI
/U Redirige la sortie de commandes internes vers un canal ou un fichier
UNICODE
/T:fg, Change la couleur du premier ou de l'arrière plan (voir aussi COLOR
/?)
/E:ON Active les extensions de commande (voir ci-dessous)
/E:OFF Désactive les extensions de commande (voir ci-dessous)
/F:ON Active les caractères de fin des noms de fichiers et de répertoires
(voir ci-dessous)
/F:OFF Désactive les caractères de fin des noms de fichiers et de
répertoires
(voir ci-dessous)
/V:ON Active l'expansion retardée des variables d'environnement en
utilisant ! comme délimitation.
Par exemple, /V:ON permet à !var! de développer la variable var à
l'exécution. La syntaxe var développe les variables lorsqu'elles
sont
entrées, ce qui est différent lorsque utilisé à l'intérieur d'une
boucle FOR.
/V:OFF Désactive l'expansion retardée des variables d'environnement.
"karghyl" <yann.millerioux@libertysurf.fr> a écrit dans le message de
news:50c4e095.0310090806.16a8c25a@posting.google.com...
Bonjour,
j'ai un problème avec une commande shell dans un module vba Access.
En fait j'exécute un .bat qui fait un transfert ftp sur un site
mainframe.
Lorsque je passe la module en débug, ça marche, lorsque j'exécute en
normal, il ne se passe rien, la fenêtre DOS s'ouvre et se ferme
immédiatement, et je n'ai rien de transféré.
Quelqu'un aurait une idée, svp ?
Merci à tous.
pour info, mon bout de code :
' Demande le user et mot de passe de l'utilisateur pour le transfert
ftp
Do Until User <> "" And User <> "user"
User = InputBox("Veuillez saisir votre User pour le système
central", _
"Saisie du user", "User")
Loop
Do Until Pass <> "" And Pass <> "Mot de passe"
Pass = InputBox("Veuillez saisir votre mot de passe pour ce
user", "Saisie du mot de passe", "Mot de passe")
Loop
ChDir (Chemin)
' Crée le fichier .bat
If Dir(Batch) <> vbNullString Then
Kill Chemin & Batch
End If
/C Exécute la commande donnée par la chaîne de caractères puis se termine
/K Exécute la commande donnée par la chaîne de caractères puis reste actif
/S Modifie le traitement de la chaîne après /C ou /K (voir ci-dessous)
/Q Exécute (sans interactions) la commande donnée puis reste actif
/D Désactive l'exécution de AutoRun à partir du Registre (voir ci-dessous)
/A Redirige la sortie de commandes internes vers un canal ou un fichier ANSI
/U Redirige la sortie de commandes internes vers un canal ou un fichier
UNICODE
/T:fg, Change la couleur du premier ou de l'arrière plan (voir aussi COLOR /?)
/E:ON Active les extensions de commande (voir ci-dessous)
/E:OFF Désactive les extensions de commande (voir ci-dessous)
/F:ON Active les caractères de fin des noms de fichiers et de répertoires
(voir ci-dessous)
/F:OFF Désactive les caractères de fin des noms de fichiers et de répertoires
(voir ci-dessous)
/V:ON Active l'expansion retardée des variables d'environnement en
utilisant ! comme délimitation.
Par exemple, /V:ON permet à !var! de développer la variable var à
l'exécution. La syntaxe var développe les variables lorsqu'elles sont
entrées, ce qui est différent lorsque utilisé à l'intérieur d'une
boucle FOR.
/V:OFF Désactive l'expansion retardée des variables d'environnement.
"karghyl" a écrit dans le message de news:
Bonjour, j'ai un problème avec une commande shell dans un module vba Access. En fait j'exécute un .bat qui fait un transfert ftp sur un site mainframe. Lorsque je passe la module en débug, ça marche, lorsque j'exécute en normal, il ne se passe rien, la fenêtre DOS s'ouvre et se ferme immédiatement, et je n'ai rien de transféré. Quelqu'un aurait une idée, svp ? Merci à tous.
pour info, mon bout de code :
' Demande le user et mot de passe de l'utilisateur pour le transfert ftp Do Until User <> "" And User <> "user" User = InputBox("Veuillez saisir votre User pour le système central", _ "Saisie du user", "User") Loop Do Until Pass <> "" And Pass <> "Mot de passe" Pass = InputBox("Veuillez saisir votre mot de passe pour ce user", "Saisie du mot de passe", "Mot de passe") Loop
ChDir (Chemin)
' Crée le fichier .bat If Dir(Batch) <> vbNullString Then Kill Chemin & Batch End If