Debug.Print dans les classes de VBA

Bonjour, S'Il vouz plait, est ce vous m'aider en ce qui concerne l'instruction debug.print fil.name et l'instruction fil.copy qui bloquent la suite de l'exécution
de mon programme relatif a la classe fileSystemObject, à ce que le problème est au niveau de la syntaxe car le message d'erreur m'indique une erreur de compilation
:membre de mtohde ou données introuvables.Veuillez trouver le programme en dessous et en pièce jointe:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub UsingFileSystemObject1() Dim fso As Scripting.FileSystemObject Dim NewPath As String Dim FolderPath As String Dim Fil As Scripting.File   FolderPath = "D:\Dossiers" NewPath = "D:\Fichiers" Set fso = New Scripting.FileSystemObject   If Not fso.FolderExists(NewPath) Then fso.CreateFolder NewPath End If   If fso.FileExists(FolderPath & "\ Article sans code 2020.xlsx") Then Set Fil = fso.GetFile(FolderPath & "\ Article sans code 2020.xlsx") Debug.Print Fil.Name, Fil.Path, Fil.DateCreated, Fil.Size, Fil.Type Fil.copy NewPath&"\Article sans code 2020.xlsx") End If End Sub

---

Salut,
tu as des espaces qui se baladent en trop dans tes lignes de code, avant le nom du fichier par exemple.

De la même façon, tu as une parenthèse fermante dans ta ligne, en plus d'oublier d'espacer NewPath et le symbole &

Code:

---

Fil.copy NewPath&"\Article sans code 2020.xlsx")

---

à transformer en

Code:

---

Fil.copy NewPath & "\Article sans code 2020.xlsx"

---

Commençons donc avec un code qui est correctement rédigé, on élimine une partie des soucis

JE VOUS REMERCIE MONSIEUR POUR LA REPONSE, mais je n'arrive pas à régler le problème, même en corrigeant la syntaxe, est ce que
vous pouvez me corriger le programme sur le fichier Excel qui est en pièce jointe. Vous remerciant d'avance

Bonjour,

je ne peux pas télécharger ton fichier (sécurité d'entreprise), aussi je te suggère de nous montrer ton code corrigé et de nous dire quelle ligne est en erreur, et quelle est cette erreur :)

Salut.

Le code que tu illustres n'est pas celui de ton fichier (il manque la ligne fil.Copy... dans le fichier ^^). A partir de ce constat et sans précisions sur la ligne qui pose problème, le code exact utilisé et le message d'erreur rencontré, il sera malaisé de t'aider.

Si ton code ne doit réaliser que cette copie de fichier, c'est un peu le bazooka pour tuer une mouche, un simple Filecopy Source, destination étant amplement suffisant, en plus des vérifications d'usage sur l'existence de source et de destination.

Bonjour l'équipe,
Vous avez raison Monsieur pierre FAUCONNIER,c'est un peu le bazooka pour tuer une mouche, un simple file copy source, destination
suffit, et j' ai corrigé mon code et ça marche,dont je vous soumets mon petit programme corrigé comme ci dessous et je vous remercie:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Sub UsingFileSystemObject2() Dim fso As Scripting.FileSystemObject Dim NewPath As String Dim FolderPath As Folder Dim Fil As File Dim x As String Dim source As String Dim destinationFolder As String destinationFolder = ("c:\Fichiers")   NewPath = "c:\Fichiers" Set fso = New Scripting.FileSystemObject If Not fso.FolderExists(NewPath) Then fso.CreateFolder NewPath End If If fso.FolderExists("c:\Mes dossiers") Then Set FolderPath = fso.GetFolder("c:\Mes dossiers") End If   For Each Fil In FolderPath.Files Debug.Print Fil.Name, Fil.Type fso.CopyFile source:=fso.GetFile(Fil), _ Destination:=destinationFolder & "\" & Fil.Name, Overwritefiles:=False Next Fil End Sub

---