XL 2019 Scripting.FileSystemObject

patricktoulon

XLDnaute Barbatruc

• 12 Juin 2021

• #2

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

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 13 Juin 2021

• #3

Bonjour MarcDJ, Patrick

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

VB:

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 13 Juin 2021

• #4

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

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 13 Juin 2021

• #5

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

 

Vote positif 0 Vote négatif

MarcDJ

XLDnaute Junior

• 13 Juin 2021

• #6

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.

 

Vote positif 0 Vote négatif

MarcDJ

XLDnaute Junior

• 13 Juin 2021

• #7

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.

 

Dernière modification par un modérateur: 13 Juin 2021

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 13 Juin 2021

• #8

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 )

 

Vote positif 0 Vote négatif

dysorthographie

XLDnaute Accro

• 13 Juin 2021

• #9

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

 

Vote positif 0 Vote négatif

MarcDJ

XLDnaute Junior

• 13 Juin 2021

• #10

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.

 

Vote positif 0 Vote négatif