XL 2019 Coller valeur dans autre classeur

[carlos]

Bonjour,
j'ai un petit souci que je n'arrive pas à regler.
J'ai 2 classeurs : Classeur1 et Classeur2.
Je voudrais que la valeur de la cellule A1 du classeur 1 soit coller en A1 du classeur 2.
Je ne veux pas utiliser ce code : Classeur1.Range("A1").Copy Classeur2.Range("A1")
J'utilise ce code pour le faire mais ca bug.
Dim Nomdest As String
Nomdest = "Classeur2"
With Workbooks(Nomdest)'CA BLOQUE ICI
.Range("A1").Value = Range("A1").Value
End With

 

[pierrejean]

Bonjour
A tester:

Sub test()
Dim Nomdest As String
Nomdest = "Classeur2.xlsm"
Workbooks(Nomdest).Sheets("Feuil1").Range("A1") = Range("A1")
End Sub

 

[carlos]

Bonjour pierrejean,
A priori ca bloque en amont:

 

[patricktoulon]

bonjour
ben c'est par ce qu'il n'est pas ouvert ton classeur2 ou il faut mettre l'estension

de plus a quoi te sert de copier A1 de classeur1 à A1 de classeur2 sachant que des que tu ouvrira ton userform dans classeur2 la A1 sera remplacer par "01/01/2016"

bref dans tout les cas avec la méthode open c'est comme ceci

Sub test()
    Dim Nomdest As String, wbk As Workbook
    Nomdest = ThisWorkbook.Path & "\Classeur2.xlsm" 'le classeur2 est au meme endroit que le classeur1
   Application.ScreenUpdating = False
   Set wbk = Workbooks.Open(Nomdest)
    With wbk
        .Sheets(1).Range("A1").Value = ThisWorkbook.ActiveSheet.Range("A1").Value
        .Save: .Close
    End With
End Sub

 

[carlos]

Merci patrictoulon pour ta proposition. ca marche tres bien avec une extension en .Xlsm mais ca bogue avec une autre par exemple .xls.
faut t'il mettre une condition en fonction du format de l'extension?

 

[patricktoulon]

re
ben ma fois enleve le "m"
serieux tu a 2019 et tu travaille encore en xls

 

[carlos]

oui ca marche mais les fichiers sont parfois en xls des fois en xlsm

 

[patricktoulon]

et ben travaille en xlsm xls c'est le format inférieur à 2007
apres si tu veux oui on peut faire quelque chose
mais c'est vraiment du gaspillage d’énergie
t'es pas ecolo toi

allez on extrapole

Sub test()
    Dim Nomdest As String, wbk As Workbook
    Nomdest = ThisWorkbook.Path & "\" & Dir(ThisWorkbook.Path & "\Classeur2.xls*") 'le classeur2 est au meme endroit que le classeur1
   If Nomdest = "" Then MsgBox "pas de fichier de ce nom ":exit sub
   Application.ScreenUpdating = False
   Set wbk = Workbooks.Open(Nomdest)
    With wbk
        .Sheets(1).Range("A1").Value = ThisWorkbook.ActiveSheet.Range("A1").Value
        .Save: .Close
    End With
End Sub

purée vous êtes dur en affaire

 

[carlos]

merci
Ca bloque
j'ai pourtant bien le classeur2.xls dans le meme repertoire.:

 

[patricktoulon]

re
autant pour moi

 Nomdest = ThisWorkbook.Path & "\" & Dir(ThisWorkbook.Path & "\Classeur2.xl*") 'le classeur2 est au meme endroit que le classeur1

 

[carlos]

Toujours la meme erruer .

 

[patricktoulon]

alors le nom doit comporter un espace ou autre
met ca dans un module et regarde si le message donne le bon chemin

Sub test2()
 Nomdest = ThisWorkbook.Path & "\" & Dir(ThisWorkbook.Path & "\Classeur2.xl*") 'le classeur2 est au meme endroit que le classeur1
 MsgBox Nomdest
End Sub

 

[carlos]

meme erreur,
Mais il cherche dans le reseau onedrive dans https: .... alors que le ThisWorkbook est en local

 

[patricktoulon]

a mon avis tu a ton office en vrac toi

 

[carlos]

En vrac?
Effectivement c'est assez compliqué de gérer le local et le onedrive avec des macros.
Merci en tout cas pour ton aide
Bonne journée