Discussion :

[Jfn1234]

Bonjour,

J ai fait un code macro pour envoyer par mail mon classeur Excel lorsque je clic sur le bouton que j ai inséré!

Mais j aimerais savoir le code vba afin de mettre une condition que si j ouvre mon fichier en mode read only le macro ne s active pas ou se désactive car je suis sur un réseau et je n ai pas besoin que chq personne qui va ouvrir le fichier puisse envoyer un mail avec mon fichier si il s amuse à cliquer sur le bouton

Je ne sais pas si je suis compréhensible!!!

Merci

[Invité]

Bonjour,

Vous pourriez aussi mettre votre macro dans un autre fichier qui serait installé uniquement sur votre poste. Voir aussi les macros complémentaires avec un exemple ici additionner-plage-cellules-contenant-caracteres-numeriques-alphanumeriques

[Jfn1234]

Bonjour,

Vous pourriez aussi mettre votre macro dans un autre fichier qui serait installé uniquement sur votre poste. Voir aussi les macros complémentaires avec un exemple ici additionner-plage-cellules-contenant-caracteres-numeriques-alphanumeriques

Pas possible . On travail sur un fichier partagé Entre 8 personnes à faire de l encodage et je mets le fichier sur le réseau afin que d autres personnes qui n ont pas le code accès puissent voir le fichier mais san rien modifier!
A part que le bouton que j ai créé qui envoi mon fichier sur internet même en lecture seule fonctionne alors que je ne voudrais pas

[Invité]

Avec une macro complémentaire, vous pouvez distribuer le code qui vous sert à envoyer votre fichier uniquement à ceux qui en ont besoin. Votre macro sera disponible dans le menu des compléments d'Excel.

[Jfn1234]

Avec une macro complémentaire, vous pouvez distribuer le code qui vous sert à envoyer votre fichier uniquement à ceux qui en ont besoin. Votre macro sera disponible dans le menu des compléments d'Excel.

Merci!!*Mais vous ne pensez pas que je pourrais mettre une condition?
Je débute la dedans!!

Je ne comprends pas bien votre message avec les compléments d Excel!

J ai ajouter un bouton sur le fichier dans le classeur et mes collaborateurs ont juste appuyer dessus pour que le fichier s envoie par mail automatiquement car trop compliqué pour eux de l envoyer ne pièce jointe

[Invité]

Juste un exemple visuel de macros complémentaires dans le menu d'Excel. Une macro complémentaire ne contient que du code.
Dans l'exemple ci-dessous, vous pouvez voir la macro complémentaire Marketing dont vous avez le lien. Dans le fichier Marketing.xlam, des menus ont été développés pour lancer des macros.

Pièce jointe 367204

Ce n'est qu'une piste et vous aurez sans doute d'autres réponses qui correspondront mieux à votre demande.

Bon courage.

[parmi]

Bonjour,

De ce que je comprends de ta demande, tu peux utiliser en début de procédure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If ThisWorkbook.ReadOnly Then Exit Sub

[Jfn1234]

Bonjour,

De ce que je comprends de ta demande, tu peux utiliser en début de procédure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If ThisWorkbook.ReadOnly Then Exit Sub

Quand je mets cette ligne il me met

Erreur de compilation

Instruction incorrecte à l extérieur d’une procédure

[parmi]

Tu dois l'inscrire au début de la macro où tu fais l'envoi, pas en début de module

[Jfn1234]

Tu dois l'inscrire au début de la macro où tu fais l'envoi, pas en début de module

bonjour merci pour votre reponse.

je dois l inscrire ou?? je capte pas deso je debute dedans

[parmi]

Disons que ta macro s'appelle EnvoiClasseur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub EnvoiClasseur()
   If ThisWorkbook.ReadOnly Then Exit Sub
 
   'Ici le code qui fait l'envoi
 
End Sub

De cette façon, si le classeur est ouvert en mode lecture seule, la macro sera inactive.

