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

Bonjour,

J'aimerais via vba pouvoir copier un fichier nommé par exemple test_XX.xls

et le coller dans le même répertoire sous le nom test_01.xls

Voici mon code qui bien entendu ne fonctionne pas :

Sub Creerfeuille()

Dim objFSO, Repertoire, Fichier, Nomfichier As Object

    Repertoire = "D:\Test\"
    Nomfichier = "test_XX.xls"
        
    
Dim FSO As Scripting.FileSystemObject
Dim DossierSource As Scripting.Folder
Dim Fichier As Scripting.File

Set FSO = New Scripting.FileSystemObject
Set DossierSource = FSO.GetFolder(Repertoire)

    For Each Fichier In DossierSource.Files
        If Fichier.Name = Nomfichier Then ActiveWorkbook.SaveCopyAs (Repertoire + Nomfichier)
    Next Fichier
   

End Sub

Merci pour votre aide

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

Réponse 1 / 2

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

Bonjour,

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

Réponse 2 / 2

Thomus
28 juil. 2014 à 16:08

Merci beaucoup,

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

De rien.
A+

Discussions similaires

Dessiner avec son clavier et avec des lettres

comment donner les droits sur fichier partage

Discussions similaires

Newsletters