Déclenchement Macro à l'ouverture du fichier

Déclenchement Macro à l'ouverture du fichier - VB/VBA/VBS - Programmation

Marsh Posté le 23-11-2012 à 22:54:29    

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

Code :
  1. Sub Regroupement()
  2. 'J'écris mes en-têtes de colonnes
  3. Range("a1" ) = "Matricule"
  4. Range("B1" ) = "Nom"
  5. Range("C1" ) = "Prénom"
  6. Range("D1" ) = "Section AT"
  7. Range("E1" ) = "Code Risque AT"
  8. Range("F1" ) = "Code Risque Bureau"
  9. Range("G1" ) = "Taux AT"
  10. Range("H1" ) = "Brut SS"
  11. Range("I1" ) = "Plaf SS"
  12. Range("J1" ) = "csg/crds sur revenus d'activité"
  13. Range("K1" ) = "CSG/CRDS sur revenus de remplacement"
  14. Range("L1" ) = "Base Brute Fiscal"
  15. Range("M1" ) = "Net Imposable"
  16. Range("N1" ) = "Avantages Nat"
  17. Range("O1" ) = "Frais Prof"
  18. Range("P1" ) = "Epargne Salariale"
  19. Range("Q1" ) = "Nombre Actions"
  20. Range("R1" ) = "Valeur Unitaire"
  21. Range("S1" ) = "Date attribution"
  22. Range("T1" ) = "Date d'acquisition définitive"
  23. Range("U1" ) = "Temps Travail Payé"
  24. Range("V1" ) = "Code Indemnité fin contrat"
  25. Range("W1" ) = "Montant Indemnité versée"
  26. Range("X1" ) = "Code Statut Catégoriel Conventionnel"
  27. Range("Y1" ) = "Code Statut Catégoriel AGIRC ARRCO"
  28. Range("Z1" ) = "Code convention Collective"
  29. Range("AA1" ) = "Classement Conventionnel"
  30. Range("AB1" ) = "Brut Congés Payés"
  31. Range("AC1" ) = "Sommes Isolées"
  32. Range("AD1" ) = "Prévoyance TA"
  33. Range("AE1" ) = "Prévoyance TB"
  34. Range("AF1" ) = "Prévoyance TC"
  35. Range("AG1" ) = "Prévoyance TD"
  37. 'J'ouvre le classeur URSAFF 1.xls
  38. Workbooks.Open "F:\PROJET DADS-U\URSAFF 1.XLS"
  39. 'Je copie les données de la feuille Export 0
  40. Workbooks("URSAFF 1.xls" ).Sheets("Export 0" ).Range("C2:K41" ).Copy
  41. Workbooks("Regroupement.xlsm" ).Activate
  42. Workbooks("Regroupement.xlsm" ).Sheets("Fichier de contrôle" ).Range("A2" ).Select
  43. Workbooks("Regroupement.xlsm" ).Sheets("Fichier de contrôle" ).Paste
  44. 'Fermeture de URSAFF 1.xls
  45. Workbooks("URSAFF 1.xls" ).Close
  47. End Sub


 
Quelqu'un peut il m'aider svp ?
 
Merci d'avance
 
Cdt

Reply

Marsh Posté le 23-11-2012 à 22:54:29   

Reply

Marsh Posté le 24-11-2012 à 20:02:22    

Bsr.
 
Pour lancer une macro automatiquement à l'ouverture de ton fichier tu dois :
- mettre l'intégralité de ton code ci-dessous dans Microsoft Excel Objet
- ouvrir ThisWorkbook ;
- puis, là où tu dois insérer ton code, dans le rectangle supérieur gauche, sélectionner "Workbook" ;
- puis, dans le rectangle supérieur droit, sélectionner "Open".
 
Ainsi, dès l'ouverture de ton fichier, ton programme s'enclenche automatiquement.
 
Bonne continuation !
 
AlainLi

Reply

Marsh Posté le 24-11-2012 à 20:03:12    

ERRATUM /
lire ... code ci-dessus...
Le reste sans changement.

Reply

Marsh Posté le 29-11-2012 à 09:24:01    

Merci pour votre réponse
 
Cdt

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed