Impossible essayer exécuter une procédure
Résolu
VBA Beginner XX
-
VBA Beginner XX -
VBA Beginner XX -
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 !
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 !
A voir également:
- Impossible d'executer la macro il est possible qu'elle ne soit pas disponible
- Cette personne n'est pas disponible sur messenger - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Ce contenu n'est pas disponible facebook - Forum Facebook
- Marketplace n'est pas disponible pour vous - Forum Facebook
- Le téléphone de votre correspondant n'est pas disponible - Forum Mobile
5 réponses
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
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
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 :
Cordialement. 😊
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. 😊
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. |
Heu.. pour commencer .... place les déclarations de tes variables AU DEBUT de ta sub (avant toute autre instruction)
Par exemple :
et pas n'importe où dans ton code....
Pour le code.. essaye un truc du genre : ( nb : je n'ai pas d'access sous la main pour tester)
Par exemple :
Sub ImportBG() Dim FiletoOpen As String Dim xlApp As Excel.Application
et pas n'importe où dans ton code....
Pour le code.. essaye un truc du genre : ( nb : je n'ai pas d'access sous la main pour tester)
Sub ImportBG()
Dim FiletoOpen As String
Dim xlApp As Excel.Application
' Créer un objet Excel
' (ce qui équivaut à démarrer Excel à distance)
Set xlApp = CreateObject("Excel.Application")
' Rendre Excel visible
xlApp.Visible = True
'récupération du nom et du chemin du fichier 'POSS BEUG CAR XLS ET MTN XLSX
FiletoOpen = xlApp.Application.GetOpenFilename("xls Files (*.), *.xls")
xlApp.Workbooks.Open FiletoOpen
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question