tout d'abord merci à tous
, alors après multiples essaie j'arrive à ouvrir le bon fichier cependeant:
- au lieu de m'enregistrer le fichier créer sous la valeur de la case ( D&i)du fichier recapituatiffacturesEnvoyées iol me l'enregistre sous le NOM TRUE quelque soit i
- il ne m'envoie aucune valeur dans les cases ouhaites use le fichier RappelFact
Si vous avez la moindre idée d'ou pouirrait provenir ce problèlme tenait moi au courant SVP
merci par avance
voila mon programme
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'
Dim Fichier As String
Dim vNomFichier As String
Factures = ActiveWorkbook.Name
RappelFact = ActiveSheet.Name
Dim chemin As String ' ouverture d'une variable chemin'
chemin = 'K:\\Ludivine\\Facturations\\Factures\\' ' description du chemin '
Dim chemincomplet As String ' ouv varible chemincomplet '
chemincomplet = chemin & 'RappelFact.xls' ' decription chemin complet '
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
If Range('D' & i).Value <> '' Then
Msg = 'Le paiement de la facture ' & Range('D' & i).Value & vbCrLf & ' n'a pas été honoré. Souhaitez-vous proceder au rappel de facture?' 'un dialogue affiche le nom du doccier concerné'
Style = vbYesNo + vbQuestion
Title = 'Rappel Factures Impayées'
Response = MsgBox(Msg, Style, Title)
End If
If Response = vbYes Then
MyString = 'Oui'
Range('J' & i).Value = Date
Workbooks.Open Filename:=chemincomplet ' Ca BUGGE A PARTIR DE LA!!!!!!'
Range('H1').Value = Date
Range('D12').Value = Range('A' & i).Value 'met dans la case D12 du fichier RappelFact 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
vNomFichier = Trim(Range('D' & i).Value) 'Début de fonction permettant d'enregistrer la feuille ainsi crée sous le nom = valeur de la case D '
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename = vNomFichier ' fin de la fonction enregistrement '
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
