Erreur

[FranQuent]

Bonjour,

Voici le code que j'ai créé pour prendre la valeur de la case AD10 dans l'onglet "FF" du fichier souhaité.
Mais il y a une erreur, pourriez-vous me dire laquelle:

Sub importer()
'
' importer Macro
'
' Touche de raccourci du clavier: Ctrl+e
'
Classeur = Application.GetOpenFilename("Classeurs Excel,FF*")
If Classeur = False Then Exit Sub
Workbooks.Open Filename:=Classeur
Worksheets(Classeur).Sheets("FF").Range("AD10").Value

End Sub

Merci d'avance

 

[dmc]

Re : Erreur

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

Bonne journée

 

[Pierrot93]

Re : Erreur

Bonjour,

regarde peut être aussi ceci :

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

 

[FranQuent]

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

 

[dmc]

Re : Erreur

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

 

[FranQuent]

Re : Erreur

Bonjour,

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



Merci

 

[FranQuent]

Re : Erreur

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

 

[Pierrot93]

Re : Erreur

Re, bonjour dmc

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

 

[FranQuent]

Re : Erreur

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

 

[Pierrot93]

Re : Erreur

Re,

et sur quelle ligne l'erreur ?

 

[Pierrot93]

Re : Erreur

Re,

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

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

 

[Pierrot93]

Re : Erreur

Re,

on pourrait également codé comme ceci :

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

 

[FranQuent]

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:

 

[Pierrot93]

Re : Erreur

Re,

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

 

[FranQuent]

Re : Erreur

Hello,

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