L
ludi
Guest
Bonjour a tous
j'ai un petit problème avec ma procédure ki ne fonctionne pas
il me semble ke c'est au niveau de l'ouverture du fichier
j'essaie aussi d'envoyer des valeurs vers ce fichier à des endroits précis et je ne sais pas si les commandes sont juste pouriez vous m'aider s'il vous plait
Voivi ma macro:
Sub affichageretardpaiement()
'
' affichageretardpaiement Macro
' Macro enregistrée le 02/08/2005 par ludi
Dim i As Integer 'i correspond à la ligne étudiée '
Dim Msg As Variant
Dim Style As Variant
Dim Title As Variant
Dim Response As Variant
Dim t As Integer ' t correpond à l'intervalla de temps pour les factures non payées entre le jour de création de la facture et le jour j'
i = 5
t = 0 'initialisation de la valeur de t '
While (Range('D' & i).Value <> '') 'tant kil y a quelque chose dans la cellule d de la ligne i faire '
If (Range('L' & i).Value = '') Then ' si la cellule k de la ligne i vaut RIEN faire'
If (Range('J' & i).Value = '') Then ' si aucun rappel n'a été effectué '
t = DateDiff('d', Range('I' & i).Value, Date) ' calcul de la différence de jours entre deux dates '
If (t > 50) Then
Msg = 'Le paiement de la facture n'a pas été honoré. Souhaitez-vous proceder au rappel de facture?'
Style = vbYesNo + vbQuestion
Title = 'Rappel Factures Impayées'
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
MyString = 'Oui'
Range('J' & i).Value = Date
rappels_factures.OpenAsTextStream ([2]) 'ouverture du fichier avec possibilité d'ecrire dedans'
Range('H1').Value = Date 'met dans la case A1 du fichier rappel_facture la date'
Range('D12').Value = Range('A' & i).Value 'met dans la case D12 du fichier rappel_facture la valeur de la c ase A de la ligne étudiée du fichier récap facture'
Range('E12').Value = Range('B' & i).Value
Range('F12').Value = Range('C' & i).Value
Range('H21').Value = Range('I' & i).Value
Range('E22').Value = Range('G' & i).Value
Range('H11').Value = Range('F' & i).Value
Range('B15').Value = Range('D' & i).Value
Else
MyString = 'Non'
End If
End If
Else: ' si un rappel a deja ete effectue faire:'
t = DateDiff('d', Range('J' & i).Value, Date) 'calcul de la différence de jours entre deux dates '
If (t > 50) Then
Msg = 'Le paiement de la facture n'a pas été honoré. Souhaitez-vous proceder au rappel de facture?'
Style = vbYesNo + vbQuestion
Title = 'Rappel Factures Impayées'
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
MyString = 'Oui'
' création du deuxième rappel '
Range('J' & i).Value = Date
Else
MyString = 'Non'
End If
End If
End If
End If
i = i + 1
Wend
End Sub
j'ai un petit problème avec ma procédure ki ne fonctionne pas
il me semble ke c'est au niveau de l'ouverture du fichier
j'essaie aussi d'envoyer des valeurs vers ce fichier à des endroits précis et je ne sais pas si les commandes sont juste pouriez vous m'aider s'il vous plait
Voivi ma macro:
Sub affichageretardpaiement()
'
' affichageretardpaiement Macro
' Macro enregistrée le 02/08/2005 par ludi
Dim i As Integer 'i correspond à la ligne étudiée '
Dim Msg As Variant
Dim Style As Variant
Dim Title As Variant
Dim Response As Variant
Dim t As Integer ' t correpond à l'intervalla de temps pour les factures non payées entre le jour de création de la facture et le jour j'
i = 5
t = 0 'initialisation de la valeur de t '
While (Range('D' & i).Value <> '') 'tant kil y a quelque chose dans la cellule d de la ligne i faire '
If (Range('L' & i).Value = '') Then ' si la cellule k de la ligne i vaut RIEN faire'
If (Range('J' & i).Value = '') Then ' si aucun rappel n'a été effectué '
t = DateDiff('d', Range('I' & i).Value, Date) ' calcul de la différence de jours entre deux dates '
If (t > 50) Then
Msg = 'Le paiement de la facture n'a pas été honoré. Souhaitez-vous proceder au rappel de facture?'
Style = vbYesNo + vbQuestion
Title = 'Rappel Factures Impayées'
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
MyString = 'Oui'
Range('J' & i).Value = Date
rappels_factures.OpenAsTextStream ([2]) 'ouverture du fichier avec possibilité d'ecrire dedans'
Range('H1').Value = Date 'met dans la case A1 du fichier rappel_facture la date'
Range('D12').Value = Range('A' & i).Value 'met dans la case D12 du fichier rappel_facture la valeur de la c ase A de la ligne étudiée du fichier récap facture'
Range('E12').Value = Range('B' & i).Value
Range('F12').Value = Range('C' & i).Value
Range('H21').Value = Range('I' & i).Value
Range('E22').Value = Range('G' & i).Value
Range('H11').Value = Range('F' & i).Value
Range('B15').Value = Range('D' & i).Value
Else
MyString = 'Non'
End If
End If
Else: ' si un rappel a deja ete effectue faire:'
t = DateDiff('d', Range('J' & i).Value, Date) 'calcul de la différence de jours entre deux dates '
If (t > 50) Then
Msg = 'Le paiement de la facture n'a pas été honoré. Souhaitez-vous proceder au rappel de facture?'
Style = vbYesNo + vbQuestion
Title = 'Rappel Factures Impayées'
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
MyString = 'Oui'
' création du deuxième rappel '
Range('J' & i).Value = Date
Else
MyString = 'Non'
End If
End If
End If
End If
i = i + 1
Wend
End Sub