Discussion :

[jefe.k]

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 :

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

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,

[AlainTech]

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

[jefe.k]

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 :

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

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

???

je ne sais pas trop comment procéder

[ouskel'n'or]

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é ?

[AlainTech]

Bon...

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

Code :

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

Workbooks.OpenFilename:=""

n'existe pas.

Code :

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

Workbooks.Open Filename:=""

est la syntaxe correcte.

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

Code :

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

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.

[jefe.k]

j'ai essayé sous cette forme

Code :

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

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

en disant que

Code :

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

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 :

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

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

[jefe.k]

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

merci a vous