XL 2016 QR CODES

kiki29

XLDnaute Barbatruc

• 31 Mai 2024

• #2

Salut, à titre d'info : GrandZebu

 

Vote positif 0 Vote négatif

N

nabilexcel2007

XLDnaute Occasionnel

• 31 Mai 2024

• #3

Merci

 

Vote positif 0 Vote négatif

N

nabilexcel2007

XLDnaute Occasionnel

• 31 Mai 2024

• #4

Bonsoir
Pourquoi le code ne fonctionne pas

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 1 Juin 2024

• #5

Bonjour,
Google a supprimé son api générateur de QrCode et ne propose pas d'alternative .
J'ai corrigé le classeur fourni pour utiliser d'autres sites

 

Pièces jointes

• Nabil F55.xlsm

  45.3 KB · Affichages: 7

Vote positif 0 Vote négatif

N

nabilexcel2007

XLDnaute Occasionnel

• 1 Juin 2024

• #6

mERCI JE VAIS VOIR

 

Vote positif 0 Vote négatif

N

nabilexcel2007

XLDnaute Occasionnel

• 1 Juin 2024

• #7

Bonjour
ça fonctionne trs bioen il me reste juste le module d'etiquette pour pouvoir les imprimes il m'affiche un message
Merci

 

Vote positif 0 Vote négatif

N

nabilexcel2007

XLDnaute Occasionnel

• 1 Juin 2024

• #8

il me donne le bouble de qrcode dans les cellules

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 1 Juin 2024

• #9

nabilexcel2007 à dit:

il me donne le bouble de qrcode dans les cellules

Cliquez pour agrandir...

Le classeur ci-joint ne permettra plus de qrCodes en double

nabilexcel2007 à dit:

il me reste juste le module d'etiquette pour pouvoir les imprimes il m'affiche un message

Cliquez pour agrandir...

Je ne peux pas vous dire, le classeur que vous avez fourni est un extrait d'un ensemble .
IL manque le fichier Word etiquettes.docx

 

Pièces jointes

• Nabil F55.xlsm

  43.6 KB · Affichages: 10

Vote positif 0 Vote négatif

N

nabilexcel2007

XLDnaute Occasionnel

• 1 Juin 2024

• #10

voici le fichier etiquettes

 

Pièces jointes

• etiquettes.docx

  14.1 KB · Affichages: 11

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 1 Juin 2024

• #11

Bonjour
sincèrement je ne sais ou vous allez chercher ces usine a gaz mais bon
macro atacchée au bouton

VB:

Sub GENERERqRcODE()
    'patricktoulon
    'Insérer une image qrcode dynamique
    Dim C As Range
    With ActiveSheet
        .Pictures.Delete
        For i = 2 To .Cells(Rows.Count, 3).End(xlUp).Row
            If .Cells(i, 3) <> "" Then
                Set cel = Cells(i, 3)
                sLink = "https://api.qrserver.com/v1/create-qr-code/?size=90x90&data=" & Cells(i, 3).Text
                With .Pictures.Insert(sLink)
                    '.Width = 120
                    .Name = "cell_" & cel.Address(0, 0)
                    .Left = cel.Left + ((cel.Width - .Width) / 2)
                    .Top = cel.Top + ((cel.Height - .Height) / 2)
                End With
            End If
        Next
    End With
End Sub

 

Vote positif 0 Vote négatif

N

nabilexcel2007

XLDnaute Occasionnel

• 1 Juin 2024

• #12

Ok je veais reessayer
Merci beaucoup vous etes un ange

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 1 Juin 2024

• #13

patricktoulon à dit:

sincèrement je ne sais ou vous allez chercher ces usine a gaz

Cliquez pour agrandir...

Salut Pat,
Je suis parti du principe que je n'avais qu'un extrait de classeur et que de ce fait,
je devais conserver au moins le type d'appel pour ne pas foutre la zoub... dans l'existant ,
même si cela peut paraitre une UAG .

 

Vote positif 0 Vote négatif

N

nabilexcel2007

XLDnaute Occasionnel

• 1 Juin 2024

• #14

le code de l'etiquette ne fonctionne pas toujours

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 2 Juin 2024

• #15

Le classeur joint traite les étiquettes .

 

Pièces jointes

• Nabil F55.xlsm

  50.4 KB · Affichages: 20

Vote positif 0 Vote négatif