changer le repertoire de travail d'excel avec le contenu d'un textboxRésolu

Question

Bonjour,

Voici mon probl&#232;me:
J'ai une Form1 dans laquelle j'ai un textbox et un bouton ok. Dans le textbox je rentre le chemin d'acc&#232;s d'un repertoire de travail. Lorsque j'appuie sur le bouton ok j'ouvre un deuxi&#232;me formulaire Form2. Dans celui-ci il ya un bouton de commande. Lorsque je clique sur ce bouton, j'ouvre excel. Puis je demande &#224; excel d'ouvrir un fichier texte (ce fichier texte se trouve dans le repertoire de travail indiqu&#233; dans le textbox de la Form1). Une fen&#234;tre s'ouvre alors pour choisir le fichier texte.
Le probl&#232;me est que cette fen&#234;tre s'ouvre par d&#233;faut sur le r&#233;pertoire MesDoccuments. Or je voudrais que le r&#233;pertoire par d&#233;faut soit celui indiqu&#233; dans le textbox de la Form1.

J'ai essay&#233; le code suivant:
Public chemin as String
chemin = text_box1.Text 'dans la Form1 dans le code du bouton ok

Chdir Form1.chemin 'dans la Form2 dans le code du bouton de commande

Mais &#231;a marche pas.
Quelqu'un peut-il m'aider?

Merci d'avance.

jpleroisse · Accepted Answer

Bonsoir,

Pour avoir le r&#233;pertoire choisis avec tous les fichiers texte qu'il
contient, je ne vois que le commonDialog.Tu peux ajouter un
commonDialog et placer ce code dans ton programme. J'ai appel&#233; le
CommonDialog cmd. A l'ouverture de la bo&#238;te de dialogue Ouvrir, 
tous les fichiers texte du r&#233;pertoire Mes documents apparissent dans
l'exemple.



With cmd

    .DialogTitle = "Choisissez le fichier &#224; ouvrir"

   .CancelError = True

   .Filter = "Fichiers texte(*.txt)|*.txt|Fichier xls(*.xls)|*.xls|Tous les fichiers(*.*)|*.*"

   .FilterIndex = 1

   .InitDir = "C:\Mes documents"

On Error GoTo Annuler

    .ShowOpen

MsgBox "Le fichier " & .FileName & " a &#233;t&#233; s&#233;lectionn&#233;"

GoTo Suite:

Annuler:

MsgBox "Vous n'avez s&#233;lectionn&#233; aucun fichier"

Suite:

End With



'ici ton code pour l'ouvrir dans Excel.



jpleroisse



Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

jpleroisse · Answer

Bonjour,

Tu travail dans quoi , VBA Excel ou VB 6 ?

Dans quoi le fichier texte doit-il &#234;tre ouvert, Bloc-Notes, Classeur Excel ?



jpleroisse

sioux499 · Answer

Je travaille dans vb6 et le fichier texte doit &#234;tre ouvert dans Excel. Je n'ai pas de probl&#232;me pour ouvrir le fichier texte par excel &#224; travers mon programme dans vb6. Le probl&#232;me est, comme je l'ai dit, d'&#234;tre sur le r&#233;pertoire de travail choisi lorsque la fen&#234;tre qui permet de choisir le fichier texte &#224; ouvrir appara&#238;t.

sioux499 · Answer

Merci jpleroisse!

Ton code convient parfaitement pour mon probl&#232;me.

PS: d&#233;sol&#233; pour la r&#233;ponse tardive. J'avais un autre travail important &#224; faire avant.

Changer le repertoire de travail d'excel avec le contenu d'un textbox

4 réponses

Discussions similaires