Envoyer les sms

Signaler
-
Messages postés
7044
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
17 novembre 2020
-
Bonjour,
j'ai un fichier client ayant près de 3000 enregistrements disposé comme suit.
La colonne C : Nom et Prénom des clients
La colonne D : les numéros de téléphone des clients
La colonne E : Les dates d'anniversaire des clients sous le format (jj.mmm.1900)

J'ai un script qui permet d'envoyer les sms d'excel vers une api qui se charge de la livraison. Pour cela, l'api a besoin des informations (numéro de téléphone, message à envoyer).

Alors je souhaite parcourir la colonne E et tester si le jour et le mois sont identiques à ceux du système.
A supposer que la condition est vérifiée pour le cas Ex; que le programme charge le numéro de téléphone situé dans Dx dans une variable qu'on appellera rownumber, et également le nom du client qui se trouve dans Cx dans une autre variable appelée rowname. envoi le sms vers l'api et poursuivre le traitement jusqu'à l'épuisement de la pile

2 réponses

Messages postés
7044
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
17 novembre 2020
116
Bonjour et merci. Mais ça ne répond pas à mes besoins, car je voudrais automatiser les envoi. D’où la nécessité d'un script vba
Messages postés
7044
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
17 novembre 2020
116
je te propose une boucle sur les colonnes où tu pourras mettre les actions a faire:

Sub For_X_to_Next_Ligne()
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
    Set FL1 = Worksheets("Feuil1") ' a adapter
    NoCol = 3 'lecture de la colonne C
    For NoLig = 2 To Split(FL1.UsedRange.Address, "$")(4) 'démarre à la 2ème ligne
        Var = FL1.Cells(NoLig, NoCol)
        MsgBox Var 'nom
        MsgBox FL1.Cells(NoLig, NoCol + 1) 'telephone
        MsgBox FL1.Cells(NoLig, NoCol + 2) 'date
    'mettre le code ici
    Next
    Set FL1 = Nothing
End Sub


Voilà a toi de jouer

@+ Le Pivert