Copie de feuille pour envoi par mail
Salut tout le monde !
j'ai une feuille que j'envoi par mail , jusque là pas de prob. !
mais je voudrais supprimer le code VBA en même tant que la personne qui reçoit le mail et qui ouvre la feuille ne puisse pas avoir accès au code (voir code)
merci de votre aide !!!!
https://www.excel-pratique.com/~files/doc/demande_d_aide.xls
Salut,
je me balade et je suis tombé sur ton problème.
Même si je pense que tu n'es plus interresser par la réponse.
Je pense que pour ton problème tu peux soit supprimer le code en faisant une copie dans tes documents et envoyé la copie, soit mettre un mots de passe pour accéder à l'éditeur VBA.
Hésite pas à fermer le sujet en cliquant sur le signe "OK".
Bonjour Arthua AMY,
et bien cela tombe bien que tu remontes le sujet de chinel (2007).
J'ai un fichier que je sauvegarde en archive et j'envoie un mail à mon responsable pour lui dire que le fichier et consultable à telle endroit sur le réseau.
et tout cela en vba
Mon problème, c'est que quand mon responsable ouvre mon fichier en archive la macro fonctionne toujours et il a cette alarme
et ce que je voudrais aussi c'est qu'il ne puisse pas modifier l'intitulé du fichier Sauvegarde.
merci d'avance
Quel est le but de le prévenir de l'endroit où est le fichier en vba ? Ne peut-tu pas lui envoyer directement un mail ?
Il y a des explications d'erreurs donc tu peux essayer ces erreurs la :
- Le fichier n'est pas ouvert autre part
- tu enregistre le fichier avec une macro ? Fait attention qu'il porte un nom différent à chaque fois.
- Tu as déplacer le fichier dans un autre dossier peut être ? Cela n'as pas changé ton code alors que tu as l'air d'utiliser le chemin du fichier. Change cette partie
Bonjour,
le but d'envoyer un message par mail en automatique quant on ferme le fichier c'est pour ne pas le faire en manuel c'est le but et surtout de ne pas oublier de le faire
le problème c'est quand il ouvre le fichier sauvegardé , comme le code est toujours actif il change le titre du fichier. Il faudrait trouver un code qui désactive le code du fichier sauvegardé
cdt
ok tu envoies quoi comme message ?
et c'est le code qui change le nom du fichier ou c'est ton responsable ?
bonjour,
Sub Envoi_Mail()
Dim ol As Object, myItem As Object
Dim ListDest As String
Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olMailItem)
ListDest = "xxxx@outlook.fr" & ";" & "xxxx@gmail.com"
myItem.To = ListDest
myItem.Subject = "envoi du fichier Test"
myItem.Body = "Vous trouverez le fichier contenant les informations sur Checklijst et ce qui a été modifié sur le réseau.Cordialement l 'équipe 28"
'fichier en cours d'utilisation envoyé en attaché:
'myItem.Attachments.Add ActiveWorkbook.FullName
myItem.Send
Set ol = Nothing
'On quitte Excel
'Application.Quit
End Sub
'Procédure permettant de réaliser un fichier de sauvegarde
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Déclaration des variables
Dim NomDossier As String
Dim NomFichier As String
'Affectation des variables
NomDossier = "C:\Users\domto\Desktop\Test\Test\SauvegardeTest\"
'Désactiver les messages d'alertes
Application.DisplayAlerts = False
'On créé le nom du fichier de sauvegarde (Date + Nom)
NomFichier = Day(Date) & "-" & Month(Date) & "-" & Year(Date) & "_" & Hour(Time) & "_" & "TEST.xlsm"
'On sauvegarde le fichier de backup
ActiveWorkbook.SaveCopyAs NomDossier & NomFichier
'On affiche un message de confirmation
MsgBox "Votre fichier de sauvegarde intitulé : " & NomFichier & vbNewLine & _
"dans le dossier suivant : " & NomDossier, vbOKOnly + vbInformation, "CONFIRMATION"
'On quitte Excel
'Application.Quit
End Sub
Le problème est quand tu ouvres le fichier sauvegardé
d'accord ok
je viens de comprendre ton soucis.
Le fichier change tout seul de nom quand tu le réouvre et donc ca fait beugué c'est ca ?
Et c'est ou que ca beugue ?
Peut être fait un nouveau sujet car celui-ci date et ne répond pas à ta problématique
oui je vais encore chercher un peu avant de créer un nouveau sujet.
merci encore pour ton intervention