Base de Données et QR code

="BEGIN:VCARD "&CAR(10) & "VERSION:3.0 "&CAR(10) &"N:" & [@RECHERCHER] & ";" &[@Prénom]&CAR(10) & "FN:" & [@RECHERCHER]& " " &[@Prénom]&CAR(10) & "ADR;WORK;PREF:;;;" &[@Ville]&";;"&

je n'ai pas besoin de Vcard mais faire des cartes des membres pour les imprimer.

et si je supprime la colonne contenue je perd le QRcode.

Comment faire ?

Merci

Le 24/11/2021 à 10:49

Bonjour Compan,

Désolé, je n'avais pas compris, dans ce cas, Il faut mettre les infos dans la fonction

=URL_QRCode_SERIES([@[Titre Civilité]]&[@RECHERCHER]&[@Prénom]&[@[Code postal]]&[@Ville]&[@[Tél Fixe]]&[@[Tél portable]])

Vous les mettez comme vous le souhaitez, les unes derrières les autres ou séparé par des point-virgules, etc...

A+

Le 24/11/2021 à 11:41

Merci de ta réponse rapide,

Voir

je suis sur office 2010 et office 2010 Excel 2010 est désormais retirée

Merci

Le 26/11/2021 à 01:47

Bonjour,

J'ai essayé ça:

=URL_QRCode_SERIES(A2 & CAR(10) & B2 & CAR(10) & C2 & CAR(10) & D2 & CAR(10) & E2 & CAR(10) & F2 & CAR(10) & G2 & CAR(10) & H2 & CAR(10) & I2 & CAR(10) & J2 & CAR(10) & K2 & CAR(10);A2&B2)

et ça fonctionne bien, et maintenant comment faire pour faire les cartes adhérents pour 400 personnes avec Word

Merci de votre réponse.

Le 26/11/2021 à 02:54

Bonjour Compan

Pourquoi vouloir faire çà sur Word, alors que vous avez tout de prêt dans Excel

56compan-base-de-donnees.xlsm (72.48 Ko)

A+

Le 26/11/2021 à 14:45

Bonjour,

Pouvez-vous me dire, la cellule C1, je voudrais mettre le Nom et le Prénom comment faire ?

Et aussi pouvez-vous expliquer le module " mGestion" et la macros " ImptimerCarte" ?

Et pour faire les cartes des 400 adhérents une a une?

Merci.

Le 26/11/2021 à 14:58

Bonjour COMPAN ainsi que BrunoM45

Dans le fichier de BrunoM45, il y a une petite modification à faire.

Je viens de voir dans la ligne de formule C10 de la Feuille (carte membre).

Il y avais une petite modification à faire.

Formule original.

=INDEX(Enregistrement[Tél Fixe];EQUIV($C$1;Enregistrement[N° Carte];0))

Formule à remplacer.

=INDEX(Enregistrement[Tél portable];EQUIV($C$1;Enregistrement[N° Carte];0))

Cordialement Mathieu

Le 26/11/2021 à 15:00

Bonjour,

Le fichier avec les modifications proposées est juste une idée de ce que vous pouvez faire

Vous ne devez pas remplacer C1 par le nom prénom, je me sers du numéro de carte pour récupérer les informations

J'ai simplement regroupé tous vos modules dans 1 seule que j'ai nommé "mGestion"

Pour la Sub ImprimerCarte, voici le code détaillé, j'espère que cela vous aidera

Sub ImprimerCarte()
  Dim dLig As Long, Lig As Long
  Dim Sht As Worksheet
  ' Définir la feuille source
  Set Sht = ThisWorkbook.Sheets("Enregistrement")
  ' Dernière ligne du tableau des enregistrements
  dLig = Sht.ListObjects(1).ListRows.Count
  ' Avec l'objet conteneur qui estr la feuille "Carte Membre"
  With ThisWorkbook.Sheets("Carte Membre")
    ' Pour chaque ligne du tableau
    For Lig = 1 To dLig
      ' Inscrire le numéro de carte en C1
      ' Ce qui met à jour les valeurs grâce aux formules
      .Range("C1").Value = Sht.ListObjects(1).DataBodyRange.Cells(Lig, 3)
      ' Imprimer la carte contenue dans la zone d'impression
      .PrintOut
    ' On passe à la ligne suivante
    Next Lig
  End With
End Sub

A+

Le 27/11/2021 à 18:37

Bonjour et merci

ça c'est très bien c'est ce que je recherche !!!

Par contre si j'ajoute un autre membre j'ai une erreur

Voir le fichier joint.

Merci de votre patience.

32base-de-donnees-1.xlsm (61.74 Ko)

Le 27/11/2021 à 18:58

Bonsoir,

Je pense que vous voulez plaisanter demandez à votre boss en toute urgence une formation Excel

Les formules se basent sur un tableau structuré, pour créer une nouvelle ligne