copier/coller fichier excel VBA Résolu/Fermé

Question

Bonjour,

voilà j'essaye désespérement de savoir comment rechercher un fichier excel dans un répertoire, j'ai trouvé des bouts de codes mais lorsque je lance la recherche ca ne fonctionne pas. bon encore ca passons je trouverai bien l'erreur.

mais j'ai une question qui me chagrine, lorsque je trouve le fichier xls souhaité, il faut que je le copie en entier, et il faut que je le mette dans un nouveau dossier, en renommant le fichier "copie".
mon problème est que je ne sais pas qu'elle commande utiliser en VBA pour faire ca.

est ce quelqu'un pourrait m'aider à voir plus clair SVP

merci

gbinforme · Answer

bonjour

comment rechercher un fichier excel dans un répertoire
lorsque je trouve le fichier xls souhaité, il faut que je le copie 

Fichier = dir(chemin complet répertoire)
do
if fichier = classeur_cherché
    Workbooks.Open chemin répertoire & fichier 
    Workbooks.SaveAs chemin nouveau répertoire & "copie" & fichier 
    Workbook.Close
    exit do
end if
dir
loop

gbinforme · Answer

bonjour

 je suis passé par une "Application.FileSearch" 

Pourquoi pas mais pour ton souci, c'est tellement plus simple avec DIR.

Voici une macro complète testée qui fonctionne :
Public Sub recherche_fichier()
Dim nouveau As Variant
Dim cherche As String
Dim fichier As String
Dim chemin As String
chemin = "C:\fichiers\excel\"      '  à remplacer par ton répertoire
nouveau = "D:\mano"                '  à remplacer par ton nouveau répertoire
cherche = "classeur.xls"           '  à remplacer par ton classeur
fichier = Dir(chemin)              '  recherche premier 
Do
    If fichier = cherche Then      '  fichier trouvé
        Workbooks.Open chemin & fichier    '  fichier ouvert 
                                                      ' demande du nouveau nom
        nouveau = Application.GetSaveAsFilename(nouveau, _
              fileFilter:="classeurs (*.xls), *.xls", _
              Title:="Saisissez votre nouveau nom")
        If nouveau <> False Then            '  fichier saisi ?
            ActiveWorkbook.SaveAs nouveau   ' sauvegarde nouveau
            MsgBox "Sauvé sous " & nouveau  ' message
            ActiveWorkbook.Close            ' fermeture
        Else
            MsgBox "Classeur non sauvegardé"
        End If
    Exit Do  ' sortie procédure
    End If
    fichier = Dir                '  recherche fichier suivant
Loop
End Sub
Dis nous les soucis que tu peux avoir

gbinforme · Answer

bonjour

comment je peux récupérer le chemin ? 

Si tu cherches ton fichier avec l'explorer tu peux bien faire ctrl+c sur le chemin du répertoire sélectionné ?

gbinforme · Answer

bonjour

Le chemin doit être écrit ainsi
chemin = "C:\fichiers\excel\"
nom complet du répertoire avec le "\" de fin mais sans le fichier.

gbinforme · Answer

bonjour

c'est peut être ca mon pb

eh bien oui !!

Pas de pitié si tu ne respecte pas la syntaxe : 
Dir demande un chemin de répertoire : chemin = "C:\fichiers\excel\" 

Un point c'est tout car ensuite on filtre sur ton fichier.

Cela ne fonctionne pas comme "Application.FileSearch" qui peut aussi balayer tous les sous répertoires alors que Dir ne le fait pas et je n'y puis rien !

Marie · Answer

merci

Copier/coller fichier excel VBA

6 réponses