XL 2010 Copier coller des données dans deux classeurs différents

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

boudiaf.linda

XLDnaute Nouveau
Bonjour à tous,
Je suis novice en VBA et j'ai besoin d'aide pour optimiser un fichier.

je rencontre un soucis sur mon programme VBA. je souhaite copier coller des données d'un feuille sur une feuille d'un autre fichier excel dans le but d'avoir toujours des information actualisées

avec mon code, il ne copie rien.. Pourriez vous me donner la bonne formule
Private Sub workbook_open()

Application.EnableEvents = False
Workbooks.Open Filename:="P:\DARM\ZZ\Planning\DataS.xlsx", ReadOnly:=True
Application.EnableEvents = True

Sheets("Datas S").Activate
Range("A1:O5000").Copy
Windows("Pilotage montage.xlsm").Activate

Sheets("Datas S").Range("A1").Activate
Selection.PasteSpecial Paste:=xlValues


Application.AlertBeforeOverwriting = False
Workbooks("DataS.xlsx").Close savechanges:=False
Application.AlertBeforeOverwriting = True

End Sub
j'ai essayé :
Private Sub workbook_open()

Application.EnableEvents = False
Set Datas = Workbooks.Open("P:\DARM\ZZ\Planning\DataS.xlsx", ReadOnly = True)

Application.EnableEvents = True
Datas.Sheets("Datas S").Range("A1:K5000").Copy

' Beug ici, cette partie ne s'exécute pas
ThisWorkbooks.Sheets("Datas S").Range("A1:K5000").PasteSpecial Paste = xlValues

Application.AlertBeforeOverwriting = False
Workbooks("DataS.xlsx").Close savechanges:=False
Application.AlertBeforeOverwriting = True

End Sub

merci bcp pour toute aide !!
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Code VBA
Réponses
10
Affichages
861
  • Question Question
Microsoft 365 Question code VBA
Réponses
2
Affichages
447
Retour