Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1128 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Déclenchement Macro à l'ouverture du fichier

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Déclenchement Macro à l'ouverture du fichier

n°2165315
FMAILYS
Posté le 23-11-2012 à 22:54:29  profilanswer
 

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"
  36. 'J'ouvre le classeur URSAFF 1.xls
  37. Workbooks.Open "F:\PROJET DADS-U\URSAFF 1.XLS"
  38. 'Je copie les données de la feuille Export 0
  39. Workbooks("URSAFF 1.xls" ).Sheets("Export 0" ).Range("C2:K41" ).Copy
  40. Workbooks("Regroupement.xlsm" ).Activate
  41. Workbooks("Regroupement.xlsm" ).Sheets("Fichier de contrôle" ).Range("A2" ).Select
  42. Workbooks("Regroupement.xlsm" ).Sheets("Fichier de contrôle" ).Paste
  43. 'Fermeture de URSAFF 1.xls
  44. Workbooks("URSAFF 1.xls" ).Close
  45. End Sub


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

mood
Publicité
Posté le 23-11-2012 à 22:54:29  profilanswer
 

n°2165356
alainli
Posté le 24-11-2012 à 20:02:22  profilanswer
 

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

n°2165357
alainli
Posté le 24-11-2012 à 20:03:12  profilanswer
 

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

n°2165990
FMAILYS
Posté le 29-11-2012 à 09:24:01  profilanswer
 

Merci pour votre réponse
 
Cdt


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Déclenchement Macro à l'ouverture du fichier

 

Sujets relatifs
envoi direct de fichier postcript a une imprimante reseau sans driversAccès fichier sur réseau local netbios
executer un JDK avec un fichier .batRemplacer une partie de texte par une autre dans un fichier texte
Uploader un fichier dans tous les dossiers de mon ftp ?Probléme syntaxe macro excel 4
Effectuer un fopen sur un fichier situer sur un nasAppeler fichier SQL
[PERL] Récupérer des données dans un fichier txtLien vers un fichier autre
Plus de sujets relatifs à : Déclenchement Macro à l'ouverture du fichier


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR