Discussion :

[Yamiral]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[mercatog]

Bonjour
Tu veux copier quelle plage de quelle feuille et tu veux la coller où?

[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.

[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?)

[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.

[mercatog]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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