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.

[SfJ5Rpw8]

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

??? et ton fichier "a" existe bien ????

pour quoi un coup il se nomme "a" et le coup d'avant "chemin" ???

[Invité]

Re

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

Lorsque tu utilises l'instruction Workbooks.Open il faut le chemin du fichier (son emplacement sur le disque dur et son nom).

Merci de consulter l'aide, car "Chemin" ne veut rien dire, sinon c'est Chemin est c'est une variable qui contient le chemin et le nom du fichier.

Philippe

[Haikel22]

et bien j ai bien tout ecrit avec le chemin complet mais je les ai enlever avant de poster
Voici le code comme il est:

Code :

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

1
2
3
4
5
6
7
Set wb1 = ActiveWorkbook
 
Set wb = Workbooks.Open("C:\import.xlsx")
 
wb1.Worksheets("160").Range("I21").Value = wb.Worksheets("160").Range("N2").Value
 
wb.Close

[SfJ5Rpw8]

c'est mieux avec un code plus complet

plusieurs questions :

- est tu sur du classeur actif au lancement de ta macro ? (utiliser ActiveWorkbook est rarement une bonne idée !! )
- dans quel classeur est placé ton code ??? un 3° classeur ?
- que ce passe-t-il au lancement de ton code .?


...

[Haikel22]

oui je vais copier une cellule depuis un autre classeur dans mon classeur qui est deja ouvert, actif et ou se trouve la macro.
J ai essayer avec un 3eme classeur et cela ne marche toujours pas.
Au lencement du code le classeur s ouvre et se plante dans la ligne:
wb1.Worksheets("160").Range("I21").Value = wb.Worksheets("160").Range("N2").Value
et comme erreur j ai " "Erreur d'Exécution 9' : L'indice n'appartient pas à la selection ""

[SfJ5Rpw8]

le classeur contenant ta macro s'utilise grâce à l'objet "ThisWorkbook" et pas "ActiveWorkbook" ...

ensuite as tu bien une feuille nommée "160" sur chacun de tes 2 classeurs ?

[Haikel22]

J ai trouver l'erreur
c'est tout bete
La feuille en faite est nommer "160 " et non "160"

Ce foutu espace ma fait perder une journee

Merci pour ton aide