Une autre façon de procéder serait d'utiliser ton Username Windows ou Excel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
    If LCase(Environ("username")) <> "mon username windows en minuscules" Then Exit Sub
 
    'ou encore
    'MsgBox Application.UserName 'pour savoir comment est écrit ton nom d'usager dans Excel
    'Tu peux aussi le voir en allant dans les options d'Excel...
    If Application.UserName <> "Nom, Prénom" Then Exit Sub

[Jfn1234]

Merci ça fonctionne je le mettais avant le code donc ça n allait pas!!
Je ne dois pas mettre option explicit???? Ça sert à quoi ça option explicit??

Mais je ne peux pas mettre mon user name car on est sur un réseau entreprise avec plusieurs ID différent
Et si chacun ouvre le fichier ça va pas aller chacun sur sa session !!!

[Jfn1234]

Autre sous question!
Est il possible que lorsque j appuies sur le bouton pour envoyer
Cela crée une copie de mon fichier que ça se renomme ??

Merci

[parmi]

Mais je ne peux pas mettre mon user name car on est sur un réseau entreprise avec plusieurs ID différent
Et si chacun ouvre le fichier ça va pas aller chacun sur sa session !!!

En réseau, chacun a son propre ID, donc ça ne devrait pas causer de problème.
Si ton ID Windows est Jfn1234, tu l'écris comme mentionné dans mon code.
Personne ne pourra utiliser ta macro puisqu'activée selon leur ID

Pour faire une copie, utilise SaveCopyAs

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\Nouveau nom.xlsm"

Et tu peux utiliser cette copie dans ton envoi...

[Jfn1234]

Mais je veux que les autres utilisateurs puissent utiliser la macro!
Mais le premier truc fonctionne nikel!!

Pour la copie je mets ou la ligne dans la macro!
MonMessage.attachment.add après ca ou avant

[Jfn1234]

Cela crée une copie dans mon dossier ou est mon fichier ou juste pour l envoie de mon fichier Excel!!a savoir que je devrai supprimer a chs fois ce fichier!!

[parmi]

Ça dépend de tes besoins.

SaveCopyAs sauvegarde une copie de ton classeur sous le nom que tu lui donnes.
Tu peux donc envoyer cette copie et la supprimer si tu n'en n'a plus besoin (Commande Kill - voir l'aide)

Tu dis que les utilisateurs doivent pouvoir utiliser la macro, mais tu dis aussi qu'ils ne doivent pas pouvoir envoyer le classeur... (?!)
Il faudrait comprendre comment ta ou tes macros fonctionnent.

Plutôt que Exit Sub, tu peux juste mettre une condition.
Si le Username est bon, fais l'envoi sinon passe à la suite...

[Jfn1234]

Ok merci pour ton aide!!

On est 10 utilisateurs du fichier! Et 50 personnes peuvent lire mais pas envoyer, ( j essaye d être le plus clair)

La commande kill c est dans la macro de mon classeur???

[parmi]

La commande Kill est une commande VBA que tu utilises si tu veux supprimer un fichier dans un répertoire.
Du genre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Dir(Chemin & Fichier) <> "" then Kill Chemin & Fichier 'Si le fichier existe le supprimer

Si 10 personnes peuvent lire et envoyer, il faudrait vérifier que ces personnes ont les droits.
Si tu mets un mot de passe sur le fichier que seules ces 10 personnes connaissent, seules ces personnes pourront envoyer le fichier en utilisant la méthode ReadOnly que je t'ai donnée puisqu'ils ont le mot de passe.

Autrement, tu pourrais avoir une feuille masquée dans laquelle tu entres les ID de chacun et tu vérifies à l'ouverture du classeur (Workbook_Open).

Si ta macro est démarrée par un bouton, tu pourrais aussi le faire disparaître à l'ouverture au besoin.

Comme tu peux voir, il existe plusieurs possibilités...

[Jfn1234]

Oui merci , on a tous le code du fichier donc c’est ok avec la commande read only!
Merci beaucoup beaucoup

Pour le kill je peux juste mettre
Kil et le nom du fichier qui sera à supprimer??
Par contre si vous pouviez me dire ou en dois placer le copy as Dans le code ! Merci beaucoup