mise a jour classeur

Lone-wolf

XLDnaute Barbatruc

• 31 Mai 2017

• #2

Bonsoir gothc

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

 

Vote positif 0 Vote négatif

gothc

XLDnaute Occasionnel

• 31 Mai 2017

• #3

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 31 Mai 2017

• #4

Re

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

VB:

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

 

Dernière édition: 31 Mai 2017

Vote positif 0 Vote négatif

gothc

XLDnaute Occasionnel

• 31 Mai 2017

• #5

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 31 Mai 2017

• #6

Re

Modifie le chemin comme ceci

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

 

Vote positif 0 Vote négatif

gothc

XLDnaute Occasionnel

• 31 Mai 2017

• #7

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

 

Vote positif 0 Vote négatif