Erreur dans rep = Application.GetOpenFilename("*.*")
Résolu
Licorne rose
Messages postés
997
Date d'inscription
Statut
Membre
Dernière intervention
-
Licorne rose Messages postés 997 Date d'inscription Statut Membre Dernière intervention -
Licorne rose Messages postés 997 Date d'inscription Statut Membre Dernière intervention -
Bonsoir,
Dans une macro j'écris
rep = Application.GetOpenFilename("*.*")
le compilateur ne dit rien mais quand je lance la macro j'ai le message :
"Bonjour, Nous n'avons pas pu effectuer cette action pour la plage de cellules spécifiée. Veuillez sélectionner une seule cellule d'une plage de données puis réessayez."
À tout hasard je vous mets le source entier de ma macro qui a pour but de lister les fichiers d'un dossier :
Sub Lister()
repertoire = Application.GetOpenFilename("*.*")
i = 2
nf = Dir(repertoire & "\*.*" ) ' premier fichier
Do While nf <> ""
Cells(i, 1) = nf
nf = Dir ' suivant
i = i + 1
Loop
End Sub
Quelqu'un voit-il ce qui cloche, merci ?
Dans une macro j'écris
rep = Application.GetOpenFilename("*.*")
le compilateur ne dit rien mais quand je lance la macro j'ai le message :
"Bonjour, Nous n'avons pas pu effectuer cette action pour la plage de cellules spécifiée. Veuillez sélectionner une seule cellule d'une plage de données puis réessayez."
À tout hasard je vous mets le source entier de ma macro qui a pour but de lister les fichiers d'un dossier :
Sub Lister()
repertoire = Application.GetOpenFilename("*.*")
i = 2
nf = Dir(repertoire & "\*.*" ) ' premier fichier
Do While nf <> ""
Cells(i, 1) = nf
nf = Dir ' suivant
i = i + 1
Loop
End Sub
Quelqu'un voit-il ce qui cloche, merci ?
4 réponses
Salut le Forum
La syntaxe :
Mytå
Merci de donner suite à votre question, nous ne sommes pas des robots...
« Si le déboguage est l'art d'enlever les bogues, alors la programmation doit être l'art de les créer. »
La syntaxe :
repertoire = Application.GetOpenFilename("Tout les fichiers (*.*) , *.*")
ou
repertoire = Application.GetOpenFilename
Mytå
Merci de donner suite à votre question, nous ne sommes pas des robots...
« Si le déboguage est l'art d'enlever les bogues, alors la programmation doit être l'art de les créer. »
Merci Mytå pour ton aide mais j'ai exactement le même message d'erreur qu'avant, en utilisant l'une ou l'autre de tes suggestions.
Peut-être que je n'écris pas la macro au bon endroit, ou ?
Peut-être que je n'écris pas la macro au bon endroit, ou ?