Déclenchement Macro à l'ouverture fichier [Résolu]

- - Dernière réponse : cs_MPi
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
- 27 nov. 2012 à 16:38
Bonsoir

Dans ce code, je n'arrive pas à ajouter le fait de déclencher la macro à l'ouverture de mon fichier excel

Sub Regroupement() 
 'J'écris mes en-têtes de colonnes 
 Range("a1") = "Matricule" 
 Range("B1") = "Nom" 
 Range("C1") = "Prénom" 
 Range("D1") = "Section AT" 
 Range("E1") = "Code Risque AT" 
 Range("F1") = "Code Risque Bureau" 
 Range("G1") = "Taux AT" 
 Range("H1") = "Brut SS" 
 Range("I1") = "Plaf SS" 
 Range("J1") = "csg/crds sur revenus d'activité" 
 Range("K1") = "CSG/CRDS sur revenus de remplacement" 
 Range("L1") = "Base Brute Fiscal" 
 Range("M1") = "Net Imposable" 
 Range("N1") = "Avantages Nat" 
 Range("O1") = "Frais Prof" 
 Range("P1") = "Epargne Salariale" 
 Range("Q1") = "Nombre Actions" 
 Range("R1") = "Valeur Unitaire" 
 Range("S1") = "Date attribution" 
 Range("T1") = "Date d'acquisition définitive" 
 Range("U1") = "Temps Travail Payé" 
 Range("V1") = "Code Indemnité fin contrat" 
 Range("W1") = "Montant Indemnité versée" 
 Range("X1") = "Code Statut Catégoriel Conventionnel" 
 Range("Y1") = "Code Statut Catégoriel AGIRC ARRCO" 
 Range("Z1") = "Code convention Collective" 
 Range("AA1") = "Classement Conventionnel" 
 Range("AB1") = "Brut Congés Payés" 
 Range("AC1") = "Sommes Isolées" 
 Range("AD1") = "Prévoyance TA" 
 Range("AE1") = "Prévoyance TB" 
 Range("AF1") = "Prévoyance TC" 
 Range("AG1") = "Prévoyance TD" 

 'J'ouvre le classeur URSAFF 1.xls 
 Workbooks.Open "F:\PROJET DADS-U\URSAFF 1.XLS" 
 'Je copie les données de la feuille Export 0 
 Workbooks("URSAFF 1.xls").Sheets("Export 0").Range("C2:K41").Copy 
 Workbooks("Regroupement.xlsm").Activate 
 Workbooks("Regroupement.xlsm").Sheets("Fichier de contrôle").Range("A2").Select 
 Workbooks("Regroupement.xlsm").Sheets("Fichier de contrôle").Paste 
 'Fermeture de URSAFF 1.xls 
 Workbooks("URSAFF 1.xls").Close 

End Sub



Quelqu'un peut il m'aider svp ?

Merci d'avance

Cdt
Afficher la suite 

2 réponses

Meilleure réponse
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
15
3
Merci
J'ajouterais... à mettre dans ThisWorkbook

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 141 internautes nous ont dit merci ce mois-ci

Commenter la réponse de cs_MPi
Messages postés
303
Date d'inscription
mercredi 12 janvier 2005
Statut
Membre
Dernière intervention
3 octobre 2013
0
Merci
Bonjour

L'execution d'une macro à l'ouverture s'écrit

Private Sub Workbook_Open()

bonne journée
Commenter la réponse de c148270