Besoin d'une assistance, d'une application
MS Office
Consultez GEMCCAP

Limiter le nombre d'enregistrements à un seul

Il est utile parfois de créer une table qui vous contient 1 ou plusieurs informations de configuration. Par exemple, une table tblEntreprise qui contenant les données de votre entreprise et uniquement celle-ci, afin de les reprendre sur tous vos états. Dans ce cas, vous devez limiter le nombre d'enregistrements à 1. Il y a beaucoup d'autres possibilités où vous pourriez avoir besoin de limiter le nombre d'enregistrements.

• Mettez un champ de type NuméroAuto, nommé par exemple ID.
• Dans la propriété Valide Si de ce champ, tapez <2

Changer la valeur de départ d'un champ "NuméroAuto"

Vous avez besoin de commencer un champ de type NuméroAuto autrement que par 1, utilisez cette requête, en considérant que votre champ se nomme ID et votre table tblEXEMPLE :

INSERT INTO tblEXEMPLE ( [ID] ) SELECT [1er Numero] AS [No];

Éxécutez cette requête et indiquez votre 1er numéro lorsqu'il vous est demandé.

Répartir les données d'une cellule dans plusieurs colonnes

Vous avez récupéré une colonne de données (ou 1 simple cellule). Vous voulez séparer ces données selon un caractère quelconque : un point-virgule, une virgule, un point, un espace ou tout autres caractère.

• Sélectionnez la cellule ou la plage de cellules
• Données/Convertir
• Dans la fenêtre qui s'ouvre, cochez Délimité
• Cliquez sur Suivant
• Sélectionnez le séparateur de vos données.
• Terminer

Afficher le mois d'une date en majuscule

