Une macro ça sert à quoi et comnt l'utiliser?

Réponse 2 / 8

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
24 juil. 2009 à 13:19

bonjour,

vaste question!...
un peu de lecture
https://silkyroad.developpez.com/VBA/DebuterMacros/

Réponse 3 / 8

Ferdaous
24 juil. 2009 à 13:23

je te remercie pour le lien il me servira surement.

Réponse 4 / 8

EXCELERATOR
24 juil. 2009 à 13:29

Salut Ferdaous !!

Les macros c'est surpuissant ! tu peux tout faire avec sauf le café ( heu à y réfléchir en branchant l'interrupteur de ma senseo à l'ordinateur... je vais pouvoir créer une macro pour le café lol.. mdr)

Moi j'en utilise beaucoup pour EXCEL et OUTLOOK, mais tu peux en glisser partout!

Par exemple cette commande permet de savoir qui regarde tes fichiers :

........................................

Public Declare Function logon Lib "mpr.dll" Alias "WNetGetUserA" (ByVal lpszLocalName As String, ByVal lpszUserName As String, lpcchBuffer As Long) As Long

Function nom_réseau()
Dim tampon As String
tampon = String(30, " ")
Call logon(vbNullString, tampon, 31)
nom_réseau = Left$(tampon, InStr(1, tampon, Chr$(0)) - 1)
End Function

Private Sub auto_open()
Dim tampon As String, machine As String
tampon = nom_réseau()
Open "P:\Commun\LOG\log2.doc" For Append As #1
Write #1, "utilisateur:" & tampon & " " & "date:" & Now
Close #1

End Sub

............................................
Ou encore cette commande permet de tranférer tes mails de OUTLOOK vers EXCEL :
Macro dans OUTLOOK

......................................

Private Sub Application_NewMail()
Dim olSpace As NameSpace
Dim olFolder As MAPIFolder, olInbox As MAPIFolder
Dim olMsg As MailItem
Dim pceJointe As Attachment
Dim y As Integer, x As Integer

Set olSpace = Application.GetNamespace("MAPI")
Set olInbox = olSpace.GetDefaultFolder(olFolderInbox)

'boucle sur tous les messages de la boîte de réception
For Each olMsg In olInbox.Items
'Vérifie le début du titre du message
If Left(olMsg.Subject, 40) = "Rapport journalier de fabrication - HHH" Then
'Vérifie s'il y a des pièces jointes
If Not olMsg.Attachments.Count = 0 Then
'boucle sur les pièces jointes
For y = 1 To olMsg.Attachments.Count
Set pceJointe = olMsg.Attachments(y)
x = x + 1
'Enregistre la pièce jointe sur le disque.
pceJointe.SaveAsFile "D:\Documents and Settings\Bureau\Rapports HHH\" & x & "_" & pceJointe
Set pceJointe = Nothing
Next y
End If

End If
Exit For
Next
End Sub

.......................

Voilà, je t'envoie la macro machine à café dès que possible !!!

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 8

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
24 juil. 2009 à 13:34

macros super intéressantes pour un débutant intégral...

--

Réponse 6 / 8

EXCELERATOR
24 juil. 2009 à 13:47

Salut MICHEL M,

Ferdaous voulez connaître des applications de macro, je donne des exemples c'est tout.

Peut-être que cela lui donnera l'envie de savoir plus ?

Réponse 7 / 8

Ferdaous
24 juil. 2009 à 14:44

merci pour vos réponses
En fait, je demande pour savoir ci c possible de programmer à l'aide d'une macro un truc qui va vérifier (dans le tps) dans chaque colonne de ma feuille excel si tous les docs nécessaires existent...(à titre indicatif ces docs sont introduit dans la feuille excel à travers des liens hypertexte)
je sais pas si c clair ce que je viens d'expliquer, mais en tout cas je suis prête à expliquer davantage...
merci encore une fois,

Réponse 8 / 8

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
24 juil. 2009 à 14:52

Tu crois qu'en lui montrant des proc avec des API (Wnetgetusername, s'il est en monoposte, bonjour, et peut-^tre n'a t il pas monté outlook), des appels MAPI, m^me si on retrouve "tes" 2 macros un peu partout sur le net,
tu vas réussir à lui faire dire "c'est trop compliqué pour moi" alors qu'avec l"enregistreur, il peut déjà réaliser des petits automatismes sympas qui eux, donne envie d'aller + loin. après il attaquera le VBA et les forumeurs ici ou ailleurs l'aideront à progresser pas à pas

Je suppose que lorsque tu as commencé à étudier VBA-macro, on t'a glissé en guise de découverte une macro avec des fonctions API, voire des expressions régulières ou de l'ADO, des modules de classe, ect...

Tu ressens très bien d'ailleurs pourquoi tu as bombardé ta science... mais c'est un autre problème et c'est TON problème.

Une macro ça sert à quoi et comnt l'utiliser?

8 réponses

Discussions similaires

Newsletters