Erreur 53 - Fichier introuvable avec "Name as"

Bonjour le forum, et merci pour toute l'aide que vous m'avez déjà apporté via différents topics !

J'aurais besoin de votre aide aujourd'hui.

J'ai dans mon formulaire de BDD, une page (du multipages) qui permet de modifier les informations d'un objet. Pour cela j'ai réalisé une TextBox où l'on tape l'ID de l'objet et au clic du bouton rechercher, les différentes informations apparaissent dans des TextBox et Combobox prévu pour.

Chaque objet à sa photo pour bien l'identifier. Pour modifier la photo de l'objet, j'ai créé un bouton qui au clic, ouvre un explorateur de fichier, ce qui permet à l'utilisateur de choisir sa photo. Dès que l'utilisateur à choisi la photo adéquate, le code modifie son nom en fonction de ses informations (ID + Localisation) puis la place dans le fichier correspondant. Le chemin du fichier de la photo dans son dossier final apparaît ensuite dans une TextBox sur le formulaire.

Le code de ce bouton est bon car je l'utilise pour la création de la fiche de l'objet et tout fonctionne à merveille. Le problème vient du fait que je recherche les informations de l'objet et les insères dans les TextBox. En faisant des MsgBox, je m'aperçois que l'AncienNom et le NouveauNom sont correct ! Pourtant je reçois un message d'erreur 53 point la ligne "Name AncienNomDeux As NouveauNomDeux".

Code du bouton ouvrant l'explorateur de fichier

Private Sub CommandButton_Tof2_Click()

    'On désactive les messages d'alertes d'excel et on désactive le défilement des macros
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    Dim AncienNomDeux As Variant
    Dim NouveauNomDeux As Variant

    'Si la localisation ou l'ID de l'objet n'est pas indiqué, alors on indique un message
    If ComboBox_loc = "" Then

        MsgBox ("Vous devez renseigner la localisation de l'objet.")

    ElseIf TextBox_ID = "" Then

         MsgBox ("Vous devez renseigner l'ID de l'objet.")

    Else

        'On ouvre l'explorateur de fichiers et on met le lien du document choisi dans la Textbox_lienDoc
        Application.FileDialog(msoFileDialogFilePicker).Title = "Choisissez un fichier !"
        Application.FileDialog(msoFileDialogFilePicker).InitialFileName = "\XX\XX\XXX"
        Application.FileDialog(msoFileDialogFilePicker).AllowMultiSelect = False

        If Application.FileDialog(msoFileDialogFilePicker).Show = -1 Then

            AncienNomDeux = Application.FileDialog(msoFileDialogFilePicker).SelectedItems(1)
            NouveauNomDeux = "XX\XX\XXXX\" & ComboBox_loc & "\" & ComboBox_loc & "_" & TextBox_ID.Value & ".jpg"

            'Vérifie si le fichier à renommer existe.
            If Dir(AncienNomDeux) = "" Then Exit Sub
'            MsgBox (NouveauNomDeux & "    " & AncienNomDeux)

            'Renomme le fichier
            Name AncienNomDeux As NouveauNomDeux

            TextBox_LienPhoto2 = NouveauNomDeux

        End If

    End If

    'On met le focus sur le bouton valider
    CommandButton_sauvegarder.SetFocus

    'On désactive les messages d'alertes d'excel et on désactive le défilement des macros
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True

End Sub

Quel est mon soucis ?

Merci d'avance !

Bonjour,

Chez nous ce genre d'écriture pour l'adresse ne fonctionne pas :

"\\srvnom du serveur\data\11-M...…...\1-Partage\1-Qua..\4-METRO..\0-BDD....\1-PHOTOS\" & ComboBox_loc & "\" & ComboBox_loc & "_" & TextBox_ID.Value & ".jpg"

il faut créer une Lettre pour le raccourci serveur et ensuite utiliser la lettre pour indique le chemin.

(exemple raccourci créé serveur = lettre Z) alors

"Z:\data\11-...1-Partage\1-Qual....\4-METRO...\0-BDD...\1-PHOTOS\" & ComboBox_loc & "\" & ComboBox_loc & "_" & TextBox_ID.Value & ".jpg"

Bien entendu celà veut dire que tout le monde devra avoir la même lettre de raccourci pour ce serveur.

a voir avec administrateur réseau

Salut Xmenpl !

Alors je trouvais ça étrange car je faisais comme ça avant et ça fonctionnait niquel...

Je viens de re-tester et même sur mon bouton lors de la création de la fiche d'un objet, ça ne marche pas alors que ça marchait bien avant...

J'ai changé d'ordinateur mais je ne pense pas que ça soit le problème, le chemin est sur le réseau et donc le même...

