Copier coller d'un fichier excel dans un répertoire
Résolu/Fermé
Thomus
-
24 juil. 2014 à 13:22
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 28 juil. 2014 à 16:11
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 28 juil. 2014 à 16:11
A voir également:
- Copier coller d'un fichier excel dans un répertoire
- Fichier rar - Guide
- Comment réduire la taille d'un fichier - Guide
- Liste déroulante excel - Guide
- Comment ouvrir un fichier epub ? - Guide
- Fichier host - Guide
2 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 743
24 juil. 2014 à 14:04
24 juil. 2014 à 14:04
Bonjour,
Pour UN SEUL fichier :
Pour UN SEUL fichier :
'*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*- '* '* Références - Editeur VBE : « Microsoft Scripting Runtime » '* Cette procédure utilise une librairie d'objets qui, par défaut, '* n'est pas incluse dans l'éditeur VBE. '* Il faut donc ajouter une référence à cette libraire: '* '* Dans VBE : (pour y accéder, depuis une feuille '* de votre classeur Excel, tapez simultanément ALT+F11) '* - Menu: Outils '* - Choix: Références '* - Cochez : « Microsoft Scripting Runtime » '* '*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*- Sub DeplaceFichiersXls() Dim oFSO As Scripting.FileSystemObject Dim source As String, destin As String, NomFichierInitial As String, NomFichierFinal As String '---------------------------------------------------A ADAPTER---------------------------- Set oFSO = New Scripting.FileSystemObject source = "C:\Users\moi.meme\Desktop\" NomFichierInitial = "Test.xls" destin = "F:\Mes documents\TRAVAIL\TEST\" NomFichierFinal = "Test_01.xls" '--------------------------------------------------------------------------------------------- If oFSO.FileExists(source & NomFichierInitial) Then oFSO.MoveFile source & NomFichierInitial, destin & NomFichierFinal End If End Sub
Merci beaucoup,
Cela fonctionne ;)
Cela fonctionne ;)
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 743
28 juil. 2014 à 16:11
28 juil. 2014 à 16:11
De rien.
A+
A+