VBA Excel : Copie de données entre 2 fichier [Résolu]

Messages postés
11
Date d'inscription
mercredi 1 décembre 2004
Statut
Membre
Dernière intervention
5 juillet 2005
- - Dernière réponse : ScSami
Messages postés
1488
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
3 décembre 2007
- 6 juil. 2005 à 02:52
Bonjour à tous,


J'utilise un fichier tampon Excel entre 2 autres fichiers Excel et je realise des liaison entre ces 3 fichiers. Mon probleme se situe dans la copie de données du fichier contenant les informations brut et celui qui me sert de tampon.

Voila mon code actuel :

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").Activate
Sheets("Info_PF").Select
Range("A1:CZ1").PasteSpecial
Else
Windows("PFCourant").Activate
Sheets("Info_PF").Select
Range("A2:CZ2").PasteSpecial
End If

Workbooks("PFCourant").Save


End Function

Cela fonction mais la sauvegarde echoue le plus souvent en mode normal alors que quand je fais du pas à pas la sauvegarde se passe bien. Si quelqu'un a une idée sur mon probleme ou qu'il a une meilleurs solution je suis preneur.

Merci de votre aide.
Afficher la suite 

4 réponses

Meilleure réponse
Messages postés
1488
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
3 décembre 2007
18
3
Merci
Essay aussi de placer un (ou plusieurs) "DoEvents" avant
la sauvegarde... Ca lui laissera peut-être le temps de faire la
copie... Parce qu'a mon avis, il est là ton problème! Si les colonnes
sont trop longues à copier, le VB Ava plus vite que la méthode Past et
du coup, quand tu veux sauvegarder Excel est déjà occupé à coller et
pof, ça marche pas! Enfin, ça, c'est ma théorie... A toi de voir si
elle s'avère juste!!!


Enjoy

<hr size="2" width="100%">
(Si une réponse vous convient, cliquez sur le bouton "Réponse accéptée"...)

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 206 internautes nous ont dit merci ce mois-ci

Messages postés
117
Date d'inscription
vendredi 22 avril 2005
Statut
Membre
Dernière intervention
26 juin 2007
0
Merci
essaye peut etre

ActiveWorkbook.Save
Messages postés
11
Date d'inscription
mercredi 1 décembre 2004
Statut
Membre
Dernière intervention
5 juillet 2005
0
Merci
Bah en fait c'est plus ou moins ca. Comme j'execute cette fonction dans une boucle et que j'avais desactivé le rafraichissement de l'ecran, je pensais que Excel se plantait mais en faite c'est juste qu'il fallait 5min pour passer à autre chose. J'ai mis des Do event et ca a l'air de plus planter à la sauvegarde.

Merci à vous 2.
Messages postés
1488
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
3 décembre 2007
18
0
Merci
De rien. Je suis heureux pour toi!



Et merci d'avoir "Accépté" la réponse... ça se fait malheureusement trop rarement!!!



@++ sur VBF