Remplir un fichier Excel à partir d'autres

Version imprimable

07/12/2018, 11h31
bodiallo

Remplir un fichier Excel à partir d'autres
Bonjour,

j'ai à remplir un fichier Excel à partir d'autres fichiers Excel en lecture chaque jour de l'année. Je veux automatiser cette tâche et ce remplissage de chaque jour se fait sur une nouvelle colonne.
voici les questions sur lesquelles j'ai besoin de votre aide
1. Faut-il le faire avec Macro ou VBA ?
2. Comment le faire ?
3. Un exemple en fichier Excel
07/12/2018, 11h37
MarcelG

Bonjour et bienvenu,

Citation:

avec Macro ou VBA?

Franchement, si tu peux expliquer la différence, je suis preneur.:)

Citation:

comment le faire ?

N'ayant pas d'idée sur l'organisation des données, répondre à cette question me semble difficile.
Quand bien même, aurais-tu le commencement d'un code à soumettre?
07/12/2018, 12h04
bodiallo

La manière de réaliser une macro n'est pas la même en VBAn c'est ce que je pense. Bon je suis débutant.
07/12/2018, 12h14
MarcelG

Citation:

la manière de réaliser un macro n'est pas la même en VBA

Ah bon!
:calim2:

Sérieux.
Je te conseille d'aborder les fondamentaux avant de chercher à développer.
Pour cela, tu peux consulter les liens indiqués dans cette discussion.

Bonne continuation.
07/12/2018, 12h31
bodiallo

1 pièce(s) jointe(s)

C'est le fichier dans lequel je vais ranger les données chaque jours

pour les fichiers sources on peut les trouvés dans différents chemin par exemple:

X:/stockage/ Formations/Matériel/zen/use/classeur1.xlsx

C:/Amelioration/ Formations/Matériel/classeur2.xlsx

D:/doc/classeur3.xlsx

D:/archive/Document/Formations/classeur4.xlsx

Donc pour chaque information, insérer une colonne 2 colonnes avant la dernière et recopier les données.

Pour définir l' "avant avant" dernière colonne
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Option Explicit Public Sub essai_col() Dim dercol As Integer With Worksheets("Feuil1") dercol = .Cells(1, .Columns.Count).End(xlToLeft).Column - 2 Debug.Print dercol End With End Sub
Ce modeste code et les liens que je t'ai indiquées devraient t'être utiles.

08/12/2018, 12h56
bodiallo

merci et explication

j'explique le remplissage de Classeur1.xlsx à partir des 5 classeurs

supposons que nous sommes le 1er décembre

jour1: je remplis quelques cellules de la colonne du 1er décembre avec les données disponible dans les 5 classeurs

NB: les données des cellules manquantes du 1er seront disponible au jour suivant c-à-d le 2déc

jour2: je remplis les cellules du 1er jour pour compléter la colonne du 1er puis je renseigne quelques cellules de la colonne du 2 décembre

...

jour31: cette colonne sera complété avec les données du 1er jan

autrement dit je boucle le remplissage d'une colonne du jour précédant puis je commence celle du jour

j'espère que je suis explicite
09/12/2018, 11h06
patricktoulon

re

re
oui on a tres bien compris
on a plus qu'a souhaiter que l'organisation de tes donnée dans tes 5 fichiers soit aussi bien organisées sinon ce sera la cata

tres tres mauvaise idée ce retour en arriere il faudrait que les données soit beton et la date de ces données accessible via vba donc certainement une colonne date dans tes 5 fichiers
sans ca c'est mort abandonne cette idée
autant se contenter de faire cette mise a jour en fonction des donnée de la veille 1 er janvier on recupere le 31 decembre et c'est tout
dans le cas contraire tu a INTERET a betonner les données en amont sur tes 5 fichiers pour que ton principe de retour ou jour actuel fonctionne
bon courage ;)
10/12/2018, 16h53
bodiallo

merci

se contenter de faire cette mise a jour en fonction des donnée de la veille 1 er janvier on recupere le 31 decembre

je compte proceder ainsi et je vous reviens

merci
28/12/2018, 11h40
bodiallo

remplissage via une macro

bonjour

j'ai réalisé une macro qui me copie des valeurs de cellules de mes différents fichiers sources et les collent dans la colonne du jour-1

cependant deux de mes fichiers sources sont dynamique (c-à-d que les données que je copies change chaque jour dans le même feuille et même cellule).
j'ai un autre fichier source qui est renommé du jour au jour (exemple :hier: Mon rapport_27122017; aujourd'hui:Mon rapport_27122018; demain :Mon rapport_27122019).

1-pouvez vous m'aider à réaliser une macro qui fait un copier coller des valeurs. il va me permet de les garder malgré qu'ils n'existent plus dans le fichier source, si cela est possible bien sûr sinon une alternative.

2- pouvez vous m'aider à réaliser une macro qui permet de retrouver le fichier source du jour puis copier les valeurs des cellules cibles et coller dans mon fichier destination.

merci d'avance pour tous vos apports

bonjour j'ai fait un code qui ce que je veux.je le poste pour que d'autres puisse s'en servire; aussi pour que les PRO-VBA ou EXPERT de la PROGRAMMATION puis le parfaire à travers plusieurs questions dont j'en ai deux.

