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

J

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: 28
Solution
fanch55
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
Trier par date Trier par votes

Discussions similaires

D
  • Question
XL 2021 VBA - Erreur 1004 aléatoire - Image/Logo
Réponses
10
Affichages
359
crocrocro
C
V
  • Résolu(e)
XL 2016 Exportation au format PDF à l'aide d'une macro : erreur 1004 'Document non enregistré'
Réponses
14
Affichages
522
Phil69970
Phil69970
J
  • Question
XL 2016 Problème de formulaire, checkbox dynamiques
Réponses
12
Affichages
280
Jingxi
J
A
  • Question
XL 2019 Code VBA qui ne fonctionne plus du jour au lendemain.
Réponses
4
Affichages
309
arla
A
S
  • Question
XL pour MAC Tableau de gestion de production et de stock
Réponses
14
Affichages
663
ScamPs
S
A
  • Résolu(e)
XL 2019 Problème de clic dans ListBox
Réponses
12
Affichages
300
Dudu2
Dudu2
R
  • Question
XL 2021 Erreur d'exécution '-2147417848 (80010108). La méthode '-Default' de l'objet 'Range' a échoué après quelques saisies d'enregistrement
2
Réponses
23
Affichages
1 K
Rv_38
R
M
  • Question
XL 2016 Erreur d'execution '52': Nom ou numéro de fichier incorrect
Réponses
4
Affichages
546
macseb
M
Raphael-57
  • Question
XL 2016 Problème de valeur avec une formule de date
Réponses
3
Affichages
395
Hasco
Hasco
Bernard38
  • Question
Microsoft 365 Exécution VBA : "Erreur 7: dépassement de capacité de la mémoire"
2
Réponses
16
Affichages
1 K
job75
job75

Membres actuellement en ligne

17 membres et 141 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 211
Messages
2 086 292
Membres
103 171
dernier inscrit
clemm