High-Tech Santé Médecine Droit-Finances

Réalisation

vidéo numérique

Rechercher : dans
Par :

Copier/coller fichier excel VBA

Dernière réponse le 1 avr 2008 à 14:48:38 Marie, le 31 mar 2008 à 20:36:03 
 Signaler ce message aux modérateurs

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

Configuration: Windows XP
Firefox 2.0

Meilleures réponses pour « copier/coller fichier excel VBA » dans :
Ubuntu - Un copier coller rapide VoirUn copier-coller ultra-rapide Sous Ubuntu, Linux, il est très simple de faire un copier coller, encore plus simple qu'un “Ctrl + C” “Ctrl + V” : Il suffit de sélectionner le texte (juste le sélectionner) pour le mettre en mémoire puis de...
[vi/vim] Eviter les tabulations lors d'un copier/coller VoirPar défaut, lorsque vous faîtes un copier-coller dans vi ou vim (par l'intermédiaire d'une session SSH ouverte à distance par exemple), celui-ci ajoute des tabulations incrémentées à chaque ligne. Pour empêcher ce désagrément, il suffit de taper...
Posez votre question Répondre

1

gbinforme, le 31 mar 2008 à 22:35:13

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

Toujours zen

   
Répondre à gbinforme

2

Marie, le 1 avr 2008 à 07:56:21

Merci pour l'aide,

je vais essayer, je te tiens au courant,

@+

   
Répondre à Marie

3

Marie, le 1 avr 2008 à 10:14:36

J'ai vraiment du mal à faire cette méthode.

en fait je n'arrive pas à atteindre mon dossier où se trouve mon fichier à copier.
j'ai mis de type ".xls", je suis passé par une "Application.FileSearch" ensuite avec des création d'objet avec crestaObject...
j'ai essayé plein d etruc mais je n'y arrive pas, je m'écroule sur les tonnes d'informations que je peux trouver sur le net!

mon cas concret est :

mon utilisateur rentre un semblant d'info dans un textbox, en fonction de cette info, le fichier xls correspondant doit être récupéré dans le répertoire qui lui reste le même dans tous els cas.
ce fichier xls doit etre copié et collé dans un autre dossier puis renommé par l'utilisateur et pas par mon code ce qui m'aurait arrangé!!

je suis désolée de vous importuner mais j'ai vraiment beaucoup de mal avec VBA, je suis débutante et le jonglage de fichier je crois que c'est pas encore ma tasse de thé.

   
Répondre à Marie

4

gbinforme, le 1 avr 2008 à 11:12:08
  • +1

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
Toujours zen

   
Répondre à gbinforme

5

Marie, le 1 avr 2008 à 11:20:03

C'est vrai que le Dir est plus facile ;-b

mon soucis se pose sur le lien de mlon chemin car mes données se trouvent sur le réseau, comment je peux récupérer le chemin ? car en faisant le copié collé en cliquant dessus ca me donne rien . c'est bien comme ca non ?

désolée de cette question bête mais je trouve ca bizarre
en tout cas merci pour tout !!!!!

   
Répondre à Marie

6

gbinforme, le 1 avr 2008 à 11:26:08

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é ?
Toujours zen

   
Répondre à gbinforme

7

Marie, le 1 avr 2008 à 11:38:58

C'est bon j'ai plus d'erreur, en copiant et collant j'avais supr une lettre d'où le fait de ne pas trouver le chemin.

mais maintenant que je récupère bien le chemin lorsque je fais :
fichier = Dir(chemin)

lorsque je me mets en debugg pas à aps sur la var fichier le résultat est vide "", du coup je ne rentre pas dans la boucle.
pourtant en suivant le chemin j'ai bien un fichier xls

c'est normal ?

   
Répondre à Marie

8

gbinforme, le 1 avr 2008 à 12:18:23

Bonjour

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

   
Répondre à gbinforme

9

Marie, le 1 avr 2008 à 13:34:37

J'ai mis chemin complet qui se termine par \*.xls\ car je cherche que les fichiers dont l'extension est xls c'est peut être ca mon pb.
non ?

   
Répondre à Marie

11

Marie, le 1 avr 2008 à 14:45:23

Voilà pour que ca récupère mes fichiers xls :

chemin = "chemin entier \" ' répertoire
nouveau = "chemin entier\" ' nouveau répertoire
fichier = Dir(chemin & "\*.xls")

maintenant ca fonctionne.

merci de ta patience !!

bonne aprem

   
Répondre à Marie

10

gbinforme, le 1 avr 2008 à 14:43:12

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 !
Toujours zen

   
Répondre à gbinforme

12

 Marie, le 1 avr 2008 à 14:48:38

Merci

   
Répondre à Marie
Posez votre question Répondre
Ils ont besoin de votre aide