XL 2019 Coller valeur dans autre classeur

pierrejean

XLDnaute Barbatruc

• 4 Mars 2023

• #2

Bonjour
A tester:

VB:

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

 

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

• 4 Mars 2023

• #3

Bonjour pierrejean,
A priori ca bloque en amont:

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 4 Mars 2023

• #4

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

VB:

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

 

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

• 4 Mars 2023

• #5

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?

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 4 Mars 2023

• #6

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

 

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

• 4 Mars 2023

• #7

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 4 Mars 2023

• #8

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

VB:

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 😉

 

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

• 4 Mars 2023

• #9

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 4 Mars 2023

• #10

re
autant pour moi

VB:

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

 

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

• 4 Mars 2023

• #11

Toujours la meme erruer .

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 4 Mars 2023

• #12

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

VB:

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

 

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

• 4 Mars 2023

• #13

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

 

Pièces jointes

• 1677939443168.png

  17.8 KB · Affichages: 9

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 4 Mars 2023

• #14

a mon avis tu a ton office en vrac toi

 

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

• 4 Mars 2023

• #15

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

 

Vote positif 0 Vote négatif