Erreur Macro Coller

Version imprimable

Erreur Macro Coller

Bonjour,

je reviens à nouveau vers vous concernant un obstacle que je rencontre dans ma quête VBA.

J'ai mis en place une formule coller que vous trouverez ci dessous, celle ci fonctionne à merveille la première foi, mais si on relance la macro, la fonction .past plante et je ne m'explique pas pourquoi.

Des idées, des intox et même des solutions seraient les bienvenues !!
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Private Sub CommandButton1_Click() On Error GoTo errorHandler Feuil1.Unprotect Range("A34:H53").Select ActiveSheet.Paste Feuil1.Protect Exit Sub errorHandler: Userform1.Show Feuil1.Protect End Sub
Cordialement.

27/08/2012, 12h21
mercatog

Bonjour
Tu veux copier quelle plage de quelle feuille et tu veux la coller où?
27/08/2012, 12h56
Yamiral

Bonjour,

Alors la plage copiée est située sur le classeur 1, ("A37:H56") et la place sur laquelle va se copier les cellules dans le classeur 2 est : ("A34:H53").

Sachant que sur le classeur 1 j'ai une macro copier qui fonction sans souci.

En espérant t'avoir apporté les renseignements dont tu as besoin.

Cordialement.
27/08/2012, 13h57
mercatog

Tu parles de 2 classeurs donc.
Tu veux copier la plage A37:H56 de la feuille X de classeur1 vers A37:H56 de la feuille Y de classeur2. C'est bien ça?

Quel est le classeur qui contient la macro? et comment est ouvert l'autre Classeur? (par macro ou manuellement par l'utilisateur?)
27/08/2012, 14h21
Yamiral

Bonjour et merci à tous pour l'interet que vous avez pour mon post.

La macro se trouve sur le classeur 2 Feuille Y. Le Classeur 1 est ouvert manuellement et la zone à copier est également copiée manuellement.

Enfin en bidouillant un peu j'ai peut être trouvé une piste,

J'ai déverrouillé le classeur et enlevé les lignes Unprotect et protect de la macro => plus de souci. (Maintenant il faut que je trouve un moyen pour que ça fonctionne le tout en mode protégé)

Je me demande si la macro à le temps de s'exécuter correctement avant de reprotéger la feuille Y du classeur 2.

Qu'en pensez vous ?

Cordialement.

Quel est l’intérêt de faire tout en manuelle sauf le collage?

Ci-joint code à adapter qui fait les étapes suivante (code à mettre dans Classeur2)
1. vérifie l'existence de Classeur1
2. Si oui, il l'ouvre
3. déprotège la feuille X de classeur1
4. Copie A37:H56 de feuille Y de classeur2 vers A37:H56 de feuille X de classeur1
5. protège la feuille X de classeur1
6. Enregistre et ferme classeur1

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub Transfer()
Dim Wbk As Workbook
Dim Chemin As String, Fichier As String
 
Application.ScreenUpdating = False
Chemin = "C:\Documents and Settings\Administrateur\Bureau\"    'Chemin vers ton fichier où coller à adapter !!!n'oublies par l'anti slash à la fin
Fichier = "Classeur1.xls"                        'Nom du classeur 1 à adapter
'On vérifie l'existence de Classeur1
If Dir(Chemin & Fichier) <> "" Then
    'Si il existe, on l'ouvre (et sera contenu dans la variable objet workbook Wbk
    Set Wbk = Workbooks.Open(Chemin & Fichier)
    With Wbk.Worksheets("X")
        'On déprotège la feuille X de Classeur1
        .Unprotect
        'On copie la plage A37:H56 de la feuille Y de Classeur 2 vers la plage A37:H56 de la feuille X de classeur X
        ThisWorkbook.Worksheets("Y").Range("A37:H56").Copy .Range("A37")
        'On protège la feuille X de Classeur1
        .Protect
    End With
    'On ferme Classeur1 en sauvegardant au préalable
    Wbk.Close True
    Set Wbk = Nothing
End If
End Sub

28/08/2012, 08h29
Yamiral

Merci beaucoup Mercatoq !

Problème résolu :)