Discussion :

[fredorik10]

Bonjour à tous,

j'ai un programme et je n'arrive pas changer le chemin d'accès inscrit dans le programme:

ya ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Filename:=wbBook.Path & "\" & stChartName, _

et après ça ouvre le doc:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set wdDoc = wdApp.Documents.Open(wbBook.Path & "\" & stWordDocument)

Je comprend pas la signification de "\" &

Vous avez une idée ? PArce là le programme trouve un fichier sur le bureaux mais pas dans un dossier ....


Merci à vous
Cordialement

[Philippe Tulliez]

Bonjour,

Je comprend pas la signification de "\" &

L'esperluette (&) est un opérateur de concaténation qui permet de mettre bout à bout au moins deux chaînes de caractères.
Ainsi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox "Albert" & "Einstein"

va afficher AlbertEinstein et si l'on souhaite insérer un caractère espacé entre le prénom et le nom ont écrira

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox "Albert" & " " & "Einstein"

[Philippe PONS]

Salut,

Cette 1ère ligne ne fait rien, et semble incomplète

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Filename:=wbBook.Path & "\" & stChartName, _

La 2ième ligne ouvre un document word

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set wdDoc = wdApp.Documents.Open(wbBook.Path & "\" & stWordDocument)

wdApp: référence à l'application Word
wdApp.Documents.Open: ouvre un document Word, dont on lui passe en paramètre le chemin d'accès
wbBook.Path & "\" & stWordDocument: construit le chemin d'accès, avec
wbBook.Path: le répertoire ou réside le classeur Excel référencé par wbBook, mais sans \ à la fin
& "\": ajoute un \ à la fin
& stWordDocument: ajoute le nom du fichier à ouvrir
& est un opérateur pour ajouter des chaines de caractères
HTH,

[cerede2000]

En passant, penser à utiliser Application.PathSeparator au lieu de "\"

[fredorik10]

Merci beaucoup pour vos réponses aussi rapides


donc si je remplace wbook.path & "\" par le chemin d'accès Filename: C\Desktop \

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

wdApp.Documents.Open(wbBook.Path & "\" & stWordDocument)

Ca doit marcher non ? Parce c'est pas le cas

[Philippe Tulliez]

Bonjour,

Ca doit marcher non ? Parce c'est pas le cas

Il faut essayer d'être un peu pro-actif et surtout plus explicite car "Cela ne marche pas" n'est pas une bonne indication.
Y a-t-il une erreur dans l'affirmative quel en est le message, etc.
Dans ton cas, il s'agit d'une chaîne de caractères dont il faut d'abord connaître la valeur. Un simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox wbBook.Path & "\" & stWordDocument

te donnera déjà une bonne indication. Soit tu auras une erreur, soit l'affichage d'une chaîne de caractères qui ne correspond pas à la valeur souhaitée.

[fredorik10]

Merci pour ta réponse, oui désolé j'ai pas bien précisé, j'ai le truc en tête.... Enfin bref

si je mets filename: C\desktop...

Le logiciel ne trouve pas le fichier, erreur 5174

Mais j'ai compris grâce à vos messages qu'il cherche dans le répertoire du excel, donc je mets mon document word et excel ensemble et pour l'instant ça marche, donc le soucis est réglé ! C'est formidable !

merci pour tout