zenko | Bonjour à tous,
J'ai un outils Excel codé en VBA qui fonctionne bien sauf qu'il lui manque une macro.
En fait, l'outil fait plein de calcul en fonction des données et ajoute une ligne dans une autre feuille de ce fichier...
Cependant, si l'on se trompe, on est obligé de supprimer cette(ces) ligne(s) à la main et il peut y en avoir plus de 50...
Sachant que cette feuille serte ensuite pour d'autres calcul donc ils sont tous faussés...
Voilà mon code :
Code :
- 'Suppression des données présentes ce jour
- Set EOMSuppr = Application.Workbooks.Open("RM" & Format(MeC, "yyyymm" ) & ".xls" ) //Ligne d'erreur
- EOMSuppr.Activate
- With EOMSuppr.Sheets("EOM" )
- Dim i_row As Integer
- Do While ThisSheets.Range(Cells(i_row, 0)).Value <> ""
- If ThisWorkbook.Sheets("EOM" ).Range(Cells(i_row, 1)).Value = Format(MeC, "dd/mm/yy" ) Then
- ThisWorkbook.Sheets("EOM" ).Range(Cells(i_row, 0)).Value = ""
- ThisWorkbook.Sheets("EOM" ).Range(Cells(i_row, 1)).Value = ""
- ThisWorkbook.Sheets("EOM" ).Range(Cells(i_row, 2)).Value = ""
- ThisWorkbook.Sheets("EOM" ).Range(Cells(i_row, 3)).Value = ""
- ThisWorkbook.Sheets("EOM" ).Range(Cells(i_row, 4)).Value = ""
- ThisWorkbook.Sheets("EOM" ).Range(Cells(i_row, 5)).Value = ""
- End If
- i_row = i_row + 1
- Loop
- End With
|
L'erreur retourné est : Erreur définie par l'objet
Message édité par zenko le 16-02-2009 à 10:48:36
|
