Discussion :

[dololudo]

Bonjour à tous,

Un autre service m'envoie toutes les semaines un fichier Excel dont le nom se termine par le numéro de la semaine concernée (DTO S4 par exemple).
En m'appuyant sur un calcul qui me permet de définir le numéro de la semaine en cours, j'ai mis en place une macro qui est censé ouvrir ce fichier et copier la feuille qui m'intéresse dans mon nouveau fichier. Le problème est que je ne trouve pas la ligne de commande qui permet de copier l'adresse dans une cellule et de définir l'ouverture du fichier en fonction de cette adresse. En effet, une fois la macro créée, la ligne "Workbooks.Open Filename :" ne se modifie plus.
En gros, la macro se présente ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Calculate
    Sheets("DTO S-1").Select
    Cells.Select
    Selection.Delete Shift:=xlUp
    Sheets("Calculs").Select
    Range("A5").Select                  'correspond à l'adresse du fichier à ouvrir (DTO S41)
    Selection.Copy
    Application.CutCopyMode = False
    Workbooks.Open Filename:= _
        "P:\2-REP\05-Bml\07 - DTO materiels GAMME TACTIQUE\DTO 2015\DTO BML S41.xlsx"
    Range("A1:V134").Select
    Range("I133").Activate
    Selection.Copy
    Windows("Tableau de bord.xls").Activate
    Sheets("DTO S-1").Select
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False

Comment faire pour que cette ligne s'actualise en fonction des calculs effectués?
Merci pour votre aide.

[SfJ5Rpw8]

bonjour,


il y as quoi finalement dans ta cellule A5 ..? le chemin complet du fichier ?

[dololudo]

Oui, dans ma cellule A5 se trouve le chemin du fichier à ouvrir. C'est le résultat du calcul.

[parmi]

Bonjour,

Et ceci ?

Code :

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

Workbooks.Open Filename:=Range("A5").value

[dololudo]

Nickel, c'est tout à fait ça.......
Merci PARMI.....