Bonjour,
J'ai un soucis avec la méthode PAST dans une macro...
J'ai regarder sur le net ainsi que sur ce forum et malgrès qu'un sujet déjà ouvert aurais pu aux premiers abords ressembler avec mon soucis, il n'en ai malheureusement pas le cas (ici un lien vers le sujet:http://forum.hardware.fr/hfr/Progr [...] 5245_1.htm)
Bref, je vais essayer d'expliquer mon problème:
J'ai importer une table d'Access vers Excel afin de rentrée les données de la table Access vers une feuille d'Excel, pour faire ceci j'ai crée une macro qui copie et qui colle les données de la feuille importée "CFG" vers la feuille "Saisie CRF-CRA".
Malheuresement une erreur d'exécution "1004" intervient précisent que "La methode past de la classe worksheet a échoué" à l'aide du débugueur je vois effectivement que l'erreur se situe à la ligne ActiveSheet.Paste
J'ai bien vérifier que le soucis ne venais pas de feuilles protégés et j'en arrive à un point ou je n'ai plus aucune idée d'ou pourrais venir le problème...
Voici le code de ma macro:
Code :
- Sheets("CFG" ).Select
- ' On initialise la variable i à 2 (car en position 1 il y a la description de la colonne)'
- i = 2
- ' On crée une boucle vérifiant le contenu de chaque cellule, si celle-ci est vide, on arrête la boucle'
- Do While Range("A" & (i)) <> ""
- ' On séléctionne la cellule [A;i](i étant la varible définie au début)'
- Range("A" & (i)).Select
- ' On copie la cellule'
- Selection.Copy
- ' On défini la variable session par le contenu de la cellule'
- pos = Range("A" & (i)).Value
- ' On séléctionne une autre feuille du classeur'
- Sheets("Saisie CRF-CRA" ).Select
- ' On séléctionne la cellule [A;session] (session a pour valeur ici le N° d'affiliation à l'OCCE)'
- Range("A" & (pos + 4)).Select
- ' On efface préalablement la cellule au cas ou elle contiendrais des données'
- Selection.ClearContents
- ' On colle le contenu de la cellule copiée auparavant dans la cellule active (grace à la séléction juste au dessu)'
- ActiveSheet.Paste
- ' On reviens à la feuille CFG du classeur'
- Sheets("CFG" ).Select
|
Merci de l'aide !
Message édité par gedriukas le 25-06-2007 à 13:02:09
