Copier un fichier vers un autre dossier en 1 Clik ?!

Pierrot93

XLDnaute Barbatruc

• 31 Mai 2013

• #2

Re : Copier un fichier vers un autre dossier en 1 Clik ?!

Bonjour,

regarde dans l'aide vba du coté de l'instruction "FileCopy", devrait faire l'affaire, A noter, chez moi les dossiers sous dossiers sont séparés par des anti slash "\" et non des slash "/"...

bonne journée
@+

 

Vote positif 0 Vote négatif

B

Bens7

XLDnaute Impliqué

• 31 Mai 2013

• #3

Re : Copier un fichier vers un autre dossier en 1 Clik ?!

Bah le souci c'est que j'y connais rien en vba meme si je trouve la commande je sais pas code
et oui desole des / ou \ enfin bref tous le monde a compris...

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 31 Mai 2013

• #4

Re : Copier un fichier vers un autre dossier en 1 Clik ?!

Re,

A condition que les chemins soient valides :

Code:

Option Explicit
Sub test()
FileCopy Range("A2").Value & Range("A1").Value, Range("A3").Value & Range("A1").Value
End Sub

 

Vote positif 0 Vote négatif

B

Bens7

XLDnaute Impliqué

• 31 Mai 2013

• #5

Re : Copier un fichier vers un autre dossier en 1 Clik ?!

Ca marche pas je me suis planter dans l'enoncer voila exactement ce que j'ai besoin en pieces jointes
et les collones peuvent etre tres longue
Merci!!

 

Pièces jointes

• Copier fichier.xlsm

  16.5 KB · Affichages: 45
• Copier fichier.xlsm

  16.5 KB · Affichages: 45
• Copier fichier.xlsm

  16.5 KB · Affichages: 48

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 31 Mai 2013

• #6

Re : Copier un fichier vers un autre dossier en 1 Clik ?!

Re,

faire une boucle dans ce cas :

Code:

Option Explicit
Sub test()
Dim i As Long
For i = 1 To Range("A65536").End(xlUp).Row
    FileCopy Cells(i, 2).Value & Cells(i, 1).Value, Cells(i, 3).Value & Cells(i, 1).Value
Next i
End Sub

 

Vote positif 0 Vote négatif

B

Bens7

XLDnaute Impliqué

• 31 Mai 2013

• #7

Re : Copier un fichier vers un autre dossier en 1 Clik ?!

Desole mais j;ai trouver une petite erreur voir le fichier final en pieces jointe(
si une ligen est vide le Macro s'arette !

 

Pièces jointes

• Copier fichier.xlsm

  22.3 KB · Affichages: 41
• Copier fichier.xlsm

  22.3 KB · Affichages: 46
• Copier fichier.xlsm

  22.3 KB · Affichages: 50

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 31 Mai 2013

• #8

Re : Copier un fichier vers un autre dossier en 1 Clik ?!

Re,

Desole mais j;ai trouver une petite erreur

Cliquez pour agrandir...

pas d'erreur avec le 1er fichier joint, d'ou l'importance d'un fichier rééllement représentatif du modèle de données à traiter...

 

Vote positif 0 Vote négatif

B

Bens7

XLDnaute Impliqué

• 31 Mai 2013

• #9

Re : Copier un fichier vers un autre dossier en 1 Clik ?!

Oui desole efectivement j;aurais du envoyer le fichier final mais j'ai eu l'idee une fois le code recu
aurais tu toutefois la solution ?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 31 Mai 2013

• #10

Re : Copier un fichier vers un autre dossier en 1 Clik ?!

Re,

aurais tu toutefois la solution ?

Cliquez pour agrandir...

en testant que les colonnes A, B et C de chaque ligne soient valorisées...

Code:

Option Explicit
Sub test()
Dim i As Long
For i = 1 To Range("A65536").End(xlUp).Row
    If Application.CountA(Cells(i, 1).Resize(, 3)) = 3 Then _
        FileCopy Cells(i, 2).Value & Cells(i, 1).Value, Cells(i, 3).Value & Cells(i, 1).Value
Next i
End Sub

 

Vote positif 0 Vote négatif

B

Bens7

XLDnaute Impliqué

• 31 Mai 2013

• #11

Re : Copier un fichier vers un autre dossier en 1 Clik ?!

Pierrot93 à dit:

Re,

que les colonnes A, B et C de chaque ligne soient valorisées...
[/CODE]

Cliquez pour agrandir...

Ton premier code ma bien aidez pour un aUtre fichier (ET D'ABORD MERCI) mais la le probleme c'est que les cellules vide c'est pas que je les est effacer c'est que j'ai un SI "" c'est pour ca que les cellule non verte sont vide
et dans ce cas ca marche pas

Ce que j;ai besoin en fait c'est que la case cocher donne le Ok du fichier corespondant:

FACTURE: essai1.pdf
FACTURE EXCEL: essai1.xlsx
CONTRAT: essai1.jpg
DOSSIER: (tous ensemble chcaun dans le dossier different dans les ligne cible)

Mai je veux avoir l'option de choisir que :

FACTURE EXCEL: essai1. xlsx

ou autre
Peut etre que on peut affichier toute les lignes par defaut mais ne copier que ce ou la colone D est VRAI c'est peut etre plus simple vu que de toute facon je compte cacher A;B;C voir fichier piece jointe

 

Pièces jointes

• Copier fichier.xlsm

  20.7 KB · Affichages: 45
• Copier fichier.xlsm

  20.7 KB · Affichages: 56
• Copier fichier.xlsm

  20.7 KB · Affichages: 57

Dernière édition: 31 Mai 2013

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 31 Mai 2013

• #12

Re : Copier un fichier vers un autre dossier en 1 Clik ?!

Re,

dans ton dernier fichier cellules réellement vides.... revoir post #8, perso je passe la main...

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 31 Mai 2013

• #13

Re : Copier un fichier vers un autre dossier en 1 Clik ?!

Bonsour®

si tu sais faire la manipulation manuellement... 🙄
https://www.excel-downloads.com/threads/copier-un-fichier-vers-un-autre-dossier-en-1-clik.206578/

(j'y connais rien en vba)

Cliquez pour agrandir...

alors utiliser l'enregistreur de macro...😎
qui te dégrossira le process
macro que tu pourra alors affecter à un bouton.

une fois cela réussi :
il faudra intervenir dans le code pour rendre les paramètres variables et interactifs

 

Dernière édition: 31 Mai 2013

Vote positif 0 Vote négatif

B

Bens7

XLDnaute Impliqué

• 31 Mai 2013

• #14

Re : Copier un fichier vers un autre dossier en 1 Clik ?!

Desole mais je sais vraiement pas comment faire lorsque j'enregistre le macro pour lui expliquer je veut copier que les cases VRAI

 

Vote positif 0 Vote négatif