recherche de fichiers word via une inputbox

Question

Bonjour à tous.

   J'ai besoin pour mon travail d'ouvrir des fichiers word (.doc) qui par exemple se trouvent dans "c:" par l'intermédiaire d'une Inputbox. J'aimerai saisir le nom du fichier par exemple "1234.doc" ainsi l'application rechercherait et ouvrirait le fichier 1234.doc saisi dans la inputbox. J'ai cherchai dans pas mal de tuto mais je n'ai pas trouvé. Je sais ouvir un fichier doc à partir de la commande "shell" je sais aussi ouvir un classeur excel à partir d'une inputbox, mais réunir les deux est difficile sachant que je debute en VB. Si qqun peut m'aider sa serai génial. Merci beaucoup

                                                Ludo!

cs_Exploreur · Answer

Salut,

voici un petit bout de code :

'Créer l'instance de word via object
Set docword = CreateObject("word.application")


'True pour word visible et false pour le mettre en arrière plan
    docword.Visible = True
    docword.DisplayAlerts = False    'évite les erreurs de traitement
    docword.Documents.Open ("ton chemin ") 'ajoute un document vierge"
    Set docword = Nothing


A+
Exploreur

cs_Nicko11 · Answer

Bonjour, post le code, ca donne une base de travail

mortalino · Answer

Et plutôt qu'une InputBox, je conseille l'utilisation soit d'un CommonControl, soit de la classe FileDialog (nombreux exemples avec F1), ça évite à l'utilisateur de se taper le nom du fichier à écrire(avec risque de fautes de frappes)

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~

cs_Nicko11 · Answer

La, il faudrait que ton_chemin soit le message renvoyé par ton inputbox.

Il faut prendre en compte le fait que ce fichier n'existe peut etre pas.

cs_Exploreur · Answer

Salut,

Très bien vu nicko11 (si fichier n'existe pas)

Private Sub Command1_Click()

'Gestion des erreur
 On Error GoTo Detail_Err


'Créer l'instance de word via object
Set docword = CreateObject("word.application")


'True pour word visible et false pour le mettre en arrière plan
    docword.Visible = True
    docword.DisplayAlerts = False    'évite les erreurs de traitement
    docword.Documents.Open ("Ton chemin") 'ouvre document 
    Set docword = Nothing
    Exit sub
    
Detail_Err:
    MsgBox Err.Description
    Err.Clear
   'Fermeture de Word si existant sur le PC
    If docword.Visible = True Then docword.application.quit
    Set docword = Nothing

End sub


A+
Exploreur

mortalino · Answer

D'où lutilisation du FileDialog, ça évite toute la gestion d'erreur ^^, avec un Filtre, seuls les fichiers *.doc s'afficheront.
(et possibilité de gérer l'annulation utilisateur)

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~

jmfmarques · Answer

Bonjour,


Ca y est ?

Voyons donc ce que fait ceci (on ne fera certainement pas les frais d'un commondialog ici ...)

Une Form et une FilelistBox nommée File1 (qu'on rend visible quand et si on le veut)

Private Sub File1_Click()
 MsgBox File1.Path & "" & File1.filename
End Sub


Private Sub Form_Load()
  File1.Pattern = "*.txt"           'ici ton filtre (.doc, pour toi)
  File1.Path = "d:\monoutil"     'ici ton répertoire à toi
End Sub


C'est tout.

ticrain · Answer

Le programme que tu propose ne repond pas à mon  problème, on alors je suis vraiment nul en VBA, moi je veut passer une recherche via une inputbox. Je te remercie quand meme de m'avoir répondu à bientôt.

ticrain · Answer

Ton programme ne fait qu'ouvir un simple fichier word? ou je me trompe? J'ai peur que vous n'ayez pas bien cerné mon problème dis moi si tu veux plus d'explication. Merci

ticrain

ticrain · Answer

RE. C pour vous signaler que je programme en VBA excel, dans le bout de programme que vous proposé vous ne faite pas apparaitre de INPUTBOX, j'ai un peu de mal à saisir, mais je pense que se que vous proposé est du VB6 et non du VBA. Est ce possible avec un INPUTBOX? je vous remercie d'avance pôur votre réponse. Merci

Ticrain

cs_Nicko11 · Answer

J'ai utiliser les inputbox en VBA pour access et ca marche bien. Mais si les inputbox te plaise pas, tu peut faire ta propre form et puis c'est tout. Moi par exemple, je voulais une inputbox avec affichage en mot de passe (ex: ******). J'ai pas trouvé, donc j'ai refait moi-même.

Donc oui inputbox fonctionne bien

mortalino · Answer

Certe, mais il faut se placer à la place des utilisateurs : 
qu'est ce qui est plus intuitif (et facile d'utilisation) ?
1/ Une inputbox, où l'utilisateur doit taper le lecteur, chemin et nom fichier, avec riques de fautes de frappes (et pour le peu que l'utilisateur soit un benet, t'es dans la mouise car t'auras des erreurs imprévues)
2/ Un explorateur de fichiers qui s'ouvre au bon dossier, avec les bons filtres, où l'utilisateur n'a qu'à sélectionner le fichier ?

Sans hésiter, je choisi le Numéro 2

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~

cs_Nicko11 · Answer

Oui, tu as parfaitement raison, je lui reponds juste pour sa culture personnelle. Maintenant, en effet, l'experience nous montre que ce genre de pratique mene vers des tonnes de vérifications alors que certaines les evitent.

Donc ticrain, soit tu veux vraiment un inputbox et tu prends la solution que l'on t'as donné, soit tu fais appel a un browser ou une liste dans laquel tu as mis les fichiers "ouvrables" (ce qui t'interesse).

Recherche de fichiers word via une inputbox

13 réponses

Votre réponse

Discussions similaires