Copier des données dans un autre fichier excel

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion Turbo
  • Date de début Date de début

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 !

S'inscrire
T

Turbo

Guest
Bonjour a tous et a toutes

Voila comme indiqué dans le titre, je ne parviens pas a trouver le code VBA me permettant de transférer des valeurs se trouvant dans un fichier excel vers un autre fichier excel ( 2 fichiers xls indépendants donc ).

Dans le fichier excel source j'ai un bouton, qui permettra à l'utilisateur d'envoyer les données dans le fichier excel de destination.

Si cela peut vous aider : J'aimerai copier les valeurs contenue dans ( AK7:AK81 ) du fichier source, dans ( H7:H81 ) du fichier de destination.

Je suis sur Excel 2003.

Merci a vous 🙂

Si il vous manque des informations, n'hésitez pas 😉
 
Trier par date Trier par votes
Re : Copier des données dans un autre fichier excel

Bonjour Turbo,

si j'ai bien compris, noms des classeurs et des feuilles à adapter :

Code: 
Workbooks("ClasseurSource").Sheets("FeuilleSource").Range("AK7:AK81").Copy _
    Workbooks("ClasseurDestination").Sheets("FeuilleDestination").Range("H7:H81")

bonne journée
@+
 
Vote positif 0 Vote négatif
Re : Copier des données dans un autre fichier excel

Bonjour


