Cherche formule sur excel - Page 2

Re,

Récupère ton fichier, fais un clic droit sur l'onglet de feuille
Commande avec TVA
Clic sur Visualiser le code, dans la feuille tu verras un bout de code VBA et tu remarqueras cette ligne. entre les guillemets remplace les xxx par une adresse mail
Dest = "xxx.xxxxxx@xxxx.xx"

ensuite reviens sur la feuille, soit en sélectionnant le fichier dans la barre des tâches, soit en cliquant sur l'icône Excel sur la barre des menus en haut à droite.
Enregistre le fichier et teste l'envoi en un clic sur le bouton.

Tiens moi au courant.
Explique moi ton fonctionnement, si je comprends bien un client achète ou commande de la marchandise, tu fais un bon, jusque là pas de problème mais après ce bon est imprimé pour être archivé, puis envoyé au siège pour information !

https://www.cjoint.com/?0bCvaij6Bzm

Bonjour mike,

En fait le client remplis le bon de commande et l'envois. Ensuite moi je le reçoit je vérifie la commande et lui envois ensuite la facture avec le lien de paiement. Tout simplement.

Le clic ne marche pas, J'ai mis l'adresse nm-sportswear@live.fr à l'emplacement que tu m'as dis, j'enregistre, j'ouvre le fichier je remplis comme le client et quand je clic sur envoi bond e commande, il y a rien qui se passe.

j'aimerais rajouter une petite option, quand le client envois le bon de commande j'aimerais qu'il reçoive aussi un exemplaire sur son adresse mail, si c'est possible.

Merci de ta réponse

Bonjour,
Merci de votre information.
Je n'ai pas la possibilité de tester un code en relation avec [Windows Live Hotmail].
Le lien ci après devrait vous apportez la solution :
https://codes-sources.commentcamarche.net/
Désolé de ne pouvoir en faire plus.

Re,

Merci beaucoup pour ce lien, j'ai trouver le code qu'il faut pour windows live hotmail mais je ne m'y connais pas du tout et je ne sais pas trop comment le placer et comment faire pour le mettre en place.

Merci de votre réponse

Private Sub cmdCopier_Click()
If txtFeuilChoisi.Text <> "" Then
Call CopierFeuilleExcel(getTemp & "test.xls")

Else
MsgBox ("Veuillez choisir la feuille a copier")
End If
If ((getTemp & "test.xls") = ActiveWorkbook.FullName) Then
cmdCopier.Enabled = False
cmdEnvoyer.Enabled = True
Else
cmdCopier.Enabled = True
End If
End Sub

'Private classeurDeBase As Excel.Workbook
Private Sub cmdEnvoyer_Click()
ActiveWorkbook.SendMail Recipients:="diopbirama@gmail.com", _
Subject:="Test envoi classeur", _
ReturnReceipt:=True
' URLto = "mailto:diopbirama@gmail.com" & "?subject=test d'envoi de fichier" & "&body=" & Msg
' ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

Private Sub cmdExit_Click()
Unload Me
End Sub

Private Sub combFeuilleSource_Change()
txtFeuilChoisi.Text = combFeuilleSource.Text
End Sub

'c'est ici que je récupere la liste des feuilles
'du classeur actif (Activeworkbooks)
Private Sub UserForm_Activate()
Dim feuil As Object
For Each feuil In ActiveWorkbook.Sheets
combFeuilleSource.AddItem (feuil.Name)
Next feuil
'classeurDeBase = ActiveWorkbook
If ((getTemp & "test.xls") = ActiveWorkbook.FullName) Then
cmdCopier.Enabled = False
cmdEnvoyer.Enabled = True
Else
cmdCopier.Enabled = True
End If

End Sub

'cette procedure permet de copier la feuille choisie
'vers le classeur cible du dossier Temp
Private Sub CopierFeuilleExcel(ClasseurCible As String)
Sheets(txtFeuilChoisi.Text).Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs (ClasseurCible)
Application.DisplayAlerts = True
End Sub

'cette fonction permet de récuper le répertoire
'temporaire de windows
Function getTemp() As String
Dim chemin As Object
Dim DossierTemp As String
Set chemin = CreateObject("Scripting.FileSystemObject")
DossierTemp = chemin.GetSpecialFolder(TemporaryFolder).ShortPath
getTemp = DossierTemp & "\Temp\"
End Function