Discussion :

[Elie G]

Bonjour,

J'essaie de faire une automatisation qui me permettrait lorsqu'un utilisateur rentre une donnée dans une cellule d'un doc 1, que celle-ci soit copiée dans un document 2 sur une certaine plage.
Je souhaiterais savoir pourquoi Excel me dit "Erreur d’exécution 438 - Propriété ou méthode non géré par cet objet" concernant la dernière ligne du code ci-dessous :

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
25
26
27
28
29
30
Sub NomsiteparDPGF()

'Ouvrir le classeur avec nom du site
Set classeurSource = Application.Workbooks.Open("D:\Users\Documents\Base Données Test\Tremplin3 - Version4.xlsm", , True)

'Active le document où on récupère le nom du site
Windows("Tremplin3 - Version4.xlsm").Activate

'Copie du nom du site
Range("C1").Select
Selection.Copy

'Ouvrir le classeur source (en lecture seule)
'Set classeurSource = Application.Workbooks.Open("D:\Users\Documents\Base Données Test\BDV2.xlsm", , True)

'Active le document de destination
Windows("BDV2.xlsm").Activate

'Valeur dernière ligne du collé de TYPE
Range("C6").Select

'Trouver dernière ligne pour pouvoir trouver jusq'où le site s'arrête
Selection.End(xlDown).Select
x = Selection.Row

'coller en dessous de la premiere valeur trouvée en colonne B
Range("B2:B" & x).Select
Selection.Paste

End Sub

Merci par avance pour vos réponses.

[Daniel.C]

Bonjour,

Ecris plutôt :

Code :

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

1
2
3
'coller en dessous de la premiere valeur trouvée en colonne B
Range("B2:B" & x).Select
ActiveSheet.Paste

[Elie G]

Merci beaucoup, ça fonctionne !