Bonjour à tous,
J'utilise cette fonction pour copier une ligne d'une fichier et la coller dans un autre fichier.
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
J'utilise cette fonction pour copier une ligne d'une fichier et la coller dans un autre fichier.
Code:
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