Bonjour, j'ai un pb sur mon script, =E0 l'origine c'est un script qui
permet de tester plusieurs cellules et d'ouvrir Outlook pour l'envoi
d'un si VB d=E9tecte une valeur >1.33.
Mais visiblement, lorsque les anomalies sont nombreuses VB n'ouvre pas
Outlook et pr=E9vient qu'il y a une erreur d'execution '5'
Le deboger m'a surligner la ligne suivante :
ActiveWorkbook.FollowHyperlink Address:=3DURLto
Je ne sais pourquoi ca cloche et c pour cela que je viens chercher de
l'aide!!!
Sub Envoi_Mail_ALERTE()
Dim Colonne As Long
Dim Ligne As Long
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
For Ligne =3D 5 To 57
For Colonne =3D 7 To 206
If Cells(Ligne, Colonne) < 1.33 And Cells(Ligne, Colonne) >
0 Then
MailAd =3D Range("a2")
Subj =3D Range("b2")
Msg =3D Msg & Range("a" & Ligne) & vbCrLf
MsgBox Msg
End If
Next Colonne
Next Ligne
URLto =3D "mailto:" & MailAd & "?subject=3D" & Subj & "&body=3D" & Msg
ActiveWorkbook.FollowHyperlink Address:=3DURLto
End Sub=20
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Omar,
Va voir à cette adresse, vers le bas de la page,
http://www.vbfrance.com/code.aspx?ID1545
Salutations!
a écrit dans le message de news: Bonjour, j'ai un pb sur mon script, à l'origine c'est un script qui permet de tester plusieurs cellules et d'ouvrir Outlook pour l'envoi d'un si VB détecte une valeur >1.33. Mais visiblement, lorsque les anomalies sont nombreuses VB n'ouvre pas Outlook et prévient qu'il y a une erreur d'execution '5'
Le deboger m'a surligner la ligne suivante : ActiveWorkbook.FollowHyperlink Address:=URLto
Je ne sais pourquoi ca cloche et c pour cela que je viens chercher de l'aide!!!
Sub Envoi_Mail_ALERTE() Dim Colonne As Long Dim Ligne As Long Dim MailAd As String Dim Msg As String Dim Subj As String Dim URLto As String For Ligne = 5 To 57 For Colonne = 7 To 206 If Cells(Ligne, Colonne) < 1.33 And Cells(Ligne, Colonne) >
0 Then MailAd = Range("a2") Subj = Range("b2") Msg = Msg & Range("a" & Ligne) & vbCrLf MsgBox Msg End If Next Colonne Next Ligne URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg ActiveWorkbook.FollowHyperlink Address:=URLto End Sub
En vous remerciant d'avance.
Omar
Bonjour Omar,
Va voir à cette adresse, vers le bas de la page,
http://www.vbfrance.com/code.aspx?ID1545
Salutations!
<omar_2891@hotmail.com> a écrit dans le message de news: 1144674568.200760.121940@z34g2000cwc.googlegroups.com...
Bonjour, j'ai un pb sur mon script, à l'origine c'est un script qui
permet de tester plusieurs cellules et d'ouvrir Outlook pour l'envoi
d'un si VB détecte une valeur >1.33.
Mais visiblement, lorsque les anomalies sont nombreuses VB n'ouvre pas
Outlook et prévient qu'il y a une erreur d'execution '5'
Le deboger m'a surligner la ligne suivante :
ActiveWorkbook.FollowHyperlink Address:=URLto
Je ne sais pourquoi ca cloche et c pour cela que je viens chercher de
l'aide!!!
Sub Envoi_Mail_ALERTE()
Dim Colonne As Long
Dim Ligne As Long
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
For Ligne = 5 To 57
For Colonne = 7 To 206
If Cells(Ligne, Colonne) < 1.33 And Cells(Ligne, Colonne) >
0 Then
MailAd = Range("a2")
Subj = Range("b2")
Msg = Msg & Range("a" & Ligne) & vbCrLf
MsgBox Msg
End If
Next Colonne
Next Ligne
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub
a écrit dans le message de news: Bonjour, j'ai un pb sur mon script, à l'origine c'est un script qui permet de tester plusieurs cellules et d'ouvrir Outlook pour l'envoi d'un si VB détecte une valeur >1.33. Mais visiblement, lorsque les anomalies sont nombreuses VB n'ouvre pas Outlook et prévient qu'il y a une erreur d'execution '5'
Le deboger m'a surligner la ligne suivante : ActiveWorkbook.FollowHyperlink Address:=URLto
Je ne sais pourquoi ca cloche et c pour cela que je viens chercher de l'aide!!!
Sub Envoi_Mail_ALERTE() Dim Colonne As Long Dim Ligne As Long Dim MailAd As String Dim Msg As String Dim Subj As String Dim URLto As String For Ligne = 5 To 57 For Colonne = 7 To 206 If Cells(Ligne, Colonne) < 1.33 And Cells(Ligne, Colonne) >
0 Then MailAd = Range("a2") Subj = Range("b2") Msg = Msg & Range("a" & Ligne) & vbCrLf MsgBox Msg End If Next Colonne Next Ligne URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg ActiveWorkbook.FollowHyperlink Address:=URLto End Sub
En vous remerciant d'avance.
Omar
michdenis
Pour tester la procédure de l'adresse internet :
tu peux utiliser ce type de ligne de code
'---------------------- Sub test() 'EnvoiEmail destinaire, Objet du message, Le message, fichier joint EnvoiEmail , "ça marche", "Ok voilà mon message", "c:Classeur1.xls"
End Sub '----------------------
Et tu adapte la temporisation selon ton environnement.
Salutations!
a écrit dans le message de news: Bonjour, j'ai un pb sur mon script, à l'origine c'est un script qui permet de tester plusieurs cellules et d'ouvrir Outlook pour l'envoi d'un si VB détecte une valeur >1.33. Mais visiblement, lorsque les anomalies sont nombreuses VB n'ouvre pas Outlook et prévient qu'il y a une erreur d'execution '5'
Le deboger m'a surligner la ligne suivante : ActiveWorkbook.FollowHyperlink Address:=URLto
Je ne sais pourquoi ca cloche et c pour cela que je viens chercher de l'aide!!!
Sub Envoi_Mail_ALERTE() Dim Colonne As Long Dim Ligne As Long Dim MailAd As String Dim Msg As String Dim Subj As String Dim URLto As String For Ligne = 5 To 57 For Colonne = 7 To 206 If Cells(Ligne, Colonne) < 1.33 And Cells(Ligne, Colonne) >
0 Then MailAd = Range("a2") Subj = Range("b2") Msg = Msg & Range("a" & Ligne) & vbCrLf MsgBox Msg End If Next Colonne Next Ligne URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg ActiveWorkbook.FollowHyperlink Address:=URLto End Sub
En vous remerciant d'avance.
Omar
Pour tester la procédure de l'adresse internet :
tu peux utiliser ce type de ligne de code
'----------------------
Sub test()
'EnvoiEmail destinaire, Objet du message, Le message, fichier joint
EnvoiEmail Destinataire@Fournisseur, "ça marche", "Ok voilà mon message", "c:Classeur1.xls"
End Sub
'----------------------
Et tu adapte la temporisation selon ton environnement.
Salutations!
<omar_2891@hotmail.com> a écrit dans le message de news: 1144674568.200760.121940@z34g2000cwc.googlegroups.com...
Bonjour, j'ai un pb sur mon script, à l'origine c'est un script qui
permet de tester plusieurs cellules et d'ouvrir Outlook pour l'envoi
d'un si VB détecte une valeur >1.33.
Mais visiblement, lorsque les anomalies sont nombreuses VB n'ouvre pas
Outlook et prévient qu'il y a une erreur d'execution '5'
Le deboger m'a surligner la ligne suivante :
ActiveWorkbook.FollowHyperlink Address:=URLto
Je ne sais pourquoi ca cloche et c pour cela que je viens chercher de
l'aide!!!
Sub Envoi_Mail_ALERTE()
Dim Colonne As Long
Dim Ligne As Long
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
For Ligne = 5 To 57
For Colonne = 7 To 206
If Cells(Ligne, Colonne) < 1.33 And Cells(Ligne, Colonne) >
0 Then
MailAd = Range("a2")
Subj = Range("b2")
Msg = Msg & Range("a" & Ligne) & vbCrLf
MsgBox Msg
End If
Next Colonne
Next Ligne
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub
'---------------------- Sub test() 'EnvoiEmail destinaire, Objet du message, Le message, fichier joint EnvoiEmail , "ça marche", "Ok voilà mon message", "c:Classeur1.xls"
End Sub '----------------------
Et tu adapte la temporisation selon ton environnement.
Salutations!
a écrit dans le message de news: Bonjour, j'ai un pb sur mon script, à l'origine c'est un script qui permet de tester plusieurs cellules et d'ouvrir Outlook pour l'envoi d'un si VB détecte une valeur >1.33. Mais visiblement, lorsque les anomalies sont nombreuses VB n'ouvre pas Outlook et prévient qu'il y a une erreur d'execution '5'
Le deboger m'a surligner la ligne suivante : ActiveWorkbook.FollowHyperlink Address:=URLto
Je ne sais pourquoi ca cloche et c pour cela que je viens chercher de l'aide!!!
Sub Envoi_Mail_ALERTE() Dim Colonne As Long Dim Ligne As Long Dim MailAd As String Dim Msg As String Dim Subj As String Dim URLto As String For Ligne = 5 To 57 For Colonne = 7 To 206 If Cells(Ligne, Colonne) < 1.33 And Cells(Ligne, Colonne) >
0 Then MailAd = Range("a2") Subj = Range("b2") Msg = Msg & Range("a" & Ligne) & vbCrLf MsgBox Msg End If Next Colonne Next Ligne URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg ActiveWorkbook.FollowHyperlink Address:=URLto End Sub