lorsqu'un de mes fichiers s'ouvre, ce message s'affiche "ce classeur comporte des liaisons...Si ces liaisons fiables,mettez-les à jour pour ..." et je clique le bouton "mettre à jour" puis un autre message "voulez vous enregistrer le...." je clique sur "ne pas enregistrer" pour continue sans enregistrer une copier.

j'aimerai que la mise à jour se fasse Question1: comment le faire? car Application.ScreenUpdating = true/false ne m'aide.
puis que "ne pas enregistrer" se fasse automatique dans mon code.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
 
 
Sub Copierfichierfermeretcollerici()
 
    ' Déclaration des variables
    Dim base, base1 As Worksheet
    Dim i, colonne, ligne, lastline As Integer
    Dim rg, rg1 As Range
    Dim SheetName As String
 
    ' Initialisation de la variable ligne
    SheetName = ActiveWorkbook.ActiveSheet.Name '------------------------RECUPERATION DU NOM DE LA FEUILLE------------------------
    Set base = Sheets(SheetName)
 
        '---------------boucle retournant la ligne du jour prédedent dans mon classeur destination---------------
        For Each rg In base.Range("C3:AG3")
            If rg = Date - 1 Then
                ligne = rg.Row
                colonne = rg.Column
            End If
         Next rg
         '--------------------------fin de la boucle for----------------------------
 
    ' Boucle permettant de sélectionner plusieurs fichiers
    Do
        ' Sélection du classeur source à partir d'une fenêtre
        cheminfichier = Application.GetOpenFilename("Fichiers Excels (*.xlsx), *.xlsx")
 
        ' Si on clique sur Annuler dans la fenêtre, on sort de la boucle
        If cheminfichier = False Then
            Exit Do
        End If
 
        'Ouverture du classeur source
        Workbooks.Open cheminfichier
 
        ' Récupération du nom du classeur + extension
        For i = Len(cheminfichier) To 1 Step -1
            If Mid(cheminfichier, i, 1) = "\" Then Exit For
        Next
 
        nomfichier = Mid(cheminfichier, i + 1, Len(cheminfichier))
 
        Set base1 = Workbooks(nomfichier).Sheets("Data Graph")
 
        '---------------boucle retournant la ligne du jour prédedent dans mon classeur source---------------
         For Each rg1 In base1.Range("B1:B1000")
            If rg1 = Date - 1 Then
                lastline = rg1.Row
            End If
         Next rg1
         '--------------------------fin de la boucle for----------------------------
 
        ' Copie des valeurs entre les classeurs
 
        '------------------------------INVENTAIRE------------------------------------
        ThisWorkbook.Sheets(SheetName).Cells(ligne + 1, colonne) = Workbooks(nomfichier).Sheets("Data Graph").Range("AV" & lastline).Value  '---------INVENTAIRE CASSE       trouver la derniere ligne sur AS
        ThisWorkbook.Sheets(SheetName).Cells(ligne + 2, colonne) = Workbooks(nomfichier).Sheets("Data Graph").Range("BA" & lastline).Value     '---------TENEUR INVENTEUR MINERAI
 
 
        ' Fermeture du classeur source
        Workbooks(nomfichier).Close
 
   Loop
 
End Sub

je pense que mon code peut se faire sans demander une action à l'utilisateur; question intermédiaire: comment le faire?

question 2

dans mon classeur source,je veux dupliquer (code VBA) ma feuille mais que l'affichage du nombre de colonne se fasse selon le nombre de jour du mois; comment le faire ?

votre aide me sera précieuse, merci d'avance

07/01/2019, 10h03
MarcelG
Bonjour Bordialo, Bonjour le Forum

1 - Mise à jour automatique des liaisons
Code:

1 2 Application.AskToUpdateLinks = False ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources
2 - Calcul du nombre de jour du mois

Calculer la série de date (DateSerial) du 1er du mois suivant de l'année
Retirer 1 de ce nombre
Calculer le jour (Day) de cette série de date
15/01/2019, 19h08
bodiallo

bonjour / bonsoir
après une semaine de repos, je suis de retour pour la poursuite de mon projet

j'ai utilisé la fonction qui m'a été proposé pour la mise à jour automatique en arrière plan mais cela n'a pas resolu mon problème
j'utilise

Code:

Application.ScreenUpdating = True

mais rien; j'attend votre aide encore
15/01/2019, 19h15
clementmarcotte

Bonjour,

Code:

Application.ScreenUpdating = True

Cela sert à ré-activer la mise à jour de l'écran quand elle a été suspendue avec False et rien d'autre. Cela n'a aucun effet sur la mise à jour des données.
16/01/2019, 11h25
bodiallo

ok merci pour ton intervention, seulement même quand je l'initialise à FALSE cette notification s'affiche.

mon objectif c'est qu'à l'ouverture du fichier le COPIER COLLER se fasse sans notification
16/01/2019, 13h15
bodiallo

réaliser un graphique à partir du fichier

voici la suite de ma tâche
j'ai réalisé un graphique à partir de quelques lignes de ma feuille mensuelle de JANVIER.je dois garder ce graphique sur une autre feuille avec un menu déroulante permet d'afficher les mois + L'année.

Travail A Faire : je dois permet à l'utilisateur de cliquer un mois donné dans la liste déroulante et la courbe du graphique évolue selon les données journaliers du mois sélectionné. ainsi sur le même graphique lorsque l'utilisateur sélectionne un mois donné , la tendance de la courbe s'affiche

celui ou celle qui a déjà fait un travail similaire pourra me joindre le fichier
j'attend votre aide. Merci d'avance