Discussion :

[Anna_2013]

Bonsoir,
J'ai un problème concernant le fichier 7.5 JV ins. financier.
Il y a un bug dans la macro car elle n'arrive pas à le lire et je ne parviens pas à la modifier.

Le message d'erreur porte sur la ligne 13

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If LastCell.Value = "" And LastCell.Address = Range("$A$1").Address Then

Pourriez vous svp m'aider
merci pour votre aide

[casefayere]

Bonsoir,

sans avoir regardé le fichier, essaies comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If LastCell.Value = "" And LastCell.Address = "$A$1" Then

[BlueMonkey]

Bonsoir,

En faisant le test avec la macro et le fichier, il semble que l'initialisation de LastCell retourne Nothing.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

            Set LastCell = WS.Cells.SpecialCells(xlCellTypeLastCell)

En faisant le test suivant, le problème doit être corrigé.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
            If Not LastCell Is Nothing Then
                If LastCell.Value <> "" And LastCell.Address <> Range("A1").Address Then
                    WS.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
                End If
            End If