Erreur Nom ou numéro de fichier incorrect
Résolu/Fermé
siamens_duj
Messages postés
191
Date d'inscription
vendredi 20 juin 2014
Statut
Membre
Dernière intervention
14 février 2019
-
Modifié par siamens_duj le 31/05/2016 à 09:31
siamens_duj Messages postés 191 Date d'inscription vendredi 20 juin 2014 Statut Membre Dernière intervention 14 février 2019 - 31 mai 2016 à 13:29
siamens_duj Messages postés 191 Date d'inscription vendredi 20 juin 2014 Statut Membre Dernière intervention 14 février 2019 - 31 mai 2016 à 13:29
A voir également:
- Nom ou numéro de fichier incorrect vba
- Nom de l'adresse ✓ - Forum Internet / Réseaux sociaux
- Fichier rar - Guide
- Annuaire portable gratuit a partir d'un nom ✓ - Forum Mobile
- Trouver un numéro de portable avec un nom ✓ - Forum Mobile
- Fichier host - Guide
1 réponse
Bonjour Siamens_duj,
Ton code contient :
«
CheminFeuille = "https://etc .../"
CheminFeuille = Replace(Replace(CheminFeuille, "https:", ""), "/", "\")
»
Après tes 2 lignes de code ci-dessus, on a : CheminFeuille = "\\etc ...\"
Si tu remplaces la 2ème ligne par :
CheminFeuille = Replace(Replace(CheminFeuille, "https://", "\"), "/", "\")
Tu auras dans CheminFeuille : "\etc ...\" sans "\\" devant,
et ton erreur "Nom ou numéro de fichier incorrect" devrait
disparaître ; c'était dû au Path qui commençait par "\\".
-------------------------------------------
Si ça ne marche pas, essaye avec :
CheminFeuille = Replace(Replace(CheminFeuille, "https://", ""), "/", "\")
Tu auras dans CheminFeuille : "etc ...\" (aucun "\" devant)
-------------------------------------------
Peut-être faudra-t-il encore adapter pour avoir le bon chemin
qui correspond à celui se trouvant sur ton disque dur C: ?
Si oui, je suis sûr que tu pourras y arriver par toi-même.
Cordialement. 😊
Ton code contient :
«
CheminFeuille = "https://etc .../"
CheminFeuille = Replace(Replace(CheminFeuille, "https:", ""), "/", "\")
»
Après tes 2 lignes de code ci-dessus, on a : CheminFeuille = "\\etc ...\"
Si tu remplaces la 2ème ligne par :
CheminFeuille = Replace(Replace(CheminFeuille, "https://", "\"), "/", "\")
Tu auras dans CheminFeuille : "\etc ...\" sans "\\" devant,
et ton erreur "Nom ou numéro de fichier incorrect" devrait
disparaître ; c'était dû au Path qui commençait par "\\".
-------------------------------------------
Si ça ne marche pas, essaye avec :
CheminFeuille = Replace(Replace(CheminFeuille, "https://", ""), "/", "\")
Tu auras dans CheminFeuille : "etc ...\" (aucun "\" devant)
-------------------------------------------
Peut-être faudra-t-il encore adapter pour avoir le bon chemin
qui correspond à celui se trouvant sur ton disque dur C: ?
Si oui, je suis sûr que tu pourras y arriver par toi-même.
Cordialement. 😊
31 mai 2016 à 12:26
J'ai fais ce que vous m'avez conseillé. Je n ai plus l'erreur cependant rien ne se copie ...
Le chemin est bon, c est un chemin sharepoint, pas un chemin sur mon disque ..
Merci pour votre aide.
31 mai 2016 à 12:38
Modifié par albkan le 31/05/2016 à 13:28
d'un répertoire donné (en mettant aussi leurs dates). Je l'ai mis tel que ; à toi
de le comprendre sachant que le résultat est en Feuil2 et qu'il y a sur Feuil1 :
En C6 le chemin complet du répertoire sur disque dur, tel que :
C:\Users\albkan\AppData\Roaming\Microsoft\Modèles
ou :
C:\Users\albkan\Documents\Compta
Sub Directory() On Error GoTo ErrFolder Const NomMacro As String * 9 = "Directory" Worksheets(1).Select If IsEmpty([C6]) Then MsgBox "C:\DossierX manquant... ", 48, "Quel dossier ?": Exit Sub Dim DirX As Object, FileX As Object, ListFiles As Object, nb As Long, i As Long Set DirX = CreateObject("Scripting.FileSystemObject").GetFolder([C6]) Set ListFiles = DirX.Files: With Worksheets(2): .Select: .Unprotect: .Cells.ClearContents: End With [B2] = Worksheets(1).[C6] With [B4] For Each FileX In ListFiles .Offset(i) = Format(FileX.DateLastModified, "dd/MM/yyyy hh:mm") .Offset(i, 1) = FileX.Name: nb = nb + 1: i = i + 1: If nb Mod 4 = 0 Then i = i + 1 Next FileX .Offset(i + 1, 1) = "Total : " & nb & " fichiers" End With ActiveSheet.Protect: Exit Sub ErrFolder: MsgBox "Le dossier indiqué en C6 n'existe pas : " & vbLf & [C6] & " ", 48, "Macro " & NomMacro End SubRegarde bien la ligne Set ListFiles = DirX.Files car ensuite, c'est l'instruction
For Each FileX In ListFiles qui parcourt tous les fichiers du répertoire.
Dans ton cas, C6 doit être remplacé par le nom du répertoire Sharepoint,
et ça devrait marcher. Tiens-moi au courant. A+ 😊
31 mai 2016 à 13:29
Merci pour votre aide ;)