Discussion :

[swissmade]

bonjour

J'aimerai pouvoir lier une cellule avec un autre d'un autre classeur.
Je voudrai utilliser cells et non range
J'ai essayé ca:

Code :

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

[NomClasseur.xls]!Feuil1.cells(1,1)

Mais ca n'as pas l'air de marcher.

Merci d'avance

[swissmade]

Ma question n'est pas assez clair?
Je veux donc lire le contenu le la cellule (1,1) d'un classeur1.xls
et la mettre dans la cellule (1,1) du classeur2.xls

Merci d'avance

[Gorfael]

Salut
essaies

Code :

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

WorkBooks("NomClasseur.xls").sheets("Feuil1").cells(1,1)

à condition que le classeur soit ouvert
sinon, il faut l'ouvrir et le fermer
A+

[LeForestier]

bonjour,
confirmation de ce que dit Gorfael, avec ouverture/fermeture auto du classeur source si se trouve dans le même répertoir, sinon, mettre le chemin complet et le nom du classeur.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub TaMacro()
    On Error GoTo Ouvre
    'ICI.Eventuellement sélectionner la feuille où copier
    Cells(6, 8).Value = Workbooks("FichierSource.xls").Sheets("feuil1").Cells(1, 1).Value
    'Eventuellement pour refermer le classeur automatiquement.
    Workbooks("FichierSource.XLS").Close SaveChanges:=False
Exit Sub
Ouvre:
    Workbooks.Open "FichierSource.xls"
    Resume
End Sub

A+