Discussion :

[Chawkii]

Bonjour,

Pourriez-vous m'aider, SVP, afin que je puisse faire cette opération:

J'ai un classeur Excel source dans lequel j'ai des cellules à copier dans un autre classeur. Mon problème c'est que je n'arrive pas à trouver le code vba adéquat.
Voici mon code à l'état et merci d'avance pour toute aide

[Menhir]

Tu devrais copier ton code sous forme de texte, de préférence avec des balises CODE (l'icone # dans l'éditeur du forum).
Ce serait plus pratique pour t'expliquer ce qui ne va pas.

Une question : ta macro est-elle exécutée sous Excel ou la lances-tu depuis une autre application ?

[Chawkii]

Bonjour Menhir,

Merci pour ton retour.
J'ai modifié mon code hier soir et ça bloque !!
En PJ, mes deux fichiers. En fait, dans un premier temps je remplie mon fichier "Tableau de bord QA" ensuite je génère le fichier "QA" via le bouton 'générer QA' (là j'ai aucun problème). Par la suite, le fichier devra automatiquement copier à partir du fichier "Tableau de bord QA" quelques cellules de la ligne 29 et les coller dans le fichier "QA".
Merci d'avance pour ton aide

[BENNASR]

Bonjour chawki, la forum
voila mon code pour importer des données d'un classeur fermé..à adapter pour ton cas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub importProdVte()
Dim wkA As Workbook, wkB As Workbook
Dim chemin As String, fichier As String
Dim j As Long
Application.ScreenUpdating = False
Set wkA = ThisWorkbook
chemin = "Z:\TRAVAUX COMPTABLES BNA\Controle de Gestion\"
fichier = "RAPPORT JOURNALIER.xlsx"
Workbooks.Open chemin & fichier
Set wkB = ActiveWorkbook
 j = wkB.Sheets("Alf3").Range("A" & Rows.Count).End(xlUp).Row
wkA.Sheets("Vente").Range("C1:G" & j).Value = wkB.Sheets("Alf3").Range("D1:H" & j).Value
wkA.Sheets("Vente").Range("A1:B" & j).Value = wkB.Sheets("Alf3").Range("L1:M" & j).Value
 
wkB.Close True
 
 Application.ScreenUpdating = True
 
End Sub

[Menhir]

En PJ, mes deux fichiers.

Beaucoup de participants n'ouvrent pas les pièces jointes, entre autre pour les raisons expliquées ici :
https://www.developpez.net/forums/d8...s-discussions/

Je le répète, il vaudrait mieux que tu copies ton code (ou du moins la partie importante) dans un message avec des balises CODE.

Il est conseillé également de répondre aux questions qu'on pose.

Par la suite, le fichier devra automatiquement copier à partir du fichier "Tableau de bord QA" quelques cellules de la ligne 29 et les coller dans le fichier "QA".

Pour copier des données d'une feuille à une autre, il y a plusieurs méthodes :
Pour copier uniquement la valeur d'une cellule, le plus simple est de mettre la référence de ta destination = la référence de ta source.

S'il y a plusieurs cellules, tu peux passer par la méthode Copy qui copie aussi bien les valeurs que le format (et les autres compléments).
https://msdn.microsoft.com/fr-fr/lib.../ff837760.aspx

Si tu ne veux copier que les valeurs, il faut associer la méthode Copy sur la référence source à la méthode PasteSpecial sur la référence destination.
https://msdn.microsoft.com/fr-fr/lib.../ff839476.aspx

[Chawkii]

Bonjour à vous,

Merci beaucoup pour votre aide.
BNNACER, ton code fonctionne parfaitement

Bonne journée à vous,