XL 2016 QR CODES

[nabilexcel2007]

Bonjour j'aimerai s'il vous plait generer mes qr codes et les les places dans leur cellules
il prennent les donnees de la cellule B2
avant le fichier fonctionnait !!!
Merci

 

[kiki29]

Salut, à titre d'info : GrandZebu

 

[nabilexcel2007]

Merci

 

[nabilexcel2007]

Bonsoir
Pourquoi le code ne fonctionne pas

 

[fanch55]

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

 

[nabilexcel2007]

mERCI JE VAIS VOIR

 

[nabilexcel2007]

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

 

[nabilexcel2007]

il me donne le bouble de qrcode dans les cellules

 

[fanch55]

il me donne le bouble de qrcode dans les cellules

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

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

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

 

[nabilexcel2007]

voici le fichier etiquettes

 

[patricktoulon]

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

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

 

[nabilexcel2007]

Ok je veais reessayer
Merci beaucoup vous etes un ange

 

[fanch55]

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

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 .

 

[nabilexcel2007]

le code de l'etiquette ne fonctionne pas toujours

 

[fanch55]

Le classeur joint traite les étiquettes .