Domaines
RH
Juridique
Compta
Administratif/Moyens Généraux
Communication
Bureautique
Conseils aux débutants
Word
Excel
PowerPoint
Outlook
Access
Publisher
Windows/système
PhotoImpact
Conception web : les bases
Applications pas à pas
Tests logiciels
Macros VBA
Leçons
Macros Word
Macros Excel
Astuces
Orthographe
Rédaction
Organisation
Produits/services malins
Outils
Ouvrages
Modèles
Macros
Liens
Anglais
Grammaire avec AnglaisFacile
Leçon gratuite avec AnglaisFacile
Carrière
Gestion de carrière
Fiches métier
Témoignages / vécu
 
Evénements métier
Echos de presse, comptes-rendus

Echanger

Forums

© Nadège Guilbert
Le contenu de ce site
est régulièrement déposé auprès de la SGDL
Reproduction interdite
sans le consentement
écrit de l'auteur



Imprimer la page
Domaines > Outils > Macros

 

Vous trouverez ici quelques macros pour vos logiciels préférés.
Veillez à paramétrer vos logiciels pour qu'ils acceptent les macros !
Cette rubrique sera remise à jour régulièrement. N'hésitez pas également à contribuer à son développement !

Certaines macros sont signées "Top-Assistante" : ceci vous permet, si vous le souhaitez,
d'autoriser d'office l'activation des macros identifiées par ce certificat.

 

Word

Nom de la macro Objectif
Télécharger le fichier
et mode d'emploi

FusionChoisie, macro proposée par Sylvie Laporte, Gujan Mestras, bassin d'Arcachon

Fusionner un enregistrement donné à partir de son numéro.


72 ko

ChronoCourrier, macro Top Assistante

Créer un chrono pour tous les courriers envoyés qu'il s'agisse de courriers simples ou ar, de devis ou de factures.
Les coordonnées du destinataire sont d'abord inscrites dans le chrono courrier puis reportées dans le courrier définitif.
Numérotation automatique des courriers avec remise à zéro du compteur possible.


34 ko
(fichiers zippés)

Ordre de Virement, macro Top Assistante

Modèle de demande de virement (fax) avec contrôle de la clé rib.
Pour modifier le modèle et le mettre aux couleurs de votre société, ouvrez-le et cliquez sur le bouton "Annuler".
Complétez les champs suivants :

  • To

  • Company

  • From

  • Emetteur

  • N° de compte

Surtout, ne pas supprimer ni modifier les champs suivants, faute de quoi la macro planterait.


100 ko

Convertir un nombre en toutes lettres, macro de Jean-Marie Lambert

Jean-Marie Lambert nous signale l'existence d'une macro qui peut être utilisée aussi bien dans Word, Excel ou Access. Elle permet de convertir un nombre en toutes lettres en respectant l'orthographe d'usage en France ou en Belgique. Ainsi dans Word, il suffit d'introduire le nombre puis Ctrl+Maj+U et ce nombre est traduit en toutes lettres. Ex: 125,75 suivi de Ctrl+Maj+U devient cent vingt-cinq euros et septante-cinq cents (125,75EUR). cette macro est gratuite et s'installe très facilement. Vous pouvez la trouver à l'adresse suivante: http://www.fundp.ac.be/~jmlamber/chlettres.html

 
Barre d'outils Déplacement

Placez le fichier deplacement.dot dans votre répertoire "Démarrage" ou "Startup" (suivant les versions) de MS Office pour rendre cette barre disponible pour tous vos documents.

Pour réafficher la barre d'outils après une désactivation temporaire, cliquez simplement avec le bouton droit de la souris sur une icône quelconque de votre barre d'outils et sélectionnez "Déplacements (c) Top Assistante".

Macro signée.


32 ko

Récupérer des adresses avec Wanado macro proposée par Pascal Engelmajer

L'objectif ici est de récupérer des adresses de l'annuaire Wanadoo en vue de réaliser un mailing.
Commencez par supprimer les colonnes inutiles. Puis après avoir tout sélectionné, on utilise Convertir tableau en texte, du menu tableau, et ce jusqu'a la disparition de tous les tableaux.
Ne pas oublier de traiter avec une macro anti-lien :
Public Sub supprLiens()
Dim i As Long, nbLiens
Dim texte As String
On Error GoTo erreur
'Boucle pour passer le document en revue
nbLiens = ActiveDocument.Hyperlinks.Count
For i = nbLiens To 1 Step -1
With ActiveDocument.Hyperlinks(i)
'Suppression du lien
.Delete
End With
Next MsgBox "terminé" & vbCrLf & nbLiens & " supprimés", vbInformation
Exit Sub
erreur:
ActiveDocument.Hyperlinks(i).Range.Font.Reset
texte = ActiveDocument.Hyperlinks(i).Range
ActiveDocument.Hyperlinks(i).Range.Select
ActiveDocument.Hyperlinks(i).Range.Delete
Selection.TypeText Text:=texte Resume Next
End Sub


Ensuite par remplacer en ajoutant des séparateurs (par exemple & pour les champs et $ pour les paragraphes... les numéros de téléphone ont 14 caractères et sont alignés à droite, cp et ville sont séparés par un tiret, les noms sont en caractères gras alignés à gauche... Ensuite on supprime tous les passages à la ligne. Puis on remplace le séparateur de ligne $ par une marque de paragraphe. Il reste alors à convertir de texte à tableau (avec autre et &) Plus facile à faire qu'à expliquer...

 

 

Excel

Nom de la macro Objectif
Télécharger le fichier
et mode d'emploi

Cahier des recommandés, macro proposée par Top Assistante

Conserver dans un registre Excel une trace des documents AR envoyés et reçus.


104 ko

 

 

Haut