VBA-Copie données ficher 1 feuille A vers ficher 2 feuille V

Résolu/Fermé

NaXiLeAn Messages postés 112 Date d'inscription mercredi 27 juillet 2016 Statut Membre Dernière intervention 2 juin 2020 - 28 juil. 2016 à 14:02
NaXiLeAn Messages postés 112 Date d'inscription mercredi 27 juillet 2016 Statut Membre Dernière intervention 2 juin 2020 - 1 août 2016 à 09:33

Bonjour,

Je souhaite copie l'intégralité des données d'une feuille "FeuilSource" d'un ficher "Source.xlsx" (ouvert et d'ou la macro est lancée) vers une "FeuilDestination" d'un ficher "Destination.xlsx" non actif.

Voilà ce que j'ai "pondu" et j'ai une erreur après l'ouverture du ficher "Source.xlsx" :

'Intègre les données du fichier source sans le modifier
ici => Workbooks("Source.xlsx") = Workbooks.Open(Filename:="C:\source\"Source.xlsx"")
Sheets("FeuilDestination").Cells.Value = Workbooks("Source.xlsx").Sheets("FeuilSource").Cells.Value
Workbooks("Source.xlsx").Close False ' ferme sans sauve
Set Workbooks("Source.xlsx") = Nothing
Set Sheets("FeuilDestination") = Nothing

D'avance merci pour votre aide

A voir également:

VBA-Copie données ficher 1 feuille A vers ficher 2 feuille V
Feuille de pointage excel - Télécharger - Tableur
Feuille a5 - Guide
Copie cachée - Guide
Verrouiller cellule excel sans verrouiller la feuille - Guide
Windows 7 vers windows 10 - Guide

2 réponses

Réponse 1 / 2

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
30 juil. 2016 à 09:42

Bonjour,

Voici ta macro modifiée et qui devrait fonctionner :

Application.ScreenUpdating = False
    Workbooks.Open Filename:="C:\source\Destination.xlsx"
    Workbooks.Open Filename:="C:\source\Source.xlsx"
    Workbooks("Source.xlsx").Sheets("FeuilSource").Cells.Copy _
        Destination:=Workbooks("Destination.xlsx").Sheets("FeuilDestination").Cells(1, 1)
    Workbooks("Source.xlsx").Close False ' ferme sans sauve
    Workbooks("Destination.xlsx").Close True ' ferme en sauvant
Application.ScreenUpdating = True

NaXiLeAn Messages postés 112 Date d'inscription mercredi 27 juillet 2016 Statut Membre Dernière intervention 2 juin 2020 1
1 août 2016 à 09:33

Bonjour!!!!
un grand merci gbinforme
ça fonctionne :D

Réponse 2 / 2

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
28 juil. 2016 à 22:07

Bonjour,

Tu devrais chercher des exemples pour faire ton action car dans ton cas il faut aussi ouvrir ton classeur destination et ne pas faire '=' mais utiliser la fonction copie.

NaXiLeAn Messages postés 112 Date d'inscription mercredi 27 juillet 2016 Statut Membre Dernière intervention 2 juin 2020 1
29 juil. 2016 à 10:16

Merci gbinforme.
J'ai cherché, mais je n'ai pas trouvé.

Discussions similaires

Feuille de score belote

Colis en cours de transport vers votre site de livraison ?

grille de points pour belote

Discussions similaires

Newsletters