Discussion :

[Benjycool]

Bonjour,

Je voudrais faire un espèce de menu ou il y aurai un bouton qui copirais tous les fichiers excel d'un dossier vers un autre en changeant le nom des fichiers.

C'est-a-dire, j'ai dans un dossier G:\Cours\Stage\fichier\ 6 fichiers excel (classeur1 2008, classeur2 2008, ..., classeur6 2008).

Je voudrais avec un bouton qui se trouve sur un autre fichier excel peu importe ou copier tout les fichiers dans G:\Cours\Stage\Archive\ sans les modifiers.

Et ceux de G:\Cours\Stage\fichier\ les renommers avec 2009 au lieu de 2008.


Je pensai boucler sur les fichiers dont on ne connais pas le nombre pour les copiers vers l'autre dossier puis reboucler pour les renommers.

Savez vous comment faire sa ??

Merci de bien vouloir m'aider.

Benjycool

[Godzestla]

Bonjour,

tu utilise DIR (regarde dans l'aide) et tu boucles tant qu'il y en a.

Tu utilises Name pour renommer et/ou déplacer.

[Benjycool]

Dans quelle aide ??? Je ne trouve pas ??

Tu ne connais pas la syntaxe ???

Benjycool

[Godzestla]

Dans quelle aide ??? Je ne trouve pas ??

Tu ne connais pas la syntaxe ???

Benjycool

Mais mais mais.

Tu vas dans VBA, tu tapes DIR (par exemple), tu marques DIR (par exemple) et tu fais <F1> et hop............. le miracle.

[Benjycool]

Mdr dsl,
mais je suis au boulot la (en stage) et il me dit que la fonctionnalité n'est pas installer, comment je fais ??

[ouskel'n'or]

N'utilise pas Name dans ce contexte, avec name tu déplacerais les fichiers, tu ne les copierais pas.
Utilise FileCopy :

FileCopy, instruction, exemple
Cet exemple utilise l'instruction FileCopy pour copier le contenu d'un fichier dans un autre fichier. Nous supposons que le fichier FICHSRC contient des données.

Dim SourceFile, DestinationFile
SourceFile = "FICHSRC" ' Définit le nom du fichier source.
DestinationFile = "FICHDEST" ' Définit le nom du fichier cible.
' Copie le fichier source dans le fichier cible.
FileCopy SourceFile, DestinationFile

Dans SourceFile et DestinationFile tu mets le nom complet avec le chemin.

Edit
J'avais ça quelque part.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub DirFichier()
Dim NomFich As String
Dim OldRep As String, NewRep As String
    OldRep = "D:\Ancien répertoire\"
    NewRep = "D:\Nouveau répertoire\"
 
    NomFich = Dir(OldRep & "*.xls", 2)
        Do While NomFich <> ""
            If (GetAttr(OldRep & NomFich) And vbNormal) = vbNormal Then
                FileCopy OldRep & NomFich, NewRep & NomFich
            End If
            NomFich = Dir()
        Loop
End Sub

Bonne soirée

[Benjycool]

J'ai trouver pour avoir le nom d'un fichier dans un repertoire :

Code :

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

1
2
3
4
5
6
 
Dim MyFile
 
MyFile = Dir("G:\Cours\Stage\Stage 2eme année\SES\Division\*.xls")
 
MsgBox (MyFile)

Mais comment peut on avoir le nb de fichier dans un repertoire ?

[Godzestla]

Mais comment peut on avoir le nb de fichier dans un repertoire ?

Je me répète....
Mais tu le mérites car si tu ne lis même pas les réponses... à quoi bon nous occuper avec tes questions.

[ouskel'n'or]

Hello Benjycool,
Tu te moques ? Tu ne sais pas insérer un compteur dans une boucle pour compter le nombre de fichier ?
Je suis de l'avis de Godzestla

Si tu ne lis même pas les réponses... à quoi bon nous occuper avec tes questions.

[Benjycool]

Ok merci j'y est trouvé mon bonheur et dsl je n'avais pas vue la reponse 6.

Benjycool