Discussion :

[zikey]

Bonjour,

Dans le premier fichier qui ne comporte qu'une feuille protégée par mot de passe je sélectionne une zone de cellules "A1:X407", cellules verrouillées ou pas.Cette feuille comporte 2 volets

J'ouvre un second fichier qui a la même structure que le premier (c'est un enregistrement sous..) pour coller la zone sélectionnée dans une zone identique ("A1:X407").

Je remercie d'avance ceux qui pourrons m'aider

Cordialement

zikey

[Philippe Tulliez]

Bonjour,
Je n'ai pas très bien compris ce que tu entends pas deux volets mais voici une procédure qui copie les cellules A3:C12 de la feuille nommée [Feuil1] d'un classeur nommé 20140722 WorkBookProtect.xlsx vers la cellule A1:C10 de la feuille nommée [Feuil1] du classeur où se trouve le code VBA.
La feuille et les cellules du classeur source sont protégées et les deux classeurs sont ouverts.
Le code ci-dessous se trouve dans le classeur cible (ThisWorkbook)

Code :

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

1
2
3
4
5
6
Sub Copy()
 Dim rng As Range
 Set rng = Workbooks("20140722 WorkBookProtect.xlsx").Worksheets("Feuil1").Range("A3:C12")
 MsgBox rng.Cells(1, 1)
 rng.Copy ThisWorkbook.Worksheets("Feuil1").Range("A1")
End Sub

[zikey]

Merci d'avoir répondu à ma demande dans laquelle je n'ai pas apporté suffisamment de précisions.
Je vais essayer de le faire:
2 fichiers ouverts:
Fichier "Présences Bénéficiaires" comportant entre autres une feuille nommée "Saisir les Présences" et une zone de cellules à copier "A1:X407".
Fichier "Relevé des Présences" comportant une feuille nommée aussi "Saisir les Présences" dans laquelle je veux coller la zone de cellules sélectionnées dans la zone "A1:X407".
Ce sont des fichiers xlsm.

[Philippe Tulliez]

Bonjour,
Et bien sauf erreur de ma part, il me semble que ma réponse reflète exactement ce que tu exposes ici. Il faut juste adapter le nom des feuilles de chaque classeurs, la référence aux cellules et le nom du classeur source le classeur cible étant je suppose le classeur où doit se trouver le code VBA sera également ThisWorkbook

[zikey]

Bonsoir,

Excusez-moi de vous relancer mais est-il possible de savoir si mes messages vous parviennent?

En effet la réponse que j'ai eu ne correspond pas exactement à mon problème.

J'ai ouvert un fichier 1 et sélectionné la feuille 1.

Ensuite j'ai sélectionné la feuille 1 qui contient les cellules à copier.

Cette feuille appartient à un fichier 2 déjà ouvert.

La macro est dans le fichier 2

Je vous remercie.

Cordialement

zikey

[clementmarcotte]

Bonsoir,

Excusez-moi de vous relancer mais est-il possible de savoir si mes messages vous parviennent?

zikey

Oui, c'est possible, oui, ils sont visibles.

Philippe a répondu qu'il faut peut-être adapter un peu.

Ceci dit, en complément des réponses de Philippe, Thisworkbook n'est pas forcément le classeur actif, (ni même le classeur sur lequel agit la macro, tant qu'à y être) mais, c'est toujours le classeur qui contient la macro en cours.