Erreur

D

dmc

XLDnaute Occasionnel

• 15 Novembre 2012

• #2

Re : Erreur

Bonjour FranQuent
peut-être mavaleur = Worksheets(Classeur).Sheets("FF").Range("AD10").Value

Bonne journée

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 15 Novembre 2012

• #3

Re : Erreur

Bonjour,

regarde peut être aussi ceci :

Code:

Dim Classeur As String, wb As Workbook
Classeur = Application.GetOpenFilename("Classeurs Excel,FF*")
If Classeur = False Then Exit Sub
Set wb = Workbooks.Open(Classeur)
MsgBox wb.Sheets("FF").Range("AD10").Value

bonne journée
@+

 

Vote positif 0 Vote négatif

F

FranQuent

Guest

• 15 Novembre 2012

• #4

Re : Erreur

Bonjour dmc,

Merci pour cette réponse mais malheureusement elle ne fonctionne pas. Mais l'erreur est bien sur cette ligne.
Faut-il introduire mavaleur?

Merci

 

Vote positif 0 Vote négatif

D

dmc

XLDnaute Occasionnel

• 15 Novembre 2012

• #5

Re : Erreur

Bonjour Pierrot93
FranQuent : quelle erreur indique-t-il ?

 

Vote positif 0 Vote négatif

F

FranQuent

Guest

• 15 Novembre 2012

• #6

Re : Erreur

Bonjour,

Malheureusement ça ne marche pas non plus, ça met l'erreur suivante:



Merci

 

Pièces jointes

• Sans titre.png

  10.8 KB · Affichages: 60
• Sans titre.png

  10.8 KB · Affichages: 66

Vote positif 0 Vote négatif

F

FranQuent

Guest

• 15 Novembre 2012

• #7

Re : Erreur

Et pour le code d'origine l'erreur est la n°9

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 15 Novembre 2012

• #8

Re : Erreur

Re, bonjour dmc

As tu testé le code proposé post #3 ?

 

Vote positif 0 Vote négatif

F

FranQuent

Guest

• 15 Novembre 2012

• #9

Re : Erreur

Oui oui et l'erreur est celle du poste #6

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 15 Novembre 2012

• #10

Re : Erreur

Re,

et sur quelle ligne l'erreur ?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 15 Novembre 2012

• #11

Re : Erreur

Re,

aarf... autant pour moi... modifie ainsi :

Code:

Dim Classeur As String, wb As Workbook
Classeur = Application.GetOpenFilename("Classeurs Excel,FF*")
If Classeur = "Faux" Then Exit Sub
Set wb = Workbooks.Open(Classeur)
MsgBox wb.Sheets("FF").Range("AD10").Value

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 15 Novembre 2012

• #12

Re : Erreur

Re,

on pourrait également codé comme ceci :

Code:

Dim Classeur As Variant, wb As Workbook
Classeur = Application.GetOpenFilename("Classeurs Excel,FF*")
If VarType(Classeur) = vbBoolean Then Exit Sub
Set wb = Workbooks.Open(Classeur)
MsgBox wb.Sheets("FF").Range("AD10").Value

 

Vote positif 0 Vote négatif

F

FranQuent

Guest

• 15 Novembre 2012

• #13

Re : Erreur

Merci Pierrot93, il n'y a plus d'erreur. Mais ça me donne la valeur dans une boite de message et ça ne la met pas dans mon fichier d'origine:

 

Pièces jointes

• valeur.jpg

  46.6 KB · Affichages: 50

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 15 Novembre 2012

• #14

Re : Erreur

Re,

bah oui.... normal j'ai mis un "msgbox" pour tester.... A voir ce que tu veux en faire de ta valeur ??

 

Vote positif 0 Vote négatif

F

FranQuent

Guest

• 15 Novembre 2012

• #15

Re : Erreur

Hello,

Je souhaiterais la mettre dans une case précise du fichier d'origine (B1 par exemple). Est-ce possible?

 

Vote positif 0 Vote négatif