XL 2019 Scripting.FileSystemObject

[MarcDJ]

Bonjour,

Voici un code simple, c'est un exemple, il est là en démonstration

Sub RenommerUnFichier()

'renommer un fichier
Dim AncienNom As String
Dim NouveauNom As String

MonDossier = "C:\Test\"

AncienNom = MonDossier & "MonFichier.txt"
NouveauNom = MonDossier & "MonFichier2.txt"

Name AncienNom As NouveauNom

End Sub

Ma question est simple pourquoi dans d'autres codes, suis-je obligé de déclaré Scripting.FileSystemObject
pour le même résultat.

Merci pour vos réflexions.

 

[patricktoulon]

Bonsoir
par ce que l'object filesytemObject est issue d'une librairie externe a office
vba comme vb bénéficie des com qui permettent de les utiliser

Name As par contre fait partie des fonctions intégrées dans vba

 

[MJ13]

Bonjour MarcDJ, Patrick

Sinon ces petits codes permettent de renommer, déplacer, ou copier des fichiers

Sub Renomme_Déplace_Fichier()
'Les dossiers doivent avoir été créer
OldName = "C:\Temp\DirAll.bat": NewName = "C:\Temp2\DirAll2.bat"
Name OldName As NewName    ' Déplace et renomme le fichier.
End Sub

Sub Copie_Fichier()
OldName = "C:\Temp2\DirAll2.bat": NewName = "C:\Temp\DirAll.bat"
FileCopy OldName, NewName     ' Copy le fichier.
Shell ("explorer.exe C:\Temp\"), vbMaximizedFocus
End Sub

 

[patricktoulon]

Bonjour @MJ13
là encore FileCopy est une fonction intégrée a vba

 

[MJ13]

Tout à fait Patrick.

Il suffit de faire une petite recherche sur le net pour les trouver, enfin, c'est ce que je fais.

Exemple: le premier que j'ai trouvé avec "excel vba copie fichier":

Manipulation basique des Fichiers en VBA (copie, suppression,...)

Tutoriel sur la manipulation des fichiers en VBA: comment copier, renommer, déplacer ou supprimer les fichiers dans vos applications Excel...

excel-malin.com

 

[MarcDJ]

Bonjour patricktoulon et MJ13,

Merci pour vos réflexions.

Alors qu'est ce qui est mieux, le codage avec FilesytemObject qui me renvoie un code plus flou pour ma compréhension et la création de code moins aisée ou le codage sans FilesytemObject qui lui me renvoie un code plus basée sur le "MsDos", que je connais relativement bien, vu mon âge et qui me semble plus clair à tous points de vue.

 

[MarcDJ]

Re MJ13,

Si vous saviez sur combien de sites, je suis, pour essayer de coder, notamment votre site Excel-Malin, Developper.com, le site de Microsoft que je m'y perd de plus en plus.
Des sites où Debug.Print ne fonctionne plus sous Excel 2019.
Je ne sais plus quoi faire parce que je n'avance pas sur un projet Photo.
Je n'ai pas de ligne à suivre constante.

 

[patricktoulon]

Bonjour @MarcDJ
il n'y a pas de mieux ou moins bien c'est le besoins qui décide
si tu a juste besoins de copier ou renommer il n'est pas nécessaire d'aller chercher l'artillerie lourde
maintenant si tu a besoins de plus l'object filesystemobject possède des properties et fonctions que vba n'a pas
voila c'est tout simple c'est (juste le besoins )

 

[dysorthographie]

Bonjour,
Les fonctions native de VBA sont les plus proches des commande dos!

FilesytemObject est plus maléable mais demande une mise en œuvre plus concequante !

Recherche & référence - FS0(S)

Tout ce que vous vouliez savoir sur FSOsans avoir osé le demander! 'Permet de vérifier si le répertoire dont le nom est précisé en paramêtre (Repertoires) existe. Retourne True s'il existe, sinon False Public Function Repertoires_Existe(Repertoires) Dim FSO Set FSO =...

www.excel-downloads.com

 

[MarcDJ]

Re, patricktoulon,
voilà cette réponse me convient parfaitement, donc pour avancer le projet je commence à coder plus simplement pour arriver à exploiter un objet comme FilesytemObject plus tard en me perfectionnant.

Bonjour dysorthographie,
je dois reconnaître que votre code est très clair, avec les multiples explications dans le codage et ne me paraît pas vraiment plus rébarbatif que le codage simple mais comme vous dites demande une mise en œuvre plus rigoureuse, mais je dois encore y arriver.

Merci à tous les deux pour votre aide.