Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel import de code

import de code

3 réponses
Avatar
Brat'ac
Bonjour,

J'essaie d'importer avec le code suivant plusieurs fichier *.bas dans
un nouveau classeur
et la j'ai une erreur sur le premier fichier du répertoire "Fichier
tutu.bas introuvable"
pourtant le fichier est bien présent.
Si je fais du pas à pas la variable NomFich contient bien "tutu.bas"

Une idée ? Merci.


Sub ImporterTousLesFichiersDunRépertoire() '"d'après" SilkyRoad
Dim NomFich
NomFich = Dir("D:\MesMacros\*.*")
Do While NomFich <> ""
Application.VBE.ActiveVBProject.VBComponents.Import (NomFich)
NomFich = Dir
Loop
End Sub
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Geo
Bonjour
Si je fais du pas à pas la variable NomFich contient bien "tutu.bas"

Sans le chemin ?
Dans ce cas l'import considère qu'il est dans le dossier courant.
Avatar
Brat'ac
Geo avait prétendu :
Bonjour
Si je fais du pas à pas la variable NomFich contient bien "tutu.bas"

Sans le chemin ?
Dans ce cas l'import considère qu'il est dans le dossier courant.

Le chemin est precisé ici NomFich = Dir("D:MesMacros*.*") c'est pas
suffisant ?
Avatar
Geo
Bonsoir
Le chemin est precisé ici NomFich = Dir("D:MesMacros*.*") c'est pas
suffisant ?

Je ne pense pas, mais je peux me tromper.
Application.VBE.ActiveVBProject.VBComponents.Import ("D:MesMacros" &
NomFich)
Vous verrez bien.