Recupéré valeurs dans un autre classeur

[LordZerty]

Bonjour,

J'ai actuellement deux classeurs :
Le principal : Plannification des références.xlsm
La source : FS MCM.xlsx

Je souhaiterais récupéré pour le classeur plannification des références une valeur qui se trouve dans le classeur FS MCM, je fait donc le code suivant :

Form_AddRef.TB_Reference.Value = Workbooks("FS MCM.xlsx").ActiveSheet.Range("I3").Value

Hors je rencontre l'erreur suivante : "Erreur d'exécution '9': L'indice n'appartient pas à la selection"

Le débogueur me renvoie sur le ligne qui ouvre le form.

Auriez-vous une idée pour résoudre mon problème ?

Je vous remercie d'avance pour votre aide.

Cordialement,

 

[Pierrot93]

Re : Recupéré valeurs dans un autre classeur

Bonjour,

remplace peut être "ActiveSheet" par "Sheets("NomFeuille")"... sans plus de détails difficile d'en dire plus...

bon après midi
@+

 

[LordZerty]

Re : Recupéré valeurs dans un autre classeur

Bonjour,

remplace peut être "ActiveSheet" par "Sheets("NomFeuille")"... sans plus de détails difficile d'en dire plus...

bon après midi
@+

Sa ne fonctionne pas quand même, pourtant les deux fichiers excel sont bien dans le même dossier. Quel genre de détails en plus voudrais tu ?

Merci pour ton aide. 🙂

 

[Pierrot93]

Re : Recupéré valeurs dans un autre classeur

Re,

les 2 classeurs sont ouverts ? ca c'est quoi ?

Form_AddRef.TB_Reference.Value

vide... pas vide ???

 

[LordZerty]

Re : Recupéré valeurs dans un autre classeur

Re,

les 2 classeurs sont ouverts ? ca c'est quoi ?
vide... pas vide ???

Euh nan les deux classeurs ne sont pas ouvert, je souhaiterais laissé le classeur "FS MCM" fermer. C'est possible ?

Form_AddRef.TB_Reference.Value est une form avec une textbox vide, que je souhaiterais remplir avec la valeur d'une cellule d'un autre classeur.

 

[Pierrot93]

Re : Recupéré valeurs dans un autre classeur

Re,

Euh nan les deux classeurs ne sont pas ouvert, je souhaiterais laissé le classeur "FS MCM" fermer. C'est possible ?

ceci explique cela....

un lien avec des codes pour écrire / lire dans des classeurs fermés...

 

[Tirou]

Re : Recupéré valeurs dans un autre classeur

A voir si cela fonctionne,

Form_AddRef.TB_Reference.Value = Workbooks(ActiveWorkbook.Path & "FS MCM.xlsx").Sheets(1).Range("I3").Value

sinon ouvrir le fichier avec un

Set fileSource = Workbooks.Open(ActiveWorkbook.Path & "FS MCM.xlsx")
Form_AddRef.TB_Reference.Value = Workbooks(fileSource).Sheets(1).Range("I3").Value
fileSource.close

 

[LordZerty]

Re : Recupéré valeurs dans un autre classeur

A voir si cela fonctionne,

Form_AddRef.TB_Reference.Value = Workbooks(ActiveWorkbook.Path & "FS MCM.xlsx").Sheets(1).Range("I3").Value

sinon ouvrir le fichier avec un

Set fileSource = Workbooks.Open(ActiveWorkbook.Path & "FS MCM.xlsx")
Form_AddRef.TB_Reference.Value = Workbooks(fileSource).Sheets(1).Range("I3").Value
fileSource.close

La première suggestion ne fonctionne pas.

La seconde ouvre le second fichier est m'indique une incompatibilité de type.

Je vous remercie pour votre aide, si vous savez comment résoudre ce problème d'incompatibilité je suis preneur. En sachant que j'ai du écrire le code sous cet forme :

Private Sub UserForm_Initialize()
    Set fileSource = Workbooks.Open("C:\Users\sdfc_posfdds\Desktop\SAUV test\adresse\Periode 2.0\FS MCM.xlsx")
    Form_AddRef.TB_Reference.Value = Workbooks(fileSource).Sheets("Feuil1").Range("I3").Value
End Sub

 

[Tirou]

Re : Recupéré valeurs dans un autre classeur

Excuses ma maladresses, il manquait un \ ...

Private Sub UserForm_Initialize()
    Set fileSource = Workbooks.Open(ActiveWorkbook.Path & "\FS MCM.xlsx")
    Form_AddRef.TB_Reference.Value = fileSource.Sheets("Feuil1").Range("I3").Value
End Sub

Par contre, je ne sais pas comment gérer la lecture d'un fichier fermé (ce doit être possible, vu qu'on peut le faire par formules! )

Edit : Correction avec la remarque de Pierrot93

 

[Pierrot93]

Re : Recupéré valeurs dans un autre classeur

Re, bonjour tirou,

essaye comme ceci :

Form_AddRef.TB_Reference.Value = fileSource.Sheets("Feuil1").Range("I3").Value

fileSource étant un objet "workbook"....

 

[LordZerty]

Re : Recupéré valeurs dans un autre classeur

Formidable sa fonctionne.

Merci beaucoup pour ton aide ! 🙂 Ainsi que aux autres personnes ayant participé.