Ouvrie un fichier

[JeanJean]

Salut à tout le forum et à tout ceux qui le font avancer.

Est ce que quelqu'un pourrait m'indiquer comment ouvrir un fichier dont le nom serait composé d'une variable incrémentée par la valeur d'une cellule.
Je m'explique :
Les ordinateurs de mon travail s'ouvrent avec une carte personnelle à chaque employé.
Je récupère le nom de chaque employé dans une cellule d'un fichier Excel.
Je voudrais, à partir de ce fichier ouvrir un fichier qui porterais le nom de chaque employé.

Exemple :
L'employé Toto ouvre un fichier (commun à tous le monde) qui récupère son nom dans une cellule quelconque, et, à sa fermeture, ouvre un fichier qui doit se nommer "Toto.xls".
L'employé Bibi ouvre le même fichier qui récupère son nom de la même manière, et, à sa fermeture ouvre le fichier "Bibi.xls".

Etc...

D'avance merci à celui ou celle qui m'éclairera.

 

[EricS]

bonjour,

le code ci-dessous devrait fonctionner :

dim chemin as string, fichier_dest as string

chemin = "c:\...\" (mettre le chemin exact du répertoire souhaité)
range ("a3").select (supposition nom dans cellule A3)
fichier_dest = activecell.value


ActiveWorkbook.SaveAs FileName:=chemin & fichier_dest _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False


Essaie et tiens moi au courant

A+

Eric

 

[JeanJean]

Salut EricS

Je te remercie de ta réponse et bien qu'elle n'a pas résolu mon problème, m'a aidé à trouver la solution.
En effet, ta solution voulait m'enregistrer sous le fichier que je voulais ouvrir (ActiveWorkbook.SaveAs )

J'ai déclaré trois variables
Dim chemin as String, fichier_dest as string, fichier_dest1 as string
Puis j'ai suivi ton conseil en améliorant
chemin = "c:\...\" (mettre le chemin exact du répertoire souhaité)
range ("a3").select (supposition nom dans cellule A3)
fichier_dest = activecell.value
+
fichier_dest1 = fichier_dest & ".xls"

Pour l'ouverture du fichier, j'ai écrit :

ChDir "\C\...chemin complet..."
Workbooks.Open(FileName:=chemin & fichier_dest1).RunAutoMacros Which:=xlAutoOpen

Et ça marche.

Merci encore et à charge de revanche