Effectuer trois opérations dans un module VBA

Fermé

kass15 Messages postés 7 Date d'inscription mercredi 20 mai 2015 Statut Membre Dernière intervention 21 juin 2015 - 11 juin 2015 à 18:45
Kass15 - 13 juin 2015 à 01:34

Bonjour,
Bonjour,
Etant novice dans la programmation par VBA. J'aimerais avoir de l'aide sur un petit souci.
En effet, je souhaite incrémenté sur ma feuille excel un module qui ferai 3 étapes à la fois.

Tout d'abord cela doit me permettre d'enregistrer sous le fichier vers un répertoire bien précis avec comme nom la cellule "réf" et la date du jour au format jj-mm-aaaa. (le fichier sur lequel on effectue la saise doit rester vierge )

Ensuite, un mail doit être envoyé automatiquement vers une adresse mail avec en objet la cellule "réf"

Enfin Excel se ferme

Voila le code que j'ai créé, cependant il ne fonctionne pas tout à fait comme je le souhaite... (surtout l'enregistrement dans un répertoire donnée me pose des soucis)

'enregistrer sous le fichier dans un dossier définit
Sub 3 etapes()
'enregistrer
Dim extension As String
Dim chemin As String, nomfichier As String
Dim style As Integer
Application.ScreenUpdating = False
ActiveSheet.Copy
extension = ".xls"
chemin = 'saisir le chemin précis
nomfichier = Range("réf") & "-" & Range("B5") & extension
ThisWorkbook.SaveAs chemin & nomfichier
ActiveWorkbook.Close

'envoi l'email
Dim Dest As String, Sujet As String
Sheets("Fiche suivi").Select
ActiveSheet.Copy 'crée une copie de la feuille active
Dest = 'Saisir l'adresse mail
Sujet = [réf]
ActiveWorkbook.SendMail Dest, Sujet, True
Application.DisplayAlerts = False
ActiveWorkbook.Close 'ferme la copie de la feuille active
Application.DisplayAlerts = True

'fermez excel
Application.DisplayAlerts = False
Application.Quit

End Sub

Merci de votre aide ..

A voir également:

Effectuer trois opérations dans un module VBA
Vous devez disposer d'une autorisation pour effectuer cette action - Guide
Persistence module - Forum logiciel systeme
Module d'expérience locale francais ✓ - Forum Matériel & Système
Pas de module ci - Forum TV & Vidéo
Manque cam module - Forum TNT / Satellite / Réception

1 réponse

Réponse 1 / 1

f894009 Messages postés 17268 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 mars 2025 1 713
12 juin 2015 à 17:38

Bonjour,

surtout l'enregistrement dans un répertoire donnée me pose des soucis Vous connaissez le chemin du repertoire ou pas ???

Kass15
12 juin 2015 à 18:09

Oui

f894009 Messages postés 17268 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 mars 2025 1 713 > Kass15
12 juin 2015 à 18:16

Re,

ecrivez le
ex:
chemin="C:\monrepertoire\"

Kass15
13 juin 2015 à 01:34

Merci

Discussions similaires

Manque "cam module" sur TV SHARP AQUOS

Bonjour,

j'ai un téléviseur Sharp Aquos et depuis hier je ne reçoit plus la chaine TF1 , mon écran est noir et il m'indique "manque cam module". Je ne comprend pas ,quand je vais dans les sources de la TV une clé s'affiche devant la chaine TF1. C'est l'unique chaine qui ne fonctionne pas et je ne comprend pas pourquoi. Je précise que je n'ai pas activé de contrôle parental ou de mode hôtel.

Je ne sais pas comment régler le problème , si quelqu'un peut m'aider je le remercie par avance .

Modules Cisco, c'est quoi?

Bonjour,

La question est en objet.

Je vois par Ccleaner que j'ai ces 3 modules installés sur le PC :

""Cisco : EAP-FAST module / LEAP Module / PEAP Module"".

Je ne trouve rien sur Google pour me renseigner sur ce que sont ces programmes, qu'elle est leur utilité.

Une réponse ici peut-être.

Merci

Configuration: Windows / Firefox 29.0

--
Sans les Helpers notre errance informatique serait sans fin - Mots croisés

Devinette - Trois nains vont à la mine

Bonjour

Trois nains vont à la mine:
Le premier prend la pioche
Le second prend la pelle
... Que prend le troisième?

Aider moi svp !!!
Louis

"L'indice n'appartient à la sélection" + VBA

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop

a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

Message d'erreur "Pas de module CI"

Bonjour,

Ce message d'erreur "Pas de module CI" s'affiche sur ma TV LG depuis ce soir alors que ce matin encore je recevais les chaînes normalement.
J'ai fait une recherche auto des chaines, ça m'a affiché 26 chaines trouvées mais toujours ce problème. J'ai alors débranché le câble TV mais toujours le même problème..
Avez vous une idée ?

Merci !

Justine