Peut-être que l'administrateur réseau a changé quelque chose ou non, je verrai avec lui lundi !

Merci pour l'aide !

Bonsoir Baboutz, Xmenpl et le forum,

un essai à tester

Private Sub CommandButton_Tof2_Click()

    'On désactive les messages d'alertes d'excel et on désactive le défilement des macros
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    Dim AncienNomDeux As Variant
    Dim NouveauNomDeux As Variant

    'Si la localisation ou l'ID de l'objet n'est pas indiqué, alors on indique un message
    If ComboBox_loc = "" Then

        MsgBox ("Vous devez renseigner la localisation de l'objet.")

    ElseIf TextBox_ID = "" Then

         MsgBox ("Vous devez renseigner l'ID de l'objet.")

    Else

        'On ouvre l'explorateur de fichiers et on met le lien du document choisi dans la Textbox_lienDoc
        Application.FileDialog(msoFileDialogFilePicker).Title = "Choisissez un fichier !"
        Application.FileDialog(msoFileDialogFilePicker).InitialFileName = "\XX\XX\XXX"
        Application.FileDialog(msoFileDialogFilePicker).AllowMultiSelect = False

        If Application.FileDialog(msoFileDialogFilePicker).Show = -1 Then

            AncienNomDeux = Application.FileDialog(msoFileDialogFilePicker).SelectedItems(1)
            NouveauNomDeux = "XX\XX\XXXX" & "\" & ComboBox_loc & "\" & ComboBox_loc & "_" & TextBox_ID.Value & ".jpg"

            'Vérifie si le fichier à renommer existe.
            If Dir(AncienNomDeux) = "" Then Exit Sub
'            MsgBox (NouveauNomDeux & "    " & AncienNomDeux)

            'Renomme le fichier
            Name AncienNomDeux As NouveauNomDeux

            TextBox_LienPhoto2 = NouveauNomDeux

        End If

    End If

    'On met le focus sur le bouton valider
    CommandButton_sauvegarder.SetFocus

    'On désactive les messages d'alertes d'excel et on désactive le défilement des macros
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True

End Sub

Bonjour m3ellem1 !

Je ne vois malheureusement pas ta proposition ou modification...

Re,

donc ca n'a pas fonctionné

m3ellem1 a écrit :

Re,

donc ca n'a pas fonctionné

Enfin, je vois bien ton message sur le topic, mais je ne vois pas le code que tu as modifié !

tu vois pas ce code?

Private Sub CommandButton_Tof2_Click()

    'On désactive les messages d'alertes d'excel et on désactive le défilement des macros
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    Dim AncienNomDeux As Variant
    Dim NouveauNomDeux As Variant

    'Si la localisation ou l'ID de l'objet n'est pas indiqué, alors on indique un message
    If ComboBox_loc = "" Then

        MsgBox ("Vous devez renseigner la localisation de l'objet.")

    ElseIf TextBox_ID = "" Then

         MsgBox ("Vous devez renseigner l'ID de l'objet.")

    Else

        'On ouvre l'explorateur de fichiers et on met le lien du document choisi dans la Textbox_lienDoc
        Application.FileDialog(msoFileDialogFilePicker).Title = "Choisissez un fichier !"
        Application.FileDialog(msoFileDialogFilePicker).InitialFileName = "\XX\XX\XXX"
        Application.FileDialog(msoFileDialogFilePicker).AllowMultiSelect = False

        If Application.FileDialog(msoFileDialogFilePicker).Show = -1 Then

            AncienNomDeux = Application.FileDialog(msoFileDialogFilePicker).SelectedItems(1)
            NouveauNomDeux = "XX\XX\XXXX" & "\" & ComboBox_loc & "\" & ComboBox_loc & "_" & TextBox_ID.Value & ".jpg"

            'Vérifie si le fichier à renommer existe.
            If Dir(AncienNomDeux) = "" Then Exit Sub
'            MsgBox (NouveauNomDeux & "    " & AncienNomDeux)

            'Renomme le fichier
            Name AncienNomDeux As NouveauNomDeux

            TextBox_LienPhoto2 = NouveauNomDeux

        End If

    End If

    'On met le focus sur le bouton valider
    CommandButton_sauvegarder.SetFocus

    'On désactive les messages d'alertes d'excel et on désactive le défilement des macros
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True

End Sub

Je le vois bien, mais c'est exactement le même code que ce que j'ai mis dans mon poste initial, rien ne change...

Je n'arrive pas à voir la modification que tu as faites !

Désolé de m'être mal exprimé !

Après des heures de recherches, il s'avère que j'avais seulement un espace en trop dans une cellules.

Problème corrigé !