copier une cellule d'un fichier excel vers une autre cellule d'un autre fichier excel

**lileeeee** · 14/09/2014, 13h53

Bonjour tout le monde
Je suis une débutante en vba.
J'aimerais copier une cellule A1 se trouvant dans un fichier source.xls vers une cellule b1 se trouvant
dans un autre fichier destination.xls
Svp, aidez moi.
Merci

**Philippe Tulliez** · 14/09/2014, 14h14

Bonjour,
La syntaxe est : Source.Copy Destination
Où Copy est une méthode de l'objet Range, Source est un objet Range (Soit ClasseurSource.FeuilleSource.PlageOuCelluleSource et Destination est également un objet Range (Soit ClasseurDeDestination.FeuilleDeDestination.CelluleDeDestination)
Ton meilleur ami est l'enregistreur de macros qui te donnera le code à utiliser.

**lileeeee** · 14/09/2014, 14h21

merci Philippe. J'ai essayé ve que tu m'as dit . voici mon code. mais ca ne marche pas

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
34
35
Sub copydata()
Dim wkbSource As Workbook
Dim wkbdestination As Workbook
Dim shttocopy As Worksheet
Dim wbname As String
 
Dim o As Worksheet
 
Dim r As Range
Dim r1 As Range
 
Dim o1 As Worksheet
 
 
 
 
Set wkbSource = Workbooks.Open("C:\carol\caroo\source.xlsx")
wkbSource.Worksheets("Feuil1").Activate
Set o = wkbSource.Worksheets("Feuil1")
 
 
' open file destination
Set wkbdestination = Workbooks.Open("C:\carol\caroo\destination.xlsm")
wkbdestination.Worksheets("Feuil1").Activate
 
Set o1 = wkbdestination.Worksheets("Feuil1")
Set r1 = o1.Range("A1")
 
 
'copy
 
 r1.copy .r2
 
 
End Sub

**SfJ5Rpw8** · 14/09/2014, 14h41

bonjour,

et que ce passe-t-il ?

**Philippe Tulliez** · 14/09/2014, 14h41

Bonjour,

J'ai essayé ve que tu m'as dit . voici mon code. mais ca ne marche pas

Cela manque de précision.
Qu'est-ce qui ne marche pas ?
Cela ne copie rien ?
Y a-t-il un message d'erreur ?
Si oui, quel numéro d'erreur, et quel message et à quelle ligne ?

Cependant à première lecture dans cette ligne

Code :

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

r1.copy .r2

La syntaxe est bonne mais r1 est bien un objet Range mais r2 ????

**lileeeee** · 14/09/2014, 14h57

J'ai déclaré r1 et r comme range tout en haut.
j'obtiens l'erreur suivante
erreur d'execution 91
variable objet ou variable de bloc with non indefie

le probleme se trouve au niveau de la copie, car lorsque je commente la ligne r.copy r2, les fichiers s'ouvrent

**SfJ5Rpw8** · 14/09/2014, 15h17

Envoyé par Philippe Tulliez

r1 est bien un objet Range mais r2 ????

Alors lileeeee c'est quoi r2 et pourquoi le précéder d'un point ?

**Philippe Tulliez** · 14/09/2014, 15h20

Bonjour,

J'ai déclaré r1 et r comme range tout en haut.

C'est bien le problème
Ligne 9, tu déclares la variable r comme un Range mais ligne 32 comme je te l'ai écrit tu utilises la variable r2 qui elle n'est déclarée nulle part. En tous les cas pas de le code affiché.
L'utilisation de variable plus 'parlante' comme Source et Cible t'aiderait sûrement et la ligne Option Explicit placée en début de module t'aurait permis de voir tout de suite que la variable r2 n'était pas déclarée

**lileeeee** · 14/09/2014, 16h13

ah oui c'est vrai. C'est r2 le problème. J'aurais dû mettre r à la place.
Çà marche maintenant.
Merci beaucoup à vous tous. Merci merci merci.....

**Philippe Tulliez** · 14/09/2014, 16h38

Bonjour,
Comme écrit plus haut il est important de placer cette ligne Option Explicit en tête de module.
Cela nous oblige à déclarer nos variables et cela fait gagner un temps important à la recherche de problème inhérent à des variables non déclarées ou mal orthographiées.
Il est possible de cocher une option Déclaration obligatoire ds variables dans les Options VBA qui placera automatiquement cette ligne à chaque insertion de nouveau module.