Discussion :

[CAFOUIN]

J'ai découvert ce forum la semaine dernière, et je le trouve formidable (comme ses contributeurs du reste).
J'ai trouvé des réponses à des questions que je me posais, et du coup je me suis inscrit pour participer à ce forum.
Voici un petit problème sur lequel je butte depuis quelques jours:
A la cellule "A1" de la feuille "Destination" du classeur "Class2", je voudrais affecter les 8 premiers caractères de la cellule "B2" de la feuille "Origine" du classeur "Class1".
J'ai bien trouvé une solution en utilisant Copy, mais c'est trop lourd.
En une ligne est-ce faisable?
Merci d'avance.

[helios77]

Essaie un truc du genre

Code :

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

1
2
 
Workbooks("Class2").Sheets("Destination").Cells(1,1).value = Left(Workbooks("Class1").Sheets("Origine").Cells(2,2).value,8)

Evidemment, ce code suppose que tes 2 classuers et tes 2 feuilles existent
Et aussi que les classeurs soient ouvert
Pour lesouvir via la macro, tu fais un truc du genre

Code :

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

1
2
 
Application.Workbooks.Open("Class1")

Quand tu as finis, tu fais pareil

Code :

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

1
2
 
Application.Workbooks.Close("Class1")

Evidemment, ma réponsesuppose que tes classeurs sont au même endroit
Si ils sont dans des répertories différents, il faut rajouter le chemin devant le nom

Exemple :

Code :

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

1
2
 
Application.Workbooks.Open("C:\DossierTest\MonClasseur.xls")

Après tu peux aussi mettre ton chemin en variable constante dès ledébut de ton programme si tu as besoin de l'utiliser plusieurs fois afin de pouvoir modifier ton codetrès rapidement en cas de besoin

Code :

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

1
2
3
4
5
6
 
Const monChemin as string = "C:\DossierTest\"
 
Sub monModule()
Application.Workbooks.Open(monChemin & "MonClasseur.xls")
End Sub

[CAFOUIN]

ça marche ... et sur une seule ligne.
Merci bien.