Maccro: ouverture de lien
aurelie91220
Messages postés
13
Statut
Membre
-
aurelie91220 -
aurelie91220 -
Bonjour,
J'ai créé un fichier de suivi des temps avec 12 onglets (mois) et 1 onglets qui est un tableau a remplir envoyé à mes collaborateurs qu'ils me renvoient, ensuite grâce à ce doc (déclarations de nombre de jours travaillés) je renseigne le mois correspondants. Le fichier initial est sur un réseau (espace collaboratif)
Pour envoyer le doc, j'ai créé une macro en voici le code:
Sub envoimailavcpj()
Dim NewBook As Workbook
Dim fname As Variant
ActiveSheet.Copy
Set NewBook = ActiveWorkbook
Do
fname = Application.GetSaveAsFilename
Loop Until fname <> False
NewBook.SaveAs Filename:=fname & ".xls"
NewBook.SendMail "blabla@blabla.fr", "Ci-joint le tableau de jours à remplir SVP", True
NewBook.SendMail "bidul@machinchose.fr", "Monsieur Ci-joint le tableau de jours à remplir SVP", True
NewBook.Close False
End Sub
La maccro fonctionne très bien.
Bémol: lorsque mes collaborateurs utilisent la macro des fenêtres de "mise à jour des liaisons" s'ouvrent est le doc initial s'ouvre également alors que je ne veux pas qu'ils interviennent dessus (j'ai beau leur dire de refermer la fenêtre sans en tenir compte il arrive qu'il ne m'écoute pas donc danger d'écrasement de mes données).
Comment faire pour que le fichier ne s'ouvre pas à l'utilisation de leurs fiche individuelle?
Merci pour votre aide
J'ai créé un fichier de suivi des temps avec 12 onglets (mois) et 1 onglets qui est un tableau a remplir envoyé à mes collaborateurs qu'ils me renvoient, ensuite grâce à ce doc (déclarations de nombre de jours travaillés) je renseigne le mois correspondants. Le fichier initial est sur un réseau (espace collaboratif)
Pour envoyer le doc, j'ai créé une macro en voici le code:
Sub envoimailavcpj()
Dim NewBook As Workbook
Dim fname As Variant
ActiveSheet.Copy
Set NewBook = ActiveWorkbook
Do
fname = Application.GetSaveAsFilename
Loop Until fname <> False
NewBook.SaveAs Filename:=fname & ".xls"
NewBook.SendMail "blabla@blabla.fr", "Ci-joint le tableau de jours à remplir SVP", True
NewBook.SendMail "bidul@machinchose.fr", "Monsieur Ci-joint le tableau de jours à remplir SVP", True
NewBook.Close False
End Sub
La maccro fonctionne très bien.
Bémol: lorsque mes collaborateurs utilisent la macro des fenêtres de "mise à jour des liaisons" s'ouvrent est le doc initial s'ouvre également alors que je ne veux pas qu'ils interviennent dessus (j'ai beau leur dire de refermer la fenêtre sans en tenir compte il arrive qu'il ne m'écoute pas donc danger d'écrasement de mes données).
Comment faire pour que le fichier ne s'ouvre pas à l'utilisation de leurs fiche individuelle?
Merci pour votre aide
