mise a jour classeur

[gothc]

Bonjour les amis
j'ai besoin de votre aide
je cherche a faire une macro pour copier une zone sur un classeur fermé et la coller sur mon classeur ouvert

Merci de votre aide je ne sais pas si cela sera possible

 

[Lone-wolf]

Bonsoir gothc

Ta demande est vague. Qu'elle est la zone à copier au juste??

 

[gothc]

Bonsoir Lone wolf
sur le classeur fermé zone A2 *A 22 Jusque AC 2* AC 22

 

[Lone-wolf]

Re

Mets les 2 fichiers dans un même dossier, sinon modifie le chemin. Macro à mettre dans le module 1.

Option Explicit
Sub Copier_Donnees()
Dim Chemin As String, WbSource As Workbook, WbDest As Workbook

    Application.ScreenUpdating = False

    Chemin = ThisWorkbook.Path & "\classeur fermé.xlsm"

    Set WbDest = ThisWorkbook
    Set WbSource = Workbooks.Open(Chemin)

    With WbSource
         .ActiveSheet.Range("a2:ac22").Copy WbDest.ActiveSheet.Range("a2")
    End With
    WbDest.ActiveSheet.Range("H:AC").Columns.AutoFit

    Application.DisplayAlerts = False
    WbDest.Save
    WbSource.Close True
End Sub

Dans le module de la feuille

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Call Copier_Donnees
End Sub

 

[gothc]

je viens de faire un test la macro fonction
j'ai un fichier sur le bureau et un dans un dossier
le dossier fermé reste par défaut sur le bureau je pense que je vais devoir modifier la macro

encore merci pour votre aide

 

[Lone-wolf]

Re

Modifie le chemin comme ceci

Chemin = "C:\Users\ " & Environ("Username") & "\Destktop\classeur fermé.xlsm"

 

[gothc]

je vais le faire demain matin au bureau Merci Merci
bonne soirée a vous