Copy Fichier/Fichier via chemin d'accès

[xvella]

Bonsoir Forum,
Bonsoir à tous,

Voilà je voudrais réaliser une copy commander par bouton:
d'un tableau dans un fichier vers un autre fichier tous en donnant un chemin d'accès dans une des feuilles du fichier demandeur.

Merci d'avance et bonne soirée à tous.

@+

 

[Staple1600]

Re : Copy Fichier/Fichier via chemin d'accès

Bonsoir


Voici une proposition

Il faut remodifier le chemin dans la feuille Chemin
avant de lancer la macro


PS: voici une version commentée de la macro
(une variante de la macro de la PJ)

Sub Mja_Liste()
'Déclarations
Dim A_Source As Range, B_Destination As Range
Dim RgListe As String

Application.ScreenUpdating = False

'Chemin du fichier
RgListe = _
Sheets("Chemin").Range("C3").Text
'ouverture
Workbooks.Open (RgListe)
'Définiton de la plage à copier
Set A_Source = _
Sheets("Liste").Range("B4:D14")
'Définition de la plage où coller le tableau
Set B_Destination = _
Workbooks("Fichier2.xls").Sheets("Liste_Nom").Range("B4")

'Copie du tableau
A_Source.Copy B_Destination
Application.CutCopyMode = False

'Fermeture Fichier1
Windows("Fichier1.xls").Activate
ActiveWindow.Close

'Enregistrement & Fermeture Fichier2
Windows("Fichier2.xls").Activate
ActiveWorkbook.Save
ActiveWindow.Close

Application.ScreenUpdating = True
End Sub

 

[xvella]

Re : Copy Fichier/Fichier via chemin d'accès

Bonsoir Staple1600

Je te remercie et te souhaite une bonne fin de soirée cela marche du tonnerre.

MERCI

A++