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

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

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.

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.

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

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.

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...

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.