Impossible essayer exécuter une procédure Résolu

Question

Bonjour, 

Impossible de lancer ma procédure qui s'arrête avec le message erreur : "Erreur de compilation : type par l'utilisateur non défini". Je veux juste l'exécuter de temps en temps en l'écrivant pour être sûr de ce que je fais.

Le problème est que cela s'arrête (surlignage jaune) dès la première ligne de mon code où il y a simplement : 

Sub NomProcédure ()

Je ne comprends donc pas le message d'erreur ... 

Merci !

jordane45 · Answer

Bonjour 

tu peux nous montrer le code complet ?
De plus.. ne mets pas de caractères accentués  dans le nom de ta procedure ni dans le nom de tes variables

Utilisateur anonyme · Answer

Bonjour,

Il ne doit pas y avoir d'espace entre le dernier caractère
du nom de la procédure et la parenthèse gauche :

Sub NomProcédure()
End Sub

Cordialement.  &#x1F60A;

VBA Beginner XX · Answer

En réalité, je n'ai écris que ceci (comme l'arrêt était fait sur le sub, je pensais que l'erreur ne portait que là-dessus, ce n'est pas vrai ?), la procédure n'est pas finie bien sur, je souhaite piloter excel depuis vba access :

Sub ImportBG()

Dim xlApp As Excel.Application

' Créer un objet Excel
' (ce qui équivaut à démarrer Excel à distance)
Set xlApp = CreateObject("Excel.Application")

With xlApp
   ' Rendre Excel visible
    .Visible

Dim FiletoOpen As String
    
             'récupération du nom et du chemin du fichier 'POSS BEUG CAR XLS ET MTN XLSX
            FiletoOpen = .Application.GetOpenFilename("xls Files (*.), *.xls")
            .Workbooks.Open " filetoopen"

End With

End Sub


    EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici :ICI 

Merci d'y penser dans tes prochains messages.

VBA Beginner XX · Answer

En revanche je ne comprends pas pourquoi ma méthode "with" et les points en fonctionnent pas.

VBA Beginner XX · Answer

Non c'est bon en fait !! Merci !

Impossible essayer exécuter une procédure

5 réponses

Discussions similaires

Newsletters