Discussion :

[ROSELIONE]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Jean-Philippe André]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

à transformer en

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ROSELIONE]

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

[Jean-Philippe André]

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

[Pierre Fauconnier]

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.

[ROSELIONE]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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