Macro pour MAJ données via un second fichier Excel

P

Pierre_C

XLDnaute Nouveau
Bonjour,
Je débute en macros et je dois en réaliser une permettant ceci:
- activée depuis le fichier Excel 1, elle doit permettre l'ouverture d'un fichier Excel 2 que l'utilisateur doit pouvoir choisir sur son disque dur
- elle doit permettre la récupération de données sur le fichier 2, informations réparties sur 10 onglets différents, pour les insérer au fichier 1
- elle doit fermer le fichier 2 une fois finie l'extraction

En farfouillant sur le forum j'ai réussi à trouver la solution pour proposer à l'utilisateur d'ouvrir un fichier Excel de son choix.
Cependant, je bloque dans la mesure où je ne sais pas comment modifier le code pour que dans la suite du code la référence au fichier 2 se fasse en fonction du fichier ouvert (quel qu'il soit).
Je ne sais également pas comment faire fermer le fichier 2 par la macro.

Je vous colle ci-dessous où j'en suis arrivé, c'est sommaire mais c'est un début:
En rouge, l'endroit où ça bloque pour le nom du fichier

Merci d'avance de votre aide!

Pierre

Code: 
Sub CalculETPs()
'
' CalculETPs Macro
'

'
'ouverture du fichier source (dernière version de la fiche programme)
    Dim Fichier, NomFichier$
Fichier = Application.GetOpenFilename("Fichiers Microsoft Office Excel, *.xlsx")
If Fichier = False Then Exit Sub
If Fichier Like "*\" & ThisWorkbook.Name Then MsgBox "Ouverture non autorisée.": Exit Sub
On Error Resume Next
Workbooks.Open Fichier
On Error GoTo 0
NomFichier = Dir(Fichier)
Workbooks(NomFichier).Activate
'récupération des données une par une par copier coller
    Windows( _
 [COLOR="#FF0000"]       "NomFichier" _[/COLOR]
        ).Activate
    Sheets("CA01 Ecarts Techniques").Select
    Range("H14:AK16").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows( _
        "XXX - Calcul des ETP CC du 20 Juin à fin Avril avec Avenant (Vue par CA) 20120613 V0.o.xls" _
        ).Activate
    Range("F6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Workbooks(NomFichier).Activate
    Range("H28:AK30").Select
    Range("AK28").Activate
    Application.CutCopyMode = False
    Selection.Copy
    Windows( _
        "XXX - Calcul des ETP CC du 20 Juin à fin Avril avec Avenant (Vue par CA) 20120613 V0.o.xls" _
        ).Activate
    Range("F9").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows( _
        "Dir(Fichier)" _
        ).Activate
    Sheets("CA02 Modèle Technique").Select
    ActiveWindow.SmallScroll Down:=-6
    Range("H14:AN16").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows( _
        "XXX - Calcul des ETP CC du 20 Juin à fin Avril avec Avenant (Vue par CA) 20120613 V0.o.xls" _
        ).Activate
    Range("F12").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows( _
        "NomFichier" _
        ).Activate
    Range("H28:AN30").Select
    Range("AN28").Activate
    Application.CutCopyMode = False
    Selection.Copy
    Windows( _
        "XXX - Calcul des ETP CC du 20 Juin à fin Avril avec Avenant (Vue par CA) 20120613 V0.o.xls" _
        ).Activate
    Range("F15").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows( _
        "NomFichier" _
        ).Activate
    Sheets("CA03 Infrastructure").Select
    Range("H14:AT16").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows( _
        "XXX - Calcul des ETP CC du 20 Juin à fin Avril avec Avenant (Vue par CA) 20120613 V0.o.xls" _
        ).Activate
    Range("F18").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows( _
        "NomFichier" _
        ).Activate
    Range("H28:AT30").Select
    Range("AT28").Activate
    Application.CutCopyMode = False
    Selection.Copy
    Windows( _
        "XXX - Calcul des ETP CC du 20 Juin à fin Avril avec Avenant (Vue par CA) 20120613 V0.o.xls" _
        ).Activate
    Range("F21").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows( _
        "NomFichier" _
        ).Activate
    Sheets("CA05 Sécurité").Select
    Range("H14:AT16").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows( _
        "XXX - Calcul des ETP CC du 20 Juin à fin Avril avec Avenant (Vue par CA) 20120613 V0.o.xls" _
        ).Activate
    Range("F24").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows( _
        "NomFichier" _
        ).Activate
    Range("H28:AT30").Select
    Range("AT28").Activate
    Application.CutCopyMode = False
    Selection.Copy
    Windows( _
        "XXX - Calcul des ETP CC du 20 Juin à fin Avril avec Avenant (Vue par CA) 20120613 V0.o.xls" _
        ).Activate
    Range("F27").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows( _
        "NomFichier" _
        ).Activate
    Sheets("CA06 System Management").Select
    Range("H14:AK16").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows( _
        "XXX - Calcul des ETP CC du 20 Juin à fin Avril avec Avenant (Vue par CA) 20120613 V0.o.xls" _
        ).Activate
    Range("F30").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows( _
        "NomFichier" _
        ).Activate
    Range("H28:AK30").Select
    Range("AK28").Activate
    Application.CutCopyMode = False
    Selection.Copy
    Windows( _
        "XXX - Calcul des ETP CC du 20 Juin à fin Avril avec Avenant (Vue par CA) 20120613 V0.o.xls" _
        ).Activate
    Range("F33").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows( _
        "NomFichier" _
        ).Activate
    Sheets("CA07 Service Management").Select
    Range("H14:AK16").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows( _
        "XXX - Calcul des ETP CC du 20 Juin à fin Avril avec Avenant (Vue par CA) 20120613 V0.o.xls" _
        ).Activate
    Range("F36").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=12
    Windows( _
        "NomFichier" _
        ).Activate
    Range("H28:AK30").Select
    Range("AK28").Activate
    Application.CutCopyMode = False
    Selection.Copy
    Windows( _
        "XXX - Calcul des ETP CC du 20 Juin à fin Avril avec Avenant (Vue par CA) 20120613 V0.o.xls" _
        ).Activate
    Range("F39").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows( _
        "NomFichier" _
        ).Activate
    Sheets("CA08 Intégration").Select
    Range("H14:AH16").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows( _
        "XXX - Calcul des ETP CC du 20 Juin à fin Avril avec Avenant (Vue par CA) 20120613 V0.o.xls" _
        ).Activate
    Range("F42").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows( _
        "NomFichier" _
        ).Activate
    Range("H28:AH30").Select
    Range("AH28").Activate
    Application.CutCopyMode = False
    Selection.Copy
    Windows( _
        "XXX - Calcul des ETP CC du 20 Juin à fin Avril avec Avenant (Vue par CA) 20120613 V0.o.xls" _
        ).Activate
    Range("F45").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows( _
        "NomFichier" _
        ).Activate
    Sheets("CA09 Env. de Migration").Select
    Range("H14:AT16").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows( _
        "XXX1 - Calcul des ETP CC du 20 Juin à fin Avril avec Avenant (Vue par CA) 20120613 V0.o.xls" _
        ).Activate
    Range("F48").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=15
    Windows( _
        "NomFichier" _
        ).Activate
    Range("H28:AT30").Select
    Range("AT28").Activate
    Application.CutCopyMode = False
    Selection.Copy
    Windows( _
        "XXX - Calcul des ETP CC du 20 Juin à fin Avril avec Avenant (Vue par CA) 20120613 V0.o.xls" _
        ).Activate
    Range("F51").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows( _
        "NomFichier" _
        ).Activate
    ActiveWindow.SmallScroll Down:=6
    Sheets("CA10 Pilotage Projet Prod.").Select
    Range("H14:AT16").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows( _
        "XXX - Calcul des ETP CC du 20 Juin à fin Avril avec Avenant (Vue par CA) 20120613 V0.o.xls" _
        ).Activate
    Range("F54").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows( _
        "NomFichier" _
        ).Activate
    Range("H28:AT30").Select
    Range("AT28").Activate
    Application.CutCopyMode = False
    Selection.Copy
    Windows( _
        "XXX - Calcul des ETP CC du 20 Juin à fin Avril avec Avenant (Vue par CA) 20120613 V0.o.xls" _
        ).Activate
    Range("F57").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows( _
        "NomFichier" _
        ).Activate
    Sheets("CA11Org. Build Prod.Run").Select
    Range("H14:AK16").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows( _
        "XXX - Calcul des ETP CC du 20 Juin à fin Avril avec Avenant (Vue par CA) 20120613 V0.o.xls" _
        ).Activate
    Range("F60").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=6
    Windows( _
        "NomFichier" _
        ).Activate
    Range("H28:AK30").Select
    Range("AK28").Activate
    Application.CutCopyMode = False
    Selection.Copy
    Windows( _
        "XXX - Calcul des ETP CC du 20 Juin à fin Avril avec Avenant (Vue par CA) 20120613 V0.o.xls" _
        ).Activate
    Range("F63").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=-39
    Range("F6").Select
    Application.CutCopyMode = False
    Calculate
    Sheets("XXX").Select
'ici, manque un code pour faire fermer le fichier 2 par la macro
End Sub
 
Trier par date Trier par votes
Dranreb

Dranreb

XLDnaute Barbatruc
Re : Macro pour MAJ données via un second fichier Excel

Bonjour.
Ne réactivez pas le classeur destinataire qui est celui qui contient la macro si j'ai bien compris.
Comme ça ce sera toujours ActiveWorkbook.
N'utilisez aucun Activate ni Select jamais nulle part.
La feuille destinatrice dans ThisWorkbook est toujours connue sous son CodeName.
À +
 
Vote positif 0 Vote négatif
P

Pierre_C

XLDnaute Nouveau
Re : Macro pour MAJ données via un second fichier Excel

La macro n'a pas apprécié la suppression de tous les .Activate et les .Select
Elle bloque toujours sur des liaisons sur le fichier 2 qui l'empêchent de tourner, je n'arrive pas à supprimer ces liaisons.

Edition: avec un peu de persévérance, ça marche finalement! Merci!
 
Dernière édition:
Vote positif 0 Vote négatif

Discussions similaires

R
  • Résolu(e)
XL 2019 creer une macro pour copier des info d un onglet a un autre dans le meme classeur
Réponses
4
Affichages
260
robpellan52
R
F
  • Résolu(e)
Microsoft 365 Message Box oui/non
Réponses
2
Affichages
112
Francky79
F
G
  • Résolu(e)
XL 2013 copier coller valeur d'une colonne dynamique
Réponses
13
Affichages
326
gwenn49
G
O
  • Question
XL 2010 aide sur code VBA collationnement de données
Réponses
10
Affichages
438
olivier388
O
S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
1 K
AtTheOne
AtTheOne
Usine à gaz
  • Résolu(e)
XL 2021 Coller "RdV Fait Facturé" de "J" ligne active jusqu'à "J" dernière ligne NON vide
2
Réponses
27
Affichages
588
TooFatBoy
TooFatBoy
F
  • Résolu(e)
XL 2021 Réaliser une macro pour copier une ligne avec formule ?
Réponses
4
Affichages
364
fanou06
F
mouchtre
  • Résolu(e)
Microsoft 365 Macro fonctionnant avec excel 365 sur windows 11 mais ne fonctionnent pas sur un autre windows 11 avec aussi un excel 365
Réponses
11
Affichages
517
mouchtre
mouchtre
Usine à gaz
  • Résolu(e)
XL 2021 Ecrire dans une une autre feuille
Réponses
3
Affichages
302
Usine à gaz
Usine à gaz
X
  • Question
XL 2016 Copier à partir de la dernière ligne renseignée.
Réponses
8
Affichages
407
Xender
X

Membres actuellement en ligne

13 membres et 120 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 109
Messages
2 085 386
Membres
102 881
dernier inscrit
Talib