XL 2016 Erreur d'éxécuriton 1004 et problème d'enregistrement de fichier

  • Initiateur de la discussion Initiateur de la discussion JPrev
  • 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 !

JPrev

XLDnaute Junior
Bonjour les forumers,

J'ai besoin d'une petite aide pour un fichier que j'ai créé et que je souhaite partager entre une bonne quantité d'utilisateurs.

J'ai programmé une macro qui fait une copie d'un formulaire rempli par l'utilisateur pour l'enregistrer avec des variables. Jusque-là, sur mon PC, tout va bien, ça marche parfaitement.

Le problème : Sur n'importe quel autre PC, j'ai le message d'erreur (voir PJ).

Que dois-je faire pour solutionner le problème?

Merci sincèrement pour vos retours 🙂.
JPrev
 

Pièces jointes

  • Erreur NMSD.png
    Erreur NMSD.png
    201.8 KB · Affichages: 32
Solution
Salut à tous, à tester :
VB:
Public Sub Test()
'    [C1] = SearchforDrive([B1].Text)
'    Columns.AutoFit

    MsgBox SearchforDrive("dossier\sousdossier\fichier.zzz")
    
End Sub
Public Function SearchforDrive(File As String) As String
Set Fso = CreateObject("Scripting.FileSystemObject")

    For Each Drv In Fso.Drives
        Select Case True
        Case Not Drv.isready: DoEvents
        Case Fso.FileExists(Drv.rootfolder & File)
            SearchforDrive = Drv.rootfolder & File
            Exit For
        End Select
    Next
    
Set Fso = Nothing
End Function
- 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

Retour