Err d'exécution '1004': Erreur définie par l'application ou par l'objet
Bonjour la communauté :
J'ai le message d'erreur, que je met en titre, quand je lance une macro et c'est le morceau de code ci-dessous qui est surligné :
Dim ExtFichier As String
ExtFichier = UCase(Trim(ThisWorkbook.Sheets("Feuil1").Range("Extension").Text))Est-ce que vous savez comment je pourrais corriger ce code pour ne plus avoir d'erreur
Bonjour Juice, bonjour le forum,
Vérifie que la plage nommée Extension existe bien !...
Bonjour,
On ne peut pas te dire si le plat est mangeable si on ne voit pas la DLC inscrite sur l'emballage !
La ton maquereau, il ressemble furieusement à un résidu de poubelle...
Pourquoi joindre un fichier :
Sur la charte du Forum
https://forum.excel-pratique.com/annonce ... r-t13.html
Point 6 : • Pensez à joindre un fichier pour faciliter la compréhension du problème et augmenter les chances de vous faire aider (taille limite : 300ko, n'hésitez pas à compresser vos fichiers).
Pour joindre un fichier :
http://www.youtube.com/watch?v=EbNYLzTz5wM]Comment Joindre Un Fichier
Cordialement
ThauTheme :
Bonjour Juice, le forum,
Au cas où Extension est ni une plage nommée, ni une chaîne de caractères, mais une variable de type Range :
Sub Essai()
Dim Extension As Range, ExtFichier As String
Set Extension = Range("B5") ' à adapter ; ça doit être la cellule où y'a l'extension
ExtFichier = UCase$(Trim$(ThisWorkbook.Worksheets("Feuil1").Extension.Text))
End Subdhany
Bonjour,
Rien n'empêche ton code de fonctionner, à la condition que ton classeur dispose d'une feuille nommée "Feuil1", que sur cette feuille tu aies nommée une plage "Extension", que cette plage soit limitée à une seule cellule !
Et dans ce cas, ta ligne de code devrait d'ailleurs s'écrire :
ExtFichier = UCase(Trim(Range("Extension").Text))une fois expurgée de ses éléments inutiles.
Et c'est à toi de vérifier cela !
Cordialement.
Bonsoir MFerrand,
Tu as oublié deux ou trois conditions : il faut aussi qu'Excel soit ouvert, que le PC soit allumé, que l'utilisateur soit devant son écran, car si délit il y a, ce sera impossible de l'appréhender !!!
dhany
Comment ! Il n'est pas attaché à l'écran, lequel reste en permanence allumé...
Bonjour Messieurs, le Forum,
Bonjour Juice, bonjour le forum,
Vérifie que la plage nommée Extension existe bien !...
Bonjour Juice, le forum,
Au cas où Extension est ni une plage nommée, [...]
Rien n'empêche ton code de fonctionner, à la condition que ton classeur dispose d'une feuille nommée "Feuil1", que sur cette feuille tu aies nommée une plage "Extension", que cette plage soit limitée à une seule cellule !
Bien vue! En regardant sur le fichier original il y a bien une cellule qui se nomme "Extension" et qui est nécessaire pour que la macro tourne!
En renommant la même cellule ainsi, la macro fonctionne à nouveau
Merci à tous pour votre retour rapide!
Voilà qui est donc résolu !