Vous avez 2 formules possibles, vous trouvez actuellement sur les magazines essentiellement la 1ère mais personnellement je prèfères la 2ème (je suis faignante du clavier). Soit A1 contenant la date.
Formule 1 :
=CHOISIR(MOIS(A1);"JANVIER";"FÉVRIER";"MARS";"AVRIL";"MAI";"JUIN";"JUILLET";"AOÛT";"SEPTEMBRE";"NOVEMBRE";"DÉCEMBRE")
On récupère le N° du mois avec MOIS(A1). CHOISIR renvoie une des valeurs de la liste selon l'index (ici le N° du mois)
Formule 2 :
=MAJUSCULE(TEXTE(A1;"mmmm"))
TEXTE convertit une valeur en texte selon un format de nombre (ceux que vous utilisez dans l'onglet Nombre du Format de cellule.
MAJUSCULE met tout simplement en majuscule.

Faire ressortir les formules avec erreur

Pour la faire ressortir, nous utiliserons le format conditionnel. Vous pouvez alors soit faire ressortir les formules avec erreur afin de rapidement visualiser les problèmes, ou au contraire mettre la police dans la même couleur que le fond afin de les masquer.

• Sélectionnez votre ou vos cellules, pour notre exemple :la plage A1:C10.
• Format/Mise en forme Conditionnelle
• Dans la 1ère liste déroulante, choisir la formule est
• dans la zone de saisie, tapez =ESTERREUR(A1)
• avec le bouton Format, choisissez votre format.

Dans la formule remplacez A1 par la cellule active, si vous avez sélectionné  une plage, la cellule active est celle qui est resté en blanc (elle n'est pas en surbrillance).

Le nombre de caractères de la sélection (dans Word)

Cette macro permet de compter le nombre de tous les caractères (espaces, retour à ligne, signes,...) de la sélection en cours du document.

• Outils/macro/nouvelle macro...
• Tapez NbCaractères
• cliquez sur le bouton Clavier
• Cliquez dans la zone Touche de raccourci
• tapez sur votre clavier un raccourci (appuyez par exemple sur Alt+a)
• Cliquez sur Attribuer puis sur Fermer
• Arrêter l'enregistrement
• Outils/macro/macros...
• Sélectionnez NbCaractères puis sur le bouton Modifier
• Complétez la procédure afin qu'elle corresponde au texte ci-dessous

Sub NbCaractères()
    MsgBox Selection.Characters.Count & " Caractères", vbOKOnly, "Votre sélection contient"
End Sub

Pour utiliser cette macro :

• Sélectionnez un texte dans votre document
• Appuyez sur les touches Alt+a

Envoyer un mail

Insérer dans un module le code suivant :

    'ne modifiez surtout pas les déclarations suivantes
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, _
    ByVal lpOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long

Private Const SW_SHOWNORMAL = 1

Public Sub SendMail(Optional strAdr As String, _
    Optional strObj As String, Optional strBody As String, _
    Optional strCC As String, Optional strBCC As String)
    ' Optional permet de ne pas obligatoirement fournir la donnée lors de l'appel de la procédure
    Dim strCommand As String
    
    'Construction du message
    'Sujet du message
    If Len(strObj) Then strCommand = "&Subject=" & strObj
    'Corps du message
    If Len(strBody) Then strCommand = strCommand & "&Body=" & strBody
    'Copie du message (adresse email attendue)
    If Len(strCC) Then strCommand = strCommand & "&CC=" & strCC
    'Copie cachée du message
    If Len(strBCC) Then strCommand = strCommand & "&BCC=" & strBCC
    'Ajout de l'adresse email à la ligne de commande
    strCommand = "mailto:" & strAdr & strCommand
    'Execution de la commande via l'API
    Call ShellExecute(0, "open", strCommand, vbNullString, vbNullString, SW_SHOWNORMAL)
End Sub

'Procédure exemple pour déclencher l'envoi du mail
Private Sub EssaiEnvoi()
    SendMail "webmaster@cathyastuce.com", "sujet", "message", "cathy@cathyastuce.com", "cathy@gemccap.com"
End Sub

Insérer une adresse depuis le carnet d'adresse

Pour profiter de ce système, il faut Créer un modèle.

• Tapez votre document normalement
• Placez-vous à l'endroit où vous désirez récupérer l'adresse d'un contact enregistré dans votre carnet d'adresse
• Insertion/champ
• sélectionnez la catégories Automatisation ou Toutes
• sélectionnez le champ BoutonMacro ou MacroButton
• Sélectionnez la macro InsertionAdresse.
• Si vous êtes dans la version Word 2000, cliquez sur le bouton Ajouter puis tapez un espace et un texte (Sélectionnez l'adresse, par exemple)
• si vous êtes dans une version XP ou plus, dans la zone Texte affiché tapez Sélectionnez l'adresse (par exemple)
• OK
• Enregistrez votre document en tant que modèle (lors de l'enregistrement indiquez le type *.dot). Voir sur CathyAstuce

Maintenant pour l'utiliser :

• Fichier/nouveau
• choisissez le modèle correspondant au document créé ci-dessus
• double-cliquez sur le texte Sélectionnez l'adresse
• Sélectionnez le contact adéquat, puis OK
• Le nom et l'adresse du contact sont insérés.

Insertion de bloc de textes

Dans Word, vous avez l'insertion automatique qui vous permet d'insérer du texte mis en forme et parfois assez complexe à partir d'un menu ou d'un mot tout simple.
Dans Outlook et Outlook Express, nous pouvons utiliser la signature :

• Outlook :
  Outils/Options , onglet Format du courrier
  • Cliquez sur le bouton Signatures puis Nouveau
  • Donner-lui un nom explicit
  Sélectionner démarrer avec un exemplaire vide
  Suivant
  • Créer votre texte et mettez le en forme
  • Terminer puis Annuler
  • Pour une mise en forme plus avancée, vous pouvez :
  créez un fichier au format htlm
  • sélectionnez Utilisez ce fichier comme modèle
  • cliquez sur Parcourir pour indiquer votre fichier.
• Outlook Express :
  • Outils/Options , onglet Signatures
  • Le bouton Nouveau vous permet d'ajouter une signature
  • Dans la zone Texte tapez le contenu de votre bloc de texte, dans ce cas le texte ne sera pas mis en forme.
  • Pour un texte mis en forme, vous devez au préalable créez un fichier au format htlm contenant votre texte, puis cliquez sur le bouton Parcourir pour sélectionner votre fichier.
  • Cliquez sur le bouton Renommer afin de donner un nom explicit à votre bloc de texte.

Pour utiliser vos textes :

• Outlook :
  • Cliquez sur le bouton Signatures
  • Ou Insertion/Signature, puis sélectionnez la signature.
• Outlook Express :
  • Cliquez sur
  • Ou Insertion/Signature, puis sélectionnez la signature