Discussion :

[mariet18]

Bonjour,

Je voudrais créer une macro sur excel pour automatiser le remplissage de fichier excel mais je suis novice dans ce domaine et je souhaiterai un peu d´aide

Ma requête est la suivante :

J´ai un fichier d´origine et je voudrais prendre 5 données de ce fichier et rajouter une ligne avec ces 5 données (appelons les A,B,C,D,E) dans plusieurs fichiers excel. Tous les fichiers réceptions sont présents dans un même dossier et les données sont copiées seulement dans les fichiers qui dans une de leurs cases ont la donnée A. Cette donnée A est aussi présente dans une des cases du fichier origine.

Auriez-vous quelques indications ou un début de code à me donner pour réussir à faire cela ?
Merci beaucoup

[BENNASR]

bonsoir
Je crois que c'est difficile de comprendre ta demande au moins pour moi ; débutant et autodidacte en VBA
mais si tu cherche à récupérer des données d'un dossier fermé voila un code commenté à adapter à tes besoins

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
Sub importProdVte()
Dim wkA As Workbook, wkB As Workbook
Dim chemin As String, fichier As String
Dim j As Long
Application.ScreenUpdating = False ' arrêter l'affichage de l'écran pour gagner en temps d'exécution du code
Set wkA = ThisWorkbook 'le fichier ouvert pour recevoir les données
chemin = "Z:\TRAVAUX COMPTABLES BNA\Controle de Gestion\" 'adresse du dossier à ouvrir
fichier = "RAPPORT JOURNALIER.xlsx" 'classeur à ouvrir
Workbooks.Open chemin & fichier ' ouvrir le classeur
Set wkB = ActiveWorkbook
 j = wkB.Sheets("Alf3").Range("A" & Rows.Count).End(xlUp).Row ' chercher la dernière cellule non vide de l'onglet ou se trouve les données
wkA.Sheets("Feuil1").Range("C1:G" & j).Value = wkB.Sheets("Alf3").Range("D1:H" & j).Value ' copier les données
 
 
wkB.Close True ' fermer le classeur source
 Application.ScreenUpdating = True 'reprendre l'affichage arrêté si haut
End Sub

J'espère que ça te donne un début de piste
BONNE CONTINUATION