Avec les deux classeurs ouverts
Sub copie()
Range("AK7:AK81 ).Copy
Windows("Classeur1.xls").Activate
Range("H7).Select
ActiveSheet.Paste
End sub

Adapter le nom du classeur


edit: bonjour Pierrot93
 
Vote positif 0 Vote négatif
Re : Copier des données dans un autre fichier excel

Merci d'avoir répondu aussi rapidement 😉

Malheuresement je n'arrive pas a faire fonctionner vos codes 😱😱

"Erreur de compilation
Erreur de syntaxe"
Surligne en jaune ma Sub

Quand je teste le code de Staple1600

"Erreur d'éxecution '438'
Propriété ou méthode non gérée par cet objet"
Surligne en jaune : " Workbooks("Synthése Aôut, Sept Modif 07BIS.xls").Sheets("DEC").Range ("H7:H81") "

Pour le code de Pierrot93
 
Vote positif 0 Vote négatif
Re : Copier des données dans un autre fichier excel

Re


Synthése Aôut, Sept Modif 07BIS.xls est bien le nom de ton classeur source?

Et le non du classeur destination c'est quoi?

EDIT : je viens de mieux lire
En fait le classeur destination c'est : Synthése Aôut, Sept Modif 07BIS.xls
et comme ça:
Workbooks("Synthése Aôut, Sept Modif 07BIS.xls").Sheets("DEC").Range ("H7")
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Copier des données dans un autre fichier excel

Mon classeur source est "Formulaire heures modif 08.xls" et la feuille est "Mensuel"
Mon classeur de destination est "Synthése Aôut, Sept Modif 07BIS.xls" et la feuille est "DEC"

Quand j'essaye ton code Staple1600
Je peux même pas cliquer sur mon bouton ( qui est dans mon classeur source ) que je reçoit immédiatement le message :

Erreur de compilation:

Erreur de syntaxe
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Copier des données dans un autre fichier excel

Code: 
Private Sub Enregistrer_Click()
    
    'Code de Pierrot93
    'Workbooks("Formulaire heures modif 08.xls").Sheets("Mensuel").Range("AK7:AK81").Copy
    'Workbooks("Synthése Aôut, Sept Modif 07BIS.xls").Sheets("DEC").Range("H7:H81").Paste
    
    'Code de Staple1600
    [COLOR="Red"]Range("AK7:AK81 ).Copy[/COLOR]
    Windows("Formulaire heures modif 08.xls").Activate
    [COLOR="Red"]Range("H7).Select[/COLOR]
    ActiveSheet.Paste
           
End Sub

Merci de m'aider 🙂
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Copier des données dans un autre fichier excel

Re


--> Pierrot93, je te laisie modifier 😉
'Code de Pierrot93
'Workbooks("Formulaire heures modif 08.xls").Sheets("Mensuel").Range("AK7:AK81").Copy
'Workbooks("Synthése Aôut, Sept Modif 07BIS.xls").Sheets("DEC").Range("H7:H81").Paste

Code: 
Sub A_TESTER()
    'Code de Staple1600
Workbooks("Formulaire heures modif08.xls").Range("AK7:AK81 ).Copy _
    Windows("Formulaire heures modif 08.xls").Range("H7)
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Copier des données dans un autre fichier excel

Voila donc ce que j'ai mis :

Code: 
Private Sub Enregistrer_Click()
    
    'Code de Pierrot93
    'Workbooks("Formulaire heures modif 08.xls").Sheets("Mensuel").Range("AK7:AK81").Copy
    'Workbooks("Synthése Aôut, Sept Modif 07BIS.xls").Sheets("DEC").Range("H7:H81").Paste
    
    'Code de Staple1600
    [COLOR="Red"]Workbooks("Formulaire heures modif08.xls"). Range("AK7:AK81 ).Copy _
    Windows("Formulaire heures modif 08.xls").Range("H7)[/COLOR]

           
End Sub

J'ai le message :

"Erreur de compilation:
Erreur de syntaxe"

Ok

Surligner en jaune : "Private Sub Enregistrer_Click()"


Il doit y avoir un truc que je doit pas saisir 😕😕
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Copier des données dans un autre fichier excel

Re

Créer un nouvelle macro nomme la TEST et essaye la:
Code: 
Sub TEST()
Workbooks("Formulaire heures modif 08.xls").Range("AK7:AK81").Copy _
Windows("SynthéseAôut, Sept Modif 07BIS").Range("H7")
End Sub

Le nom est bien
Workbooks("Formulaire heures modifESPACE08.xls")
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Copier des données dans un autre fichier excel

Code: 
'Private Sub Enregistrer_Click()
    
    'Code de Pierrot93
    'Workbooks("Formulaire heures modif 08.xls").Sheets("Mensuel").Range("AK7:AK81").Copy
    'Workbooks("Synthése Aôut, Sept Modif 07BIS.xls").Sheets("DEC").Range("H7:H81").Paste
    
    'Code de Staple1600
    'Range("AK7:AK81 ).Copy
    'Windows("Formulaire heures modif 08.xls").Activate
    'Range("H7).Select
    'ActiveSheet.Paste
           
'End Sub

Sub TEST()
    [COLOR="Red"]Workbooks("Formulaire heures modif 08.xls"). Range("AK7:AK81 ).Copy[/COLOR] _
    [COLOR="Red"]Windows("Synthése Aôut, Sept Modif 07BIS.xls").Range("H7)[/COLOR]
End Sub

Quand j'execute la macro j'ai encore le même message :

"Erreur de compilation:
Erreur de syntaxe"

Ok

Surligner en jaune : "Sub TEST()"

Edit :

fichier source est bien : "Formulaire heures modif 08.xls"
fichier destination est bien : "Synthése Aôut, Sept Modif 07BIS.xls"

Désolé pour les noms, je n'ai malheuresement pas choisi ...
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Copier des données dans un autre fichier excel

Re

Donc
Code: 
Sub TEST()
Workbooks("Formulaire heures modif 08.xls").Range("AK7:AK81").Copy _
Windows("SynthéseAôut, Sept Modif 07BIS").Range("H7")
End Sub
As-tu vérifier le nom de tes clalsseurs et des feuiles
(espace etc...) ?
 
Vote positif 0 Vote négatif
Re : Copier des données dans un autre fichier excel

Oui car j'ai copié directement le nom en cliquant deux fois non rapidement sur les fichiers excels.

Donc pour la troisième fois je récapitule le nom des fichiers 😀 :

Fichier source ( classeur ---> feuille ) :

Formulaire heures modif 08.xls ----> Mensuel

Fichier destination ( classeur ---> feuille ) :

Synthése Aôut, Sept Modif 07BIS.xls ----> DEC
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

D
  • Résolu(e)
Microsoft 365 rechercher des données d'un autre fichier
2 3
Réponses
35
Affichages
772
job75
job75
Z
  • Question Question
XL 2016 Automatisation transfert données dans un autre fichier
Réponses
1
Affichages
247
C'est papy Mougeot !
C'est papy Mougeot !
anthoYS
  • Résolu(e)
XL 2019 copier des valeurs de la verticale à l'horizontale. Possible d'un coup ?
2
Réponses
20
Affichages
477
gosselien
gosselien
nightswan
  • Question Question
Microsoft 365 Excel : problème de liaison avec un fichier source "Fichier dans un autre domaine"...
Réponses
2
Affichages
583
nightswan
nightswan
F
  • Question Question
Autres problème de cache de TCD menant à des données partielles
2
Réponses
20
Affichages
667
chris
chris
S
  • Question Question
XL 2013 Copier automatiquement des données dans plusieurs onglets
Réponses
4
Affichages
678
Phil69970
Phil69970
yaka
  • Question Question
Microsoft 365 faire une copie d'un fichier stocké dans un sous sous... sous répertoire
2
Réponses
20
Affichages
1 K
TooFatBoy
TooFatBoy
B
  • Question Question
XL 2013 excel Copier coller feuille avec tout le contenue
Réponses
4
Affichages
307
Bodin44
B
O
  • Question Question
XL 2016 transférer les données d'un tableau brut, dans un autre format pour analyse.
Réponses
12
Affichages
786
ORL
O
J
  • Question Question
Microsoft 365 Naviguer dans un tableau pour copier des données dans un modèle et copier l'un derrière l'autre
Réponses
11
Affichages
543
AtTheOne
AtTheOne
Chaton77
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
857
Chaton77
Chaton77
R
  • Question Question
XL 2010 Copie de plusieurs plages de cellules spécifiques dans le presse-papier
2
Réponses
20
Affichages
934
Dranreb
Dranreb
fenec
  • Résolu(e)
XL 2021 Copier une plage de données d'après un critère en VBA
2
Réponses
26
Affichages
1 K
oguruma
oguruma
C
  • Question Question
Microsoft 365 Disparation de données dans des fichiers excel
Réponses
10
Affichages
824
CedricR34
C
L
  • Question Question
Microsoft 365 Recherche dans fichier excel dans un répertoire
2 3 4
Réponses
50
Affichages
3 K
Loulou27
L
Y
  • Résolu(e)
XL 2016 Importer des données suivant l'ordre de passage
2 3
Réponses
32
Affichages
1 K
YGU1
Y
H
  • Question Question
Power Query Récupérer des données multiples dans un dossier
Réponses
9
Affichages
445
hijackfr
H
P
  • Question Question
XL 2016 VBA Appliquer un filtre sur mes données importées
Réponses
4
Affichages
683
sousou
sousou
M
  • Question Question
Autres Copier la ligne complète d’un tableau dans un autre tableau sous condition
Réponses
1
Affichages
530
djidji59430
djidji59430
P
  • Question Question
XL 2019 Macro VBA appliquer un filtre lors d'une importation de données
Réponses
1
Affichages
575
fanch55
fanch55
Retour