Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Erreur de compilation avec la formule Dir

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion PORCHER
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

PORCHER

XLDnaute Occasionnel
Bonjour à tous,
J'aurais besoin de vos lumières car je sèche !
J'ai dans cette macro une Erreur de compilation
Nombre d'arguments incorrect ou affectation de propriété incorrect avec la formule Dir
Voici la macros
VB: 
Private Sub Txt_photo_equipement_AfterUpdate()
Dim Chemin, NomFichier         As String
Dim W As Single, h        As Single
On Error GoTo Erreur
   'chemin = ThisWorkbook.Path & "\Images\"
   Chemin = "C:\Users\jyves\OneDrive\Documents\Inventaires\PhotoPieces\"
   NomFichier = Txt_photo_equipement.Value

If Dir(Chemin & NomFichier & ".jpg") = "" Then
      PhotoPieces.Picture = LoadPicture(Chemin & "inexistante.jpg")
Else
   PhotoPieces.Picture = LoadPicture(Chemin & choix & ".jpg")
   PhotoPieces.PictureSizeMode = fmPictureSizeModeZoom
   PhotoPieces.Object.BorderColor = RGB(179, 209, 202) 'rouge
   PhotoPieces.Object.BackColor = RGB(179, 209, 202) 'vert
    W = PhotoPieces.Width
    h = PhotoPieces.Height
        With UF_Pièces.PhotoPieces
            .Picture = PhotoPieces
            .Width = W / h * 234
            .Left = 228 - (.Width / 2)
        End With
End If
Erreur:
End Sub
Pourriez-vous m'aider
Merci infiniment pour votre gentillesse
Cordialement
 
Trier par date Trier par votes
Bonsoir Porcher,
Sous XL2007 VBA 6.3, j'ai testé avec chemin correct ou non, nom de fichier correct ou non, et la ligne DIR passe correctement :



Ca coince sur PhotoPieces.Picture mais c'est normal c'est une fonction que je ne connais pas.

Coté référence j'ai ça :

Donc votre souci vient peut être d'autre part.
 
Dernière édition:
Vote positif 0 Vote négatif
Bonsoir,
Peut-être que cela vient de la récupération du nom du fichier 🤔
VB: 
NomFichier = Txt_photo_equipement.Value

Sinon essayez de passer par des "Debug.Print" et par une variable pour le Dir() pour voir ce que ça donne
Code: 
Debug.Print Chemin & NomFichier & ".jpg"
sTmp = Dir(Chemin & NomFichier & ".jpg")
Debug.Print sTmp

A+
 
Vote positif 0 Vote négatif
bonsoir
il sera peut être nécessaire d'utiliser le chemin onedrive plutot que le chemin du dossier synchro
sinon avec un peu de chance il s'agit de cette cochonnerie d'UAC due a une mise ajour recente (même win 10 en prolongation l'a pris en pleine poire)qui te masque l'accès au fichier avec un dir classique
et donc if Dir(Chemin & NomFichier & ".jpg", vbNormal Or vbSystem)

Patrick
 
Vote positif 0 Vote négatif
Hello,

PORCHER à dit:
J'ai dans cette macro une Erreur de compilation
Nombre d'arguments incorrect ou affectation de propriété incorrect avec la formule Dir
Cliquez pour agrandir...
Es-tu certain que c'est sur l'instruction VBA (et non la "formule") "Dir" que le compilateur plante ?

Dans ton chemin je vois un dossier nommé "OneDrive"... L'image est-elle vraiment stockée sur OneDrive ?


Est-ce normal d'avoir la variable "Choix" plutôt que "NomFichier" pour l'affectation de l'image au cadre d'image ?
Chez moi, en mettant simplement "NomFichier" à la place de "Choix", l'image se charge correctement.


Je n'ai pas compris cette partie de ton code VBA :
Enrichi (BBcode): 
        With UF_Pièces.PhotoPieces
            .Picture = PhotoPieces
            .Width = W / h * 234
            .Left = 228 - (.Width / 2)
        End With
Pourquoi réaffecter une image au cadre d'image alors que tu viens de le faire quelques lignes au-dessus ?
Et la ligne me semble erronée.


[edit]
Je précise que chez moi (j'ai utilisé un chemin local et non OneDrive), il n'y a aucun problème de compilation avec ce code :
VB: 
Private Sub Txt_photo_equipement_AfterUpdate()
'
Dim Chemin$, NomFichier$
Dim W As Single, h As Single

    On Error GoTo Erreur

   Chemin = ThisWorkbook.Path & "\"
'    Chemin = "C:\Users\jyves\OneDrive\Documents\Inventaires\PhotoPieces\"
    NomFichier = Txt_photo_equipement.Value

    If Dir(Chemin & NomFichier & ".jpg") = "" Then
        PhotoPieces.Picture = LoadPicture(Chemin & "inexistante.jpg")
    Else
        PhotoPieces.Picture = LoadPicture(Chemin & NomFichier & ".jpg")
        PhotoPieces.PictureSizeMode = fmPictureSizeModeZoom
        PhotoPieces.Object.BorderColor = RGB(179, 209, 202) ' Rouge
        PhotoPieces.Object.BackColor = RGB(179, 209, 202)   ' Vert
        W = PhotoPieces.Width
        h = PhotoPieces.Height
        With UF_Pièces.PhotoPieces
            .Picture = PhotoPieces
            .Width = W / h * 234
            .Left = 228 - (.Width / 2)
        End With
    End If

Erreur:

End Sub
Par contre, ça plante sur la ligne ".Picture = PhotoPieces".
[/edit]
 
Dernière édition:
Vote positif 0 Vote négatif
Merci à vous tous de m'avoir aidé dans ce problème
J'ai changer la destination en retirant OneDrive et ensuite vous avez certainement remarqué
que l'image est nommée -PhotoPieces- et la Destination le même nom identique
Je crois que le Nombre d'arguments incorrect était ces doublons et après essai cela fonctionne.
Merci à vous tous
Très cordialement
 
Vote positif 0 Vote négatif
Salut PatrickToulon,
non tu ne m'offenses pas, je voulais seulement présenter une possibilité qui n'est presque jamais utilisée car trop compliqué à mettre en oeuvre mais qui offre plus de possibilités et est plus moderne que les formulaires VBA. Ce n'était qu'à titre d'information.
Nullosse
 
Vote positif 0 Vote négatif
ben fait une source moi çà m’intéresse
bien que j'ai créé déjà un outils similaire sans vsto en pur vba
au plaisir de te lire dans les ressources
ca apporterait et monterait le niveau d'un cran
juste pour demo de ce que j'ai deja fait
Pour afficher ce contenu, nous aurons besoin de votre consentement pour définir des cookies tiers.
Pour plus d'informations, consultez notre page sur les cookies.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Erreur d'exécution 5 argument ou appel de procédure incorrect avec ActiveSheet.ChartObjects.Add()
Réponses
12
Affichages
969
pmfontaine
F
  • Question Question
Microsoft 365 Poursuivre ou pas la macro
Réponses
2
Affichages
589
Francky79
F
  • Résolu(e)
XL 2019 erreur avec loop de formule vba
Réponses
5
Affichages
854
TooFatBoy
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
P
  • Résolu(e)
Microsoft 365 Erreur d'exécution "9" :L'indice n'appartient pas à la sélection
Réponses
9
Affichages
2 K
pelerin65
P
V
  • Question Question
XL 2019 Erreur de compilation end if sans bloc if
Réponses
3
Affichages
2 K
Vivien samba
V
H
  • Question Question
XL 2013 Réouvert - Aide - Macro compilation de fichier
2
Réponses
24
Affichages
3 K
sylvanu
U
  • Question Question
XL 2016 Erreur de compilation
Réponses
5
Affichages
2 K
Hasco
B
  • Question Question
XL 2010 Erreur 1004 : Impossible de lire la propriété Insert de la classe Pictures
2
Réponses
15
Affichages
6 K
isramail
I
B
  • Question Question
XL 2013 [RESOLU] Erreur de compilation End with sans with
Réponses
5
Affichages
3 K
BENAM69
B
A
  • Question Question
La méthode select de la classe range a échoué
Réponses
1
Affichages
2 K
Staple1600
M
  • Question Question
Macro pour envoyer mail à partir de outlook
Réponses
12
Affichages
2 K
matthieu2701
M
W
  • Question Question
Erreur de compilation - variable non définie - PivotTable
Réponses
2
Affichages
1 K
camarchepas
B
  • Question Question
Macro Sauvegarde de données dans un fichier Excel : Problème de compilation
Réponses
3
Affichages
2 K
Banshor
B
B
  • Question Question
Définition varible dans un TreeView
Réponses
1
Affichages
1 K
gosselien
D
  • Question Question
Erreur de compilation dans le module caché de l'userform 7
Réponses
7
Affichages
6 K
davidp
D
P
  • Question Question
Erreur runtime N°5 avec la fonction DIR
Réponses
4
Affichages
2 K
popov
P
M
  • Question Question
macro avec IF
Réponses
0
Affichages
1 K
matthieu2701
M
W
  • Question Question
Erreur de compilation sur FormulaLocal en VBA
Réponses
3
Affichages
2 K
Webperegrino
W
  • Question Question
erreur de compilation vba
Réponses
5
Affichages
1 K
superbog
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…