Utiliser valeurs d'un autre classeur

Pierrot93

XLDnaute Barbatruc

• 21 Novembre 2012

• #2

Re : Utiliser valeurs d'un autre classeur

Bonjour,

Workbooks("C:\...").sheets("..").cells(..).value

Cliquez pour agrandir...

en l'état veut pas dire grand chose... le classeur est il ouvert ? à priori préférable de l'ouvrir au préalable... A voir selon ton projet...

bonne journée
@+

 

Vote positif 0 Vote négatif

D

dar0609

XLDnaute Nouveau

• 21 Novembre 2012

• #3

Re : Utiliser valeurs d'un autre classeur

Merci Pierrot, c'est bien ce que je pensais il faut que je l'ouvre avant de pouvoir utiliser des valeurs de ce classeur

 

Vote positif 0 Vote négatif

D

dar0609

XLDnaute Nouveau

• 21 Novembre 2012

• #4

Re : Utiliser valeurs d'un autre classeur

Pierrot,

J'ai un problème car mon code ne marche toujours pas, le voici peux-tu me dire ce que tu en penses, merci.

Private Sub userform_activate()

Workbooks.Open ("C:\Users\gdarnaudet\Desktop\Macros\Ventes.xlsm")
Dim lastRow3 As Integer
lastRow3 = Workbooks("C:\Users\gdarnaudet\Desktop\Macros\Ventes.xlsm").Sheets("Ventes 2010").Cells(65536, 3).End(xlUp).Row

Dim c As Integer

For c = 1 To lastRow3 Step 1
ComboBox1.AddItem Workbooks("C:\Users\gdarnaudet\Desktop\Macros\Ventes.xlsm").Sheets("Ventes 2010").Cells(c, 3).Value
Next

End Sub

 

Vote positif 0 Vote négatif

Jam

XLDnaute Accro

• 21 Novembre 2012

• #5

Re : Utiliser valeurs d'un autre classeur

Bonjour dar,

Pourquoi ne pas tout simplement faire un lien dans un onglet spécifique (genre Paramètre ) et utiliser ensuite la valeur de cette cellule dans ta macro ?

Bon courage


modif: Salut Pierrot

 

Vote positif 0 Vote négatif

D

dar0609

XLDnaute Nouveau

• 21 Novembre 2012

• #6

Re : Utiliser valeurs d'un autre classeur

Je tiens à préciser que dans mon code il n'y a pas d'espace entre le s et le m de "xlsm" et non plus entre le t et le e de "Ventes".

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 21 Novembre 2012

• #7

Re : Utiliser valeurs d'un autre classeur

Re,

une fois le classeur ouvert, n'utiliser que son nom + extension :

Code:

lastRow3 = Workbooks("Ventes.xlsm").Sheets("Ventes 2010").Cells(65536, 3).End(xlUp).Row

Edition : bonjour Jam

 

Vote positif 0 Vote négatif

D

dar0609

XLDnaute Nouveau

• 21 Novembre 2012

• #8

Re : Utiliser valeurs d'un autre classeur

Bonjour Jam,

Désolé étant débutant dans la matière peux-tu m'expliquer ce que tu entends par onglet spécifique. Merci

 

Vote positif 0 Vote négatif

Jam

XLDnaute Accro

• 21 Novembre 2012

• #9

Re : Utiliser valeurs d'un autre classeur

Re,

Ola...vous allez trop vite pour moi ce matin

Pour l'histoire de l'onglet (une feuille en fait) vu ta première question je pensais que tu n'avais besoin que d'une valeur. Donc un simple lien vers l'autre classeur aurait pu suffire. Bon, en fait c'est pas la bonne réponse vu la suite du post.

Les conseils de Pierrot étant toujours très pertinents tu es entre de bonnes mains.
Je me permettrai juste de t'apporter un modeste conseille.
Lorsque tu veux/doit travailler avec plusieurs classeurs en même temps il est sage d'affecter leurs noms à des variables puis d'utiliser ces variables. C'est plus simple, et surtout il y a moins de risque de boulette. C'est d'autant plus valables si tu fais des aller/retours nombreux d'un classeur à un autre.
Il faut faire quelque chose comme ça:

VB:

Dim wkbSource As Workbook
Dim wkbDestination As Workbook

Set wkbSource = Workbooks("Ventes.xlsm")
Set wkbDestination = Thisworkbook

...tes petits traitements (en utilisant les variables hein ;-) )...


Set wkbSource = nothing
Set wkbDestination = nothing

Bon courage

 

Vote positif 0 Vote négatif