Salut,
J'ai 2 fichier identique :
- L'un provient de mon vrai fichier (j'ai enlever tout à part le code qui pose problème)
- L'autre est un fichier vierge identique au premier...
Mon problème est que le code qui provient de mon vrai fichier ne fonctionne pas et sur l'autre ça fonctionne??!!?!?!
Sub get_drawing_number()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("DRAWING NUMBER")
sh.Range("R1").Value = Workbooks(ActiveWorkbook.name).path & "\0-DESSINS\Dernière révision\PDF"
Dim fso As New FileSystemObject
Dim fo As Folder
Dim f As File
Set fo = fso.GetFolder(sh.Range("R1").Value)
Dim last_raw As Integer
For Each f In fo.Files
last_raw = sh.Range("S" & Application.Rows.Count).End(xlUp).Row + 1
sh.Range("S" & last_raw).Value = f.name
Next
End Sub
Quelqu'un peut m'aider svp?
Merci d'avance.
En pièce jointe les 2 fichiers excel ainsi que les dossier et fichiers texte bidon.
Edit: "L'erreur d'éxecution 13 -> incompatibilité de type" me renvoie à cette ligne ->
Set fo = fso.GetFolder(sh.Range("R1").Value)
Je précise aussi que j'ai fait des test dans les mêmes emplacement (desktop et serveur)