Erreur 424

Signaler
Messages postés
31
Date d'inscription
mardi 18 mars 2014
Statut
Membre
Dernière intervention
25 juin 2020
-
Messages postés
12177
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
26 juin 2020
-
Bonjour,

Je me permets de vous contacter car je suis bloquée sur mon code VBA du moment :)

J'ai créée une fonction qui permet de vérifier un fichier existant et de l'ouvrir.

Je veux donc utiliser cette fonction pour ouvrir mon fichier Excel et je souhaite copier les cellules d'une feuille de ce classeur vers celui ou je travaille actuellement (ce qui fonctionne) mais juste après, ma dernière ligne (close) ne passe pas, j'ai une erreur avant 424 (objet requis) et je ne sais pas pourquoi…

Voici le code :
Public Function FonctionFichier(Fichier As String)
 
If Len(Dir(Fichier)) = Empty Then
 MsgBox "Le fichier n'a pas été trouvé."
End If

Dim Application As Object
Set Application = CreateObject("Shell.Application")
Application.Open (Fichier)

End Function
---

Sub Test()

Dim wkDest As Workbook

Set wkDest = FonctionFichier("C:\Classeur1.xlsx")

wkDest.Sheets("Feuil1").Cells.Copy ThisWorkbook.Sheets("Tarifs").Range("A1")

wkDest.Close True

End Sub




En vous remerciant par avance pour votre aide :)

3 réponses

Messages postés
11508
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
10 juillet 2020
659
bonjour,
merci d'utiliser les balises de code quand tu partages du code: https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
moi je ferais plutôt:
Set wkDest = workbooks.open("C:\Classeur1.xlsx")
Messages postés
31
Date d'inscription
mardi 18 mars 2014
Statut
Membre
Dernière intervention
25 juin 2020

Oups oui pardon :(
Le problème c’est que du coup ma fonction ne serait plus utilisée ..
Messages postés
11508
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
10 juillet 2020
659 >
Messages postés
31
Date d'inscription
mardi 18 mars 2014
Statut
Membre
Dernière intervention
25 juin 2020

ton code est tellement bourré de fautes que je ne peux pas te conseiller.
si tu veux utiliser une fonction, commence peut-être par un exercice plus simple. par exemple une fonction qui double un nombre.
Messages postés
6832
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
10 juillet 2020
532
Messages postés
12177
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
26 juin 2020
2 449
Bonjour,

Cette partie de ton code sous-entends que la fonction FonctionFichier doit retourner un Objet Workbook.
Dim wkDest As Workbook
Set wkDest = FonctionFichier("C:\Classeur1.xlsx")

Or là, elle ne retourne rien.
Nulle part, dans ta fonction, on ne voit une ligne qui commence par :
FonctionFichier = .....


Pour le coup, si tu souhaites conserver le même type de schéma avec une fonction, il faut :
1- que tu types ta fonction "As Workbook"
2- que tu lui attribues une valeur de retour.

Exemple :
Option Explicit

Public Function FonctionFichier(Fichier As String) As Workbook
    If Dir(Fichier) <> vbNullString Then
        Set FonctionFichier = Workbooks.Open(Fichier)
    End If
End Function

Sub essai()
Dim wb As Workbook
    Set wb = FonctionFichier("C:\Users\Desktop\Importer tableau.xlsm")
    If Not wb Is Nothing Then
        'Ton code ici
    End If
End Sub


Ce code est donné ici à titre d'exemple.
Il est bien entendu que ce type de fonction n'est pas "réellement" utile...
Cordialement,
Franck