Ouvrir un fichier word sans connaître le chemin de l'application

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 459 fois - Téléchargée 27 fois

Contenu du snippet

Alors, je tiens à préciser que j'ai trouvé ce code sur le forum, mais que j'ai eu pas mal. C'est donc sans prétention que je mets ça, histoire que si quelqu'un cherche, il puisse trouver plus facilement.
Il s'agit donc d'une sub et vous devez placer le chemin du fichier (genre "C:\monficher.doc") dans la variable fichierword.
Et voilà.

Source / Exemple :


Sub ouvrirfichierword(fichierword as string)
    
   Set appword = New word.Application

   appword.Visible = True
   appword.Documents.Open fichierword

End sub

Conclusion :


Donc je reprécise que ce code n'est pas totalement de moi, merci à tous ceux qui répondent si gentiment dans les forums

A voir également

Ajouter un commentaire

Commentaires

devsurf
Messages postés
148
Date d'inscription
dimanche 13 octobre 2002
Statut
Membre
Dernière intervention
13 novembre 2008
-
Il faut juste ne pas oublier de référencer l'objet Word :(MSWORD.OLB
)

Menu projet/référence - ajouter:
Pour office xp/2000:
C:Program FilesMicrosoft OfficeOffice10MSWORD.OLB
devsurf
Messages postés
148
Date d'inscription
dimanche 13 octobre 2002
Statut
Membre
Dernière intervention
13 novembre 2008
-
Très astucieux
..

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.