[VBA_Excel] Modifier un chemin en fonction de la valeur d'une cellule

bonjour,

j'ai un fichier excel (listing) qui liste des numéros de dossiers, en face de chaque nom et numéro de dossiers j'ai une zone de texte affectée par une macro qui permet d'ouvrir une feuille de suivi.

Mon code débute par

Code:

---

1 2 3 4

sub fichedesuivi() Workbooks.OpenFilename:="c\:etudes\07000\feuille de suivi.xls"

---

ce que j'aimerai c'est pouvoir modifier le numéro de dossier (en rouge ds le code) dans le chemin en fonction d'une case qu'on remplirait manuellement(sur la feuille listing) en fonction du numéro de dossier que l'on désir ouvrir.

sincère salutations,

Simple concaténation de 3 chaînes de caractères:
"c\:etudes\"
ton nombre correctement formaté et
"\feuille de suivi.xls"

dois je faire mon concaténage sous excel puis dire à ma macroi de prendre la valeur de la cellule résulatat comme chemin d'accès ou est ce possible de définir cette concaténation ds le code source ?

sous qu'elle forme l'écrire

Code:

---

1 2	Workbooks.OpenFilename:="cells(2,2).value"

---

???

je ne sais pas trop comment procéder

Si "cells(2,2).value" contient Le chemin complet et le nom du fichier soit "c\:etudes\07000\feuille de suivi.xls" dans ton exemple... tu as essayé ?

Bon...

Déjà, évite les fautes de frappes:

Code:

---

Workbooks.OpenFilename:=""

---

n'existe pas.

Code:

---

Workbooks.Open Filename:=""

---

est la syntaxe correcte.

Je dois être dans un bon jour, je vais te mâcher la besogne:

Code:

---

Workbooks.Open Filename:="c\:etudes\" & LaVariable & "\feuille de suivi.xls"

---

A toi, maintenant, de définir ta variable, de trouver comment incrémenter ton compteur, le formater et le mettre dans la variable.

j'ai essayé sous cette forme

Code:

---

1 2	Workbooks.Open Filename:="c\:etudes\" & LaVariable & "\feuille de suivi.xls"

---

en disant que

Code:

---

1 2	LaVariable = cells(2,2).Value

---

meme si ma cellule est 07700 la variable supprime le 0 devant qque soit le format de ma cellule C2 j'ai donc du rajouter un 0 dans mon code :

Code:

---

1 2	Workbooks.Open Filename:="c\:etudes\0" & LaVariable & "\feuille de suivi.xls"

---

malgrès ce petit problème avec le 0 mon problème est résolu

merci a vous
:king: