Discussion :

[Haikel22]

Salut tout le monde,

je n arrive pas a copier une cellule depuis un autre workbook.

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
Sub copier()
Dim tmp As Integer
Dim wb, wb1 As Workbook
 
Set wb1 = ActiveWorkbook
 
Set wb = Workbooks.Open("a") ' le workbook d ou je vais copier la cellule 
With wb.Worksheets("160")' la feuille d ou je vais copier la cellule 
 
            tmp = Range("N2").Value
 
End With
 
With wb1.Worksheets("b") ' ou je vais coller la Cellule
 
    Range("I21").Value = tmp
 
End With
 
wb.Close
End Sub

Avez vous une idee ou l erreur dans mon code ?
Merci

[Marc-L]

Bonjour,

peut-être qu'un point est manquant devant une propriété,

sinon à quoi bon utiliser l'instruction With ? Revoir l'aide et son exemple …


__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[Invité]

With a pour objet de réduire l'écriture du code

Code Exemple :

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

1
2
3
4
5
With wb1.Worksheets("b")
.range("a1")="toto"
.range("a2")="toto"
.range("a3")="toto"
.range("a4")="toto"

toi tu as une instruction et en plus tu transit par la variable tmp?????

Code :

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

wb1.Worksheets("b").Range("I21").Value= wb.Worksheets("160").Range("N2").Value

il y a moins à écrire

[Haikel22]

et bien j ai alleger mon code et j ai laisser "with"
sinon l erreur est : Erreur Automation

je viens de redemarrer Excel et Le message d'erreur qui s'affiche est le suivant: "Erreur d'Exécution 9' : L'indice n'appartient pas à la selection "

[Invité]

Bonjour

C'est quoi "a" ?

Si c'est une variable avec le nom et le chemin du fichier il faut enlever les doubles quotes.

Philippe

[Haikel22]

"a" est le chemin du fichier excel

Voici le code maintenant

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim wb, wb1 As Workbook
 
 
Set wb1 = ActiveWorkbook
 
Set wb = Workbooks.Open("chemin")'chemin est le chemin di fichier excel
 
wb1.Worksheets("160").Range("I21").Value = wb.Worksheets("160").Range("N2").Value
 
wb.Close

et j ai toujours la meme erreur

[Invité]

Si c'est une variable avec le nom et le chemin du fichier il faut enlever les doubles quotes.

[Haikel22]

non c'est le chemin c'est pas une variable.