enregistrer dans un autre classeur

[Mimi]

Bonjour à tous,
Voila je recherche le moyen d'enregistrer certaines données du classeur fiches dans le classeur base client.
Au départ c'était dans le même classeur, aujourd'hui je désire séparer la base client.
Le fichier de départ c'est le classeur fiches
Ci joint un petit fichier
D'avance merci
Michel

 

[Luki]

Re : enregistrer dans un autre classeur

bonjour mimi

Tu peux essayer ceci:

Sub Bouton22_QuandClic()
Dim L As Integer
Dim WbkBase As Workbook ' le fichier base client
Dim Wks As Worksheet 'la feuille base client

    ' si le fichier base n'est pas ouvert ça génère une erreur
    ' j'utilise cette erreur pour vérifier que le fichier est ouvert
    On Error GoTo gesterr
    Set WbkBase = Workbooks("Base client.xls")
    Set Wks = WbkBase.Worksheets("clients")
    
' pas besoin de sélections ou d'activation de feuilles

' utilisation du bloc with : les instructions qui commencent par un point font référence à wks (la feuille client)
With Wks
    L = .Range("B65536").End(xlUp).Row + 1
    .Range("A" & L) = Sheets("Fiches1").Range("D35")
    .Range("B" & L) = Sheets("Fiches1").Range("C7")
    .Range("C" & L) = Sheets("Fiches1").Range("C8")
    .Range("D" & L) = Sheets("Fiches1").Range("C9")
    .Range("E" & L) = Sheets("Fiches1").Range("F9")
    .Range("F" & L) = Sheets("Fiches1").Range("C10")
    .Range("G" & L) = Sheets("Fiches1").Range("H2")
    .Range("H" & L) = Sheets("Fiches1").Range("H4")
    .Range("I" & L) = Sheets("Fiches1").Range("H35")
    .Range("J" & L) = Sheets("Fiches1").Range("H3")
    .Range("P" & L) = Sheets("Fiches1").Range("H5")
End With

'gestion de l'erreur
Exit Sub
gesterr:
MsgBox "le fichier base doit être ouvert pour pouvoir enregistrer les fiches !"

End Sub

Bonne journée 🙂

 

[Mimi]

Re : enregistrer dans un autre classeur

Bonjour Luki,
Merci de ta réponse ça me convient.
Comme ça par hazard, si le classeur base client est en réseau, le code il serait modifier comment ?
Encore merci
Michel

 

[Luki]

Re : enregistrer dans un autre classeur

Re,

Il vaudrait mieux que le fichier "base" ne soit pas sur le réseau par hasard mais que quelqu'un l'y ai mis volontairement! 😀

Trêve de plaisanteries. S'il est ouvert, ça ne change à priori rien, mais je ne suis pas compétent dans les réseaux 😱, alors tu peux faire un test!

Bonne journée