Discussion :

[Tanatos1174]

Bonjour à tous,

Un petit coup de main serait le bienvenu.
Ci joint la macro qui pose problème.

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
Sheets("Export 1").Select
    Cells.Select
    ActiveSheet.Unprotect
    Workbooks.Open Filename:= _
    "C:\Users\mallets\Desktop\Outil engagement Game\extraction paramétrée 1.xlsx"
    Cells.Select
    Selection.Copy
    Windows("Aide engagement.xlsm").Activate
    Cells.Select
    ActiveSheet.Paste
    Windows("extraction paramétrée 1.xlsx").Activate
    Application.CutCopyMode = False
    ActiveWindow.Close
    Cells.Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Sheets("Menu").Select

[kiki29]

Salut, via

Code :

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

ThisWorkbook.Path & "\" & ....

en plaçant le fichier à l'endroit idoine.

ou alors Comment retrouver facilement le chemin des répertoires spéciaux Windows ?