Macro avec chemin variable

Bonjour,

J’ai un fichier copie si jointe avec une macro qui indique les chemins de fichuer1 et fichier 2. Sachant que les fichiers 1 & 2 se trouvent dans le même dossier que mon fichier macro et que j’exécute cette macro à partir de plusieurs postes de travail. Je voudrais la manière remplacer les chemin par une variable

Merci de votre réponse

Cordialement

Jean-Pierre

Salut,

Tu peux essayer ceci :

Dim Chemin as String
Chemin = WorkBooks("stat 2017 Bis .xlsm").Path

A+

H

Désolé mais cela ne fonctionne pas

Peut-être me suis-je mal exprimé ?

Ou est que je dois copier ton code ?

Merci d’avance

@+

Jean-Pierre

Salut,

Voici donc un exemple d'utilisation du chemin d'accès au fichier :

Sub MacroAnne()
Dim Chemin As String
Chemin = Workbooks("stat  2017 Bis .xlsm").Path

    Application.DisplayAlerts = False
Sheets("Anne").Select
    Cells.Select
    Selection.Copy

    Workbooks.Add
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    ChDir Chemin
    ActiveWorkbook.SaveAs Filename:= _
         Chemin & "\Fichier 2.xlsm", _
         FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
         Application.DisplayAlerts = True
         ThisWorkbook.Activate
         ActiveWindow.ActivateNext
         ActiveWorkbook.Close
         Range("A3").Select
End Sub

Re Bonjour.

Merci cela fonction à merveille.

Petite demande supplémentaire serait-il possible de ("stat 2017 Bis .xlsm") par une variable qui reprend le actif ei :le fichier qui contient la macro

Merci

Jean-Pierre

Oui, avec

MonClasseur = ActiveWorkbook.Name

Par exemple.

Ok merci j'ai trouvé

Jean-Pierre