Mettre à jour un fichier à partir d'un autre

[GGPS58]

Bonjour,

Mon problème :
J'ai dans un fichier (Plouf.xls) une cellule qui contient un nom de fichier (Toto.xls par exemple)
A l'aide d'une macro, j'aimerais pouvoir ouvrir le fichier Toto.xls (qui existe), et écrire "Noir" dans la cellule A1.
Mes deux fichiers sont dans le même répertoire.

Merci de votre aide.
J'ai l'impression que ce n'est pas compliqué, mais je sèche lamentablement.

GGPS58

 

[nat54]

Re : Mettre à jour un fichier à partir d'un autre

Bonjour,

A TESTER
car je n'ai pas compris si noir tu l'entres manuellement ou pas

Sub MAJ()

nom_fichier = range("a1").Value 'on variabilise, nom_fichier = valeur cellule A1

Workbooks.Open ("C:\xxx\" & nom_fichier & ".xls")
Sheets("feuil1").select
[A1]="noir"

End Sub

 

[GGPS58]

Re : Mettre à jour un fichier à partir d'un autre

Testée et cela fonctionne à merveille ....
Merci beaucoup

GGPS

 

[nat54]

Re : Mettre à jour un fichier à partir d'un autre

Wow pour une fois que ca marche du 1er coup

Rigolez pas les autres, j'suis pas une pro môa !