Copie de données entre 2 fichier en VBA

[Jeralex]

Bonjour à tous,

J'utilise cette fonction pour copier une ligne d'une fichier et la coller dans un autre fichier.

Function InitPFCourant(ligne As Integer, entete As Boolean)
    Windows('dossfabfusion.xls').Activate
    Sheets('XL_PF').Select
    Range('A' & ligne).EntireRow.Copy
    If entete Then
        Windows('PFCourant.xls').Activate
        Sheets('Info_PF').Select
        Range('A' & 1).EntireRow.PasteSpecial
    Else
        Windows('PFCourant.xls').Activate
        Sheets('Info_PF').Select
        Range('A' & 2).EntireRow.PasteSpecial
    End If
    
    ActiveWorkbook.Save
    
End Function

Mais cela me fait regulierement planter excel ou alors il bloque tous simplement. Mais le plus souvent, il m'indique qu'il n'arrive pas à sauvegarder le fichier. Voila j'aimerai savoir où peut etre le probleme (en pas a pas, ca marche) et si il peut y avoir une autre methode.

Merci votre aide

Message édité par: jeralex, à: 04/07/2005 11:59

Message édité par: jeralex, à: 04/07/2005 12:07