G
GILLES
Guest
- Bonjour à tous.
Avec l'aide des diverses exemples et interrogations sur le site actuel que
je remercie, j'ai réalisé une petite application me permettant de coller un . xls sur un message outlook.
- Néanmoins, je dois faire un clic droit , lorsque le message est ouvert, pour récupérer ma feuille XLS.
- N'y a-t-il pas un moyen pour faire apparaitre cette feuille XLS automatiquement sans le clic droit me permattant le "collage".
Merci à tous.
'pour faire apparaitre le mail dans la transmission
Dim Link As String
Link="mailto:"&"?Subject=Permanence"
ActiveWorkbook.FollowHyperlink Adress:=Link,NewWindow:=True
'on colle les nouvelles données sur le message
ActiveWindow.WindowState=xlMaximized
Range("Formulaire").Select
Selection.Copy
'Réalise la copie à deux exemplaires
ActiveWindow.SelectedSheets.PrintOut Copies:=2,Collate:=True
End Sub
Merci à tous.
Avec l'aide des diverses exemples et interrogations sur le site actuel que
je remercie, j'ai réalisé une petite application me permettant de coller un . xls sur un message outlook.
- Néanmoins, je dois faire un clic droit , lorsque le message est ouvert, pour récupérer ma feuille XLS.
- N'y a-t-il pas un moyen pour faire apparaitre cette feuille XLS automatiquement sans le clic droit me permattant le "collage".
Merci à tous.
'pour faire apparaitre le mail dans la transmission
Dim Link As String
Link="mailto:"&"?Subject=Permanence"
ActiveWorkbook.FollowHyperlink Adress:=Link,NewWindow:=True
'on colle les nouvelles données sur le message
ActiveWindow.WindowState=xlMaximized
Range("Formulaire").Select
Selection.Copy
'Réalise la copie à deux exemplaires
ActiveWindow.SelectedSheets.PrintOut Copies:=2,Collate:=True
End Sub
Merci à tous.