Comment lancer des macros d'un classeur dans un autre ?

Bonsoir Le Pingou,

Tout d'abord merci pour l'attention de mon cas.

Voilà le détail :

J'ai un classeur global avec des tcd.
Pour l'alimenter en datas, je dois faire une extraction via un outil de ticketing qui génère un fichier Num.xls (ex : 57834027.xls)
J'ai créé des macros pour "travailler" ce fichier (suppression de colonnes inutiles, renommer des colonnes, faire un calcul sur une colonne (format heure).
Ces données devront être injectées dans une feuille Datas de mon classeur global (avec redéfinition de la plage de données pour être prise en compte dans les TCD.
Afin de partager ce fichier, j'aimerais créer un onglet "Notice" dans le fichier global afin d'indiquer ce qu'il faut faire, lancer les différentes macros pour formater les données de l'extraction et les rajouter dans l'onglet Datas pour mettre à jour les TCD (via des boutons) .

J'ai déjà les différentes macros et il me reste qu'à harmoniser tout ça :


A EXECUTER SUR FICHIER D'EXTRACTION
'*******************************************
'Suppression des colonnes fichier SLA
'*******************************************

Sub DeletecolonnesSLA()

Columns("BT:BK").Delete Shift:=xlToLeft
Columns("BI:BI").Delete Shift:=xlToLeft
Columns("BF:BF").Delete Shift:=xlToLeft
Columns("BB:AN").Delete Shift:=xlToLeft
Columns("AJ:V").Delete Shift:=xlToLeft
Columns("S:P").Delete Shift:=xlToLeft
Columns("M:K").Delete Shift:=xlToLeft
Columns("I:F").Delete Shift:=xlToLeft
Rows("1:2").Delete Shift:=xlUp
Range("A1").Select
End Sub

A EXECUTER SUR FICHIER D'EXTRACTION
'*******************************************
' RenommeM1Changes Macro
'*******************************************
Sub RenommeM1Changes()

Range("M1").Select
Selection.ClearContents
Range("M1").Select
ActiveCell.FormulaR1C1 = "Dépassement"
Range("A1").Select
End Sub

<gras>A EXECUTER SUR FICHIER D'EXTRACTION</gras
'*******************************************
' CalculDépassementChange Macro
'*******************************************
Sub CalculDépassementChange()
deli = Range("K" & Rows.Count).End(xlUp).Row
Range("M2").FormulaR1C1 = "=RC[-1]-RC[-2]"
Range("M2").AutoFill Destination:=Range("M2:M" & deli)
Range("M2:M" & deli).Select
End Sub

<gras>A EXECUTER SUR FICHIER D'EXTRACTION</gras
'*******************************************
' Suppression dernier Enregistrement d'une colonne
'*******************************************
Sub SupDerEnregD1Col()
Dim lifin As Long
lifin = Range("A" & Rows.Count).End(xlUp).Row
Range("A" & lifin).ClearContents
End Sub

<gras>A EXECUTER SUR FICHIER GLOBAL</gras

'Récupérations des données
'********************************************************

option explicit

sub RecupereDataFichier()

'********************Déclaration des variables**************************
Dim ListeFichier as variant
Dim MonClasseur as workbook

'*****On désactive le presse papier et le raffraichissement de l'écran***
Application.cutcopymode=false
Application.screenupdating=false

'*********************On efface les anciennes données*****************
Activesheet.range ("A2").currentregion.clear

ChDir "C:\Users\Name\Downloads" 'te place dans le répertoire "C:\Users\CDURRIEU\Downloads"
'Affiche la boîte de dialogue Ouvrir

'******************On récupère le fichier de données à copier************
ListeFichier=application.getopenfilename(title:="sélectionnez votre fichier",filefilter:="fichiers excel(*.xls*),*xls*",buttontext:="Cliquez")

'****************************Prévoir le cas du bouton Annuler************
if ListeFichier <> false then
'********************On affecte le fichier sélectionné*******************
set Monclasseur=Application.workbooks.open(ListeFichier)
'****On copie les données de la feuille 1 du classeur sélectionné*******
MonClasseur.sheets(1).range("A1").currentregion.copy
'****************On colle les données dans la feuille active*************
thisworkbook.activesheet.range("A1").pastespecial xlpastevalues
'*********On désactive les messages d'alerte de Microsoft*************
application.displatalerts=false
'***************************On ferme le classeur source****************
MonClasseur.close

End if

'*******On réactive le presse papier et le rafraîchissement de l'écran*****
Application.cutcopymode=true
Application.screenupdating=true

End sub

Il me manque la définition de la plage de données pour les TCD à l'issue et la nommer à chaque fois en "DatSLAGéné__3".

J'espère avoir été assez clair dans ce que je voudrais obtenir comme résultat.

Merci

Druddy

Bonsoir Le Pingou,

Voici le lien avec donc mon problème est de lancer des macros d'un fichier sur un autre :

https://www.cjoint.com/c/KFjtvNUYmqx