Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Exécution macro à l'ouverture de fichier

Bernard01

XLDnaute Nouveau
Bonjour et merci à tous ceux qui se pencheront sur mon problème. Je tâtonne encore beaucoup sur VBA et je ne sais pas encore comment faire certaines procédures.
Je voudrais réussir à créer une macro qui s'exécute au démarrage, Cette macro se trouve sur un fichier (jeudi 14 mars SOIR.xlsm), ouvre un autre fichier (Données des équipes.xlsx) qui est régulièrement mis à jour, copie une plage de cellules, colle sur un onglet du 1er fichier et referme le fichier qui à été ouvert précédemment.
Jusque là, je sais faire.
Mais, il faudrait que cette macro soit valable automatiquement pour fonctionner dans différent fichiers identiques mais avec des noms différents.
De plus, le fichier dans lequel il y à la macro est envoyer sur de multiples mails afin d'être ouvert ailleurs. Il ne faut pas que le macro puisse s'exécuter ailleurs que sur mon PC ou ailleurs que dans son répertoire d'origine. Ou bien que la macro s'enlève avant d'envoyer le fichier par mail.
J'espère que c'est faisable, et que vous trouverez le moyen de résoudre mon problème.
Merci d'avance à tous.
 

Pièces jointes

  • Données des équipes.xlsx
    11.4 KB · Affichages: 2
  • 4 - Jeudi 14 mars 2024 SOIR.xlsm
    215.6 KB · Affichages: 2

crocrocro

XLDnaute Occasionnel
Bonjour Bernard,
le code est protégé par mot de passe

IL est possible de conditionner l'exécution de la macro en plaçant ce code en début de macro :
VB:
If Environ("COMPUTERNAME") <> "Votre PC" then Exit Sub
 
Dernière édition:

crocrocro

XLDnaute Occasionnel
Je n'ai pas ouvert le fichier mais je pense que le code suivant permet de répondre au besoin
Il ne faut pas que le macro puisse s'exécuter ailleurs que sur mon PC ou ailleurs que dans son répertoire d'origine.

VB:
If (ThisWorkbook.Path <> "mon path") Or (Environ("COMPUTERNAME") <> "Votre PC") then Exit Sub
 

Discussions similaires

Réponses
2
Affichages
312
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…