Probleme de chemin

[Matt_evrard]

Bonjour a tous,
voila il fait mauvais temps donc au lieu d aller au ski je realise un fichier Excel...

bon alors j ai créer une userform avec des boutons qui permettent d ouvrir differents documents Word. Tout marche sans problemes mais j ai mis les noms des fichiers en dur et c est pas tres intelligent (si je change d ordi...)

Pour ouvrir Word j ai créé la macro suivante :
---------------------------------
Sub Ouvrir_Word(path_document)
Dim Wrd As Object
Set Wrd = CreateObject('word.Application')
Wrd.Visible = True
Wrd.documents.Open (path_document)
End Sub
---------------------------------
J appelle cette macro quand je clique sur un bouton pour ouvrir un doc Word en passant le chemin en parametre :
---------------------------------
Private Sub CommandButton1_Click()
chemin = ThisWorkbook.Path
chemin2 = '\\Exemple\\Fichier.doc'
Path = chemin & chemin2
Ouvrir_Word (Path)
End Sub
---------------------------------
je pensais que cette methode permettrait de ne rentrer en dur qu une partie du chemin mais ca foire...

Si vous voyez une erreur ou une idee n hesitez pas !!
Bon WE a tous

Matthieu E.

 

[Climaudo]

Bonjour Matthieu, le forum

En regardant ton code, il me semble que l'erreur provient du chemin que tu indiques pour le document word

Je pense qu'il manque un antislash entre chemin et chemin2

ce qui donnerait :
path = chemin & 'antislash' & chemin2.

A essayer

Bonne journée malgré le mauvais temps pour le ski...

Olivier

 

[Matt_evrard]

bonjour,
j ai testé ta solution mais aucun resultat. En fait j avais deja mis l anti slash mais le copier coller a du planter...
ca me sort tjs une erreur de fichier introuvable !

 

[Climaudo]

Re,

Bizarre, je viens de tester chez moi et pas de problème ...

As-tu bien mis l'antislash entre guillemets et ton fichier ExempleFichier.doc est-il bien dans le même répertoire que ton fichier Excel ??

Olivier

 

[Climaudo]

Matthieu,

je te joins mon essai, document Excel et Word à enregistrer dans le même répertoire

Bon test

Olivier [file name=essai_word.zip size=9008]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essai_word.zip[/file]

 

[Matt_evrard]

c est marrant j ai verifié ca marche dans un autre fichier...
bon ca sent l erreur de code quelque part dans mon fichier...merci de ton aide

 

[Matt_evrard]

Bon en fait je voulais placer le fichier word dans un sous-repertoire par rapport au fichier word...

doit avoir un pb au niveau de l utilisation des '\\' de l arboresecence

 

[Climaudo]

Re

ThisWorkBook.Path te donne le chemin d'accès jusqu'au répertoire où se trouve le fichier Excel que tu utilises

Si ton fichier Word se trouve à un autre endroit ou dans un sous répertoire par rapport à ton fichier Excel, tu dois redéfinir 'chemin'

Bon courage.

Olivier

 

[Matt_evrard]

OK j ai resolu mon probleme, visiblement il n aime pas qu on mette 'AntislashNomDuRepertoire', il prefere qu on fasse
chemin1 = 'test1'
chemin2 = 'test2'
chemin = chemin1 & 'antislash' & chemin2...

bon ben merci bcp pour ton aide, je poursuis mes macros !
Bon WE
++

Matt E.