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

[Bens7]

Bonjour a tous !!
J'aurais voulu savoir si possible de copier un fichier (a1) qui se trouve dans la source (a2) dans la source (a3)
avec un bouton VBA (j'y connais rien en vba)

Exemple :
A1 | A2 | A3 |A4
15327.pdf | D:/perso/facture/ | D:/perso/payer |"Bouton" COPIER

Merci a tous !!!!

 

[Pierrot93]

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
@+

 

[Bens7]

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...

 

[Pierrot93]

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

Re,

A condition que les chemins soient valides :

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

 

[Bens7]

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

 

[Pierrot93]

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

Re,

faire une boucle dans ce cas :

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

 

[Bens7]

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 !

 

[Pierrot93]

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

Re,

Desole mais j;ai trouver une petite erreur

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...

 

[Bens7]

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 ?

 

[Pierrot93]

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

Re,

aurais tu toutefois la solution ?

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

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

 

[Bens7]

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

Re,

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

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

 

[Pierrot93]

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...

 

[Modeste geedee]

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)

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

 

[Bens7]

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