Mon Code vba marche pas

**MOUD2** · 20/03/2018, 15h41

Bonjour,

Merci d'avance de votre aide.
Mon code ne fonctionne pas quand je le lance.
j'ai une erreur 9 au niveau du choix du Sheets.
ça me renvoie toujours au premier fichier et non là ou je l'execute.
Merci

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
31
32
33
Sub Test13()
Dim Wkb As Workbook
Dim Rng As Range
Dim myPath As String, myFile As String
 
Dim valeur As String, i As Integer, j As Integer
Dim Wksh As Worksheet
Dim Cell As Range

myPath = "C:\Users\***\Desktop\test"
myFile = Dir(myPath & "\*.*")
 
'Do While myFile <> ""
'For Each Cell In Ws.Range("A")
Set Wkb = Workbooks.Open("C:\Users\***\Desktop\test\site.xlsx")
    Range(Range("A" & ActiveCell.Row), Range("IV" & ActiveCell.Row).End(xlToLeft)).Copy
    'Range("A:A").Select
    'Selection.Copy

Set Wb = Workbooks("nomfichier.xlsm")
    Sheets("Info_Site").Select
    'Sheets("Info_Site").Select
    'Sheets("Info_Site").Range("B3").Paste
    Range("B3").Paste
    ActiveSheet.Paste
    Application.CutCopyMode = False
Call Module1.Bouton2_Cliquer

'Next Cell
'Loop

End Sub

**joe.levrai** · 20/03/2018, 15h46

Bonjour,

préfixe ton objet feuille avec l'objet classeur dans lequel il est, ça évitera à ta procédure de chercher cette feuille dans le classeur actif.... là où elle n'existe pas

**MOUD2** · 20/03/2018, 15h55

Merci de ta réponse
Mon code de départ était ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Set Wkb = Workbooks.Open("C:\Users\***\Desktop\test\site.xlsx")
    Range(Range("A" & ActiveCell.Row), Range("IV" & ActiveCell.Row).End(xlToLeft)).Copy


Set Wkb = ThisWorkbook
    Sheets("Info_Site").Select
    Range("B3").Paste
    ActiveSheet.Paste
    Application.CutCopyMode = False
Call Module1.Bouton2_Cliquer

donc si je veux préfixer ma feuille que je veux au niveau du rouge, je fais comment ?
Sachant que ça me renvoie au 1er classeur alors que la macro se trouve dans le second classeur.
Merci

**Menhir** · 20/03/2018, 16h19

Regarde quel est le classeur actif au moment où la macro plante : est-ce que l'onglet Info_Site est dans ce classeur actif ?

Il me semble aussi très hasardeux de pointer sur une ActiveCell d'un classeur qu'on vient juste d'ouvrir.
Il faut vraiment être certain de la position au moment de la sauvegarde pour oser faire ça (perso, je n'oserai jamais).

Autre problème : l'objet Range n'a pas de méthode Paste. Par contre, il a une méthode PasteSpecial.

**MOUD2** · 20/03/2018, 16h25

Bonjour,

les deux fichiers sont ouvert.
L'onglet "info_site" est dans le 2e fichier.
j'ai modifié le code comme ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Set Wkb = Workbooks.Open("C:\Users\***\Desktop\test\site.xlsx")
    Range(Range("A" & ActiveCell.Row), Range("IV" & ActiveCell.Row).End(xlToLeft)).Copy
    'Range("A:A").Select
    'Selection.Copy

Set Wb = Workbooks("monfichier__.xlsm")
Set Wksh = Wb.Worksheets("Info_Site")
    Wksh.Activate
    Worksheets.Select
    Range("B3").Paste
    ActiveSheet.Paste
    Application.CutCopyMode = False
Call Module1.Bouton2_Cliquer