Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Erreur

F

FranQuent

XLDnaute Nouveau
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
 
Trier par date Trier par votes

Pierrot93

XLDnaute Barbatruc
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

Pierrot93

XLDnaute Barbatruc
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
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
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

Z
  • Question
XL 2021 VBA Prélèvement d'une donnée si une valeur recherchée est identique
Réponses
3
Affichages
222
ZiM
Z
  • Résolu(e)
Microsoft 365 Save qu'une feuille d'un classeur
Réponses
4
Affichages
549
Electron24
  • Résolu(e)
XL 2013 (RESOLU) Erreur d'exécution "50289"
2
Réponses
23
Affichages
885
chaelie2015
G
  • Question
XL 2019 copier des données à partir d'un autre fichier excel VBA
Réponses
2
Affichages
871
Guillaumeg3
G
F
  • Résolu(e)
XL 2021 Réaliser une macro pour copier une ligne avec formule ?
Réponses
4
Affichages
406
fanou06
F
D
  • Question
XL 2021 VBA - Erreur 1004 aléatoire - Image/Logo
Réponses
10
Affichages
416
crocrocro
C
O
  • Question
Microsoft 365 Excel [VBA]. Erreur d’exécution 424 Objet requis sur une concaténation
Réponses
3
Affichages
185
Oneida
I
  • Question
XL 2016 Mon code VBA me renvoi une erreur
Réponses
6
Affichages
525
INFINITY100
I
G
  • Question
Microsoft 365 Saut de ligne dans une cellule
Réponses
3
Affichages
180
GClaire
G
M
  • Question
XL 2016 Erreur d'execution '52': Nom ou numéro de fichier incorrect
Réponses
4
Affichages
596
macseb
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…