Utiliser valeurs d'un autre classeur

[dar0609]

Bonjour à tous,

Je souhaite réaliser une macro dans laquelle j'ai besoin d'aller chercher des valeurs dans un autre fichier que celui sur lequel je travaille. Quelqu'un pourrait m'expliquer les étapes à suivre afin que ça marche. Pour l'instant j'avais simplement essayer d'écrire : Workbooks("C:\...").sheets("..").cells(..).value.

Cela ne marche pas, le système m'indique une erreur d’exécution 9, "l'indice n'appartient pas à la sélection".

Pourriez-vous m'aider là-dessus merci.

 

[Pierrot93]

Re : Utiliser valeurs d'un autre classeur

Bonjour,

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

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
@+

 

[dar0609]

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

 

[dar0609]

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

 

[Jam]

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

 

[dar0609]

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".

 

[Pierrot93]

Re : Utiliser valeurs d'un autre classeur

Re,

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

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

Edition : bonjour Jam

 

[dar0609]

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

 

[Jam]

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:

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