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

Fermé

LinlinDou - Modifié le 18 sept. 2019 à 11:53
yg_be Messages postés 22723 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 - 18 sept. 2019 à 17:31

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
merci bcp

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

Configuration: Windows / Internet Explorer 11.0

A voir également:

Copier coller des données dans deux classeurs différents
Copier coller pdf - Guide
Copier une vidéo youtube - Guide
Deux comptes whatsapp - Guide
Symbole coeur copier-coller ✓ - Forum Réseaux sociaux
Super copier - Télécharger - Gestion de fichiers

1 réponse

Réponse 1 / 1

yg_be Messages postés 22723 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 1 476
18 sept. 2019 à 13:20

bonjour,
j'ai simplifié ton code, sans tester:

Option Explicit

Private Sub workbook_open()
Dim datas As Workbook
Application.EnableEvents = False
Set datas = Workbooks.Open("P:\DARM\ZZ\Planning\DataS.xlsx", True)
Application.EnableEvents = True
datas.Sheets("Datas S").Range("A1:O5000").Copy
ThisWorkbook.Sheets("Datas S").Range("A1").PasteSpecial Paste:=xlValues
datas.Close savechanges:=False
End Sub

Linlindou
18 sept. 2019 à 15:08

Merci pour ta reponse.

Un soucis je n arrive pas a fermer le fichier dataS_C34 sans la boite : voulez vous enregistrer ...

Et ca beug aussi pour la ligne :
Thisworkbook.sheets ( ...

yg_be Messages postés 22723 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 1 476 > Linlindou
18 sept. 2019 à 17:31

quel message d'erreur? tu as bien un onglet nommé "Datas S" dans le classeur dans lequel se trouve la macro?
c'est quoi le fichier dataS_C34? pourquoi devrait-il se fermer sans s'enregistrer?

Discussions similaires

Dessiner avec son clavier et avec des lettres

Un seul de mes écouteurs marche. Que faire ?

Comment faire le signe de croix (chrétiens) ?

dessin au clavier cannabis

Excel formule : compter le nombre de valeurs différentes

Discussions similaires

Newsletters