Macro et deux fichiers Excel

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion ablinux
  • 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
A

ablinux

XLDnaute Nouveau
Bonjour à tous,

J'ai 2 problèmes à vous soumettre :

Le 1er :

J'ai deux fichiers, qui ont chacune plusieurs feuilles (pas forcement du même noms) composé de plusieurs champs (identiques dans les deux fichiers).

J'insère à chaque fois manuellement des données dans le 1er, et je dois tout le temps reprendre les mêmes process dans le second. Je voudrai avoir une macro qui une fois exécutée, parcours automatiquement le second fichier (donc toutes les feuilles), retrouve le champs correspondant et y insère la donnée.

Le 2ème:

Toujours 2 autres fichiers, mais je dois vérifier dans l'un si certaines données contenues dans l'autre s'y trouvent. Sinon, les créer (insérer les lignes qui y sont absentes).

J'espère avoir été assez clair sur le déroulement du process .

Merci de votre aide.
 
Trier par date Trier par votes
Re : Macro et deux fichiers Excel

Bonjour ablinux, bienvenue sur XLD,

C'est un peu tristounet pour un 1er message de ne pas avoir de réponse, alors je vous ai fait quelque chose, voir les 2 fichiers joints.

1) Tous les champs du 1er fichier sont nommés (onglet Formules-Gestionnaire de noms), et ceux du 2ème sont nommés avec les mêmes noms.

2) Dans ThisWorkbook (Alt+F11) du 1er fichier, cette macro :

Code: 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Source As Range)
Dim fichdest As String, htablo As Long, n As Object, nom As String, plage As Range
fichdest = "Destination(1).xls" [COLOR="Red"]'nom à adapter[/COLOR]
htablo = 200 [COLOR="red"]'hauteur maximum des tableaux, à adapter[/COLOR]
Application.ScreenUpdating = False
On Error Resume Next
'---Ouverture du fichier s'il n'est pas ouvert---
If IsError(Workbooks(fichdest).Name) Then
  Err = 0
  Workbooks.Open ThisWorkbook.Path & "\" & fichdest 'si les 2 fichiers sont dans le même dossier
  If Err Then MsgBox "'" & fichdest & "' introuvable...": Exit Sub
End If
ThisWorkbook.Activate
'---Copie des champs---
For Each n In ThisWorkbook.Names
  nom = n.Name
  Set plage = Nothing 'sécurité...
  Set plage = Range(nom).Resize(htablo)
  If Not Intersect(Source, plage) Is Nothing Then
    Workbooks(fichdest).Activate
    Range(nom).Resize(htablo) = plage.Value
    ThisWorkbook.Activate
  End If
Next
Application.ScreenUpdating = True
End Sub

3) Au début du code, adaptez le nom du fichier et la hauteur maximum des tableaux.

4) Les 2 fichiers doivent être mis dans le même dossier (répertoire), par exemple le bureau.

Normalement ablinux, pour un problème de ce genre, vous auriez dû joindre un fichier, peut-être auriez-vous eu une solution moins lourde et mieux adaptée.

A+
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Macro et deux fichiers Excel

Re,

La macro précédente répercute les modifications du 1er fichier dans le 2ème.

Si on veut aussi qu'une modification du 2ème soit répercutée dans le 1er, il suffit de mettre la même macro dans le ThisWorkbook du 2ème (en adaptant bien sûr fichdest).

Mais dans les 2 macros, il faut alors désactiver l'action des évènements (code en rouge) :

Code: 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Source As Range)
Dim fichdest As String, htablo As Long, n As Object, nom As String, plage As Range
fichdest = "Destination(1).xls" 'nom à adapter
htablo = 200 'hauteur maximum des tableaux, à adapter
Application.ScreenUpdating = False
On Error Resume Next
'---Ouverture du fichier s'il n'est pas ouvert---
If IsError(Workbooks(fichdest).Name) Then
  Err = 0
  Workbooks.Open ThisWorkbook.Path & "\" & fichdest 'si les 2 fichiers sont dans le même dossier
  If Err Then MsgBox "'" & fichdest & "' introuvable...": Exit Sub
End If
ThisWorkbook.Activate
'---Copie des champs---
[COLOR="Red"]Application.EnableEvents = False 'désactive l'action des évènements[/COLOR]
For Each n In ThisWorkbook.Names
  nom = n.Name
  Set plage = Nothing 'sécurité...
  Set plage = Range(nom).Resize(htablo)
  If Not Intersect(Source, plage) Is Nothing Then
    Workbooks(fichdest).Activate
    Range(nom).Resize(htablo) = plage.Value
    ThisWorkbook.Activate
  End If
Next
[COLOR="Red"]Application.EnableEvents = True 'active l'action des évènements[/COLOR]
Application.ScreenUpdating = True
End Sub

A+
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Macro et deux fichiers Excel

Re,

Encore une précision utile.

Si au début vous voulez mettre à jour tous les champs du 2ème fichier, passez en revue chaque feuille du 1er fichier :

- sélectionnez toutes les cellules (clic sur le carré en haut à gauche)

- clic droit => Copier

- clic droit => Coller.

Edit : on peut d'ailleurs faire cela en même temps sur toutes les feuilles :
clic droit sur un onglet => Sélectionner toutes les feuilles.

A+
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Macro et deux fichiers Excel

Re,

Tout ce que je vois c'est 3 feuilles avec 24 colonnes dont les en-têtes sont identiques.

Perso je n'hésiterais pas : je créerais 24 x 3= 72 noms pour appliquer la méthode que j'ai proposée. Mais là c'est à vous de travailler 🙂

Et combien de lignes maximum pouvez vous avoir (pour renseigner la variable htablo) ?

A priori, le 1er et le 2ème problèmes sont identiques : il s'agit de mettre à jour un fichier par rapport à un autre.

Tâchez de bien comprendre ce que fait la macro.

A+
 
Vote positif 0 Vote négatif
Re : Macro et deux fichiers Excel

Bonsoir,

Je viens d'adapter votre code, et ça donne à peu près ceci :

Code: 
Sub Insert_Auto()
'
' Insert_Auto Macro
'

'
    Application.Goto Reference:="Insert_Auto"

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Source As Range)

Dim fichdest As String, htablo As Long, n As Object, nom As String, plage As Range
fichdest = "Destination(1).xls" 'nom à adapter
htablo = 50000 'hauteur maximum des tableaux, à adapter
Application.ScreenUpdating = False

On Error Resume Next

'---Ouverture du fichier s'il n'est pas ouvert---

If IsError(Workbooks(fichdest).Name) Then
  Err = 0
  Workbooks.Open ThisWorkbook.Path & "\" & fichdest 'si les 2 fichiers sont dans le même dossier
  If Err Then MsgBox "'" & fichdest & "' introuvable...": Exit Sub
End If
ThisWorkbook.Activate

'---Copie des champs---

For Each n In ThisWorkbook.Names
  codepar = n.code_part
  part = n.Partenaires
  codeag = n.code_agences
  age = n.agences
  etat = n.code_etat_bons
  bon = n.etat_bons
  Nature = n.Code_Nature_ligne
  ligne = n.nature_ligne
  direct = n.Direction
  affect = n.affectation
  num = n.numero
  baill = n.bailleur
  numfact = n.Numero_Facture
  acompte = n.ACOMPTE_AVANCE
  Final = n.EXECUTION_FINAL
  cumul1 = n.CUMUL_REALISATION
  cumul2 = n.CUMUL_MONTANT
  budg = n.BUDGET
  sold = n.SOLDE
  compte = n.Comptes
  budg2 = n.budget_2010
  rub = n.Rubrique
  
  Set plage = Nothing 'sécurité...
  Set plage = Range(codepar).Resize(htablo)
  Set plage = Range(codeag).Resize(htablo)
  Set plage = Range(age).Resize(htablo)
  Set plage = Range(etat).Resize(htablo)
  Set plage = Range(bon).Resize(htablo)
  Set plage = Range(Nature).Resize(htablo)
  Set plage = Range(ligne).Resize(htablo)
  Set plage = Range(direct).Resize(htablo)
  Set plage = Range(affect).Resize(htablo)
  Set plage = Range(num).Resize(htablo)
  Set plage = Range(baill).Resize(htablo)
  Set plage = Range(numfact).Resize(htablo)
  Set plage = Range(acompte).Resize(htablo)
  Set plage = Range(Final).Resize(htablo)
  Set plage = Range(cumul1).Resize(htablo)
  Set plage = Range(cumul2).Resize(htablo)
  Set plage = Range(budg).Resize(htablo)
  Set plage = Range(sold).Resize(htablo)
  Set plage = Range(compte).Resize(htablo)
  Set plage = Range(budg2).Resize(htablo)
  Set plage = Range(rub).Resize(htablo)

If Not Intersect(Source, plage) Is Nothing Then
    Workbooks(fichdest).Activate
    Range(nom).Resize(htablo) = plage.Value
    ThisWorkbook.Activate
  End If
Next
Application.ScreenUpdating = True
End Sub
 
Vote positif 0 Vote négatif
Re : Macro et deux fichiers Excel

Bonjour ablinux, le forum,

Pas compris votre "adaptation", je n'ai rien indiqué de tel 😉

Les champs doivent être définis dans les feuilles, pas en VBA.

Maintenant avec 50000 lignes à copier, ça risque d'être long !!!

A+
 
Vote positif 0 Vote négatif
Re : Macro et deux fichiers Excel

Bonjour job75,

Mais votre code ci
Code: 
nom = n.Name
Set plage = Range(nom).Resize(htablo)

M'avait laisser de croire qu'il fallait indiquer tous les champs à ce niveau.

Une question : J'ai bien lu le code, mais je sais pas s'il tient en compte les autres fichiers dans le même répertoire?

Cdlt !
 
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

Discussions similaires

F
  • Question Question
XL 2016 Fusion 1 onglet de plusieurs fichiers EXCEL
Réponses
1
Affichages
149
chris
chris
P
  • Résolu(e)
XL 2016 VBA Insérer une date dans le nom de fichiers PDF publipostés via WORD à partir d"excel
Réponses
3
Affichages
534
PHIL37
P
F
  • Question Question
Microsoft 365 Excel - Report des valeurs et détection de doublons
Réponses
7
Affichages
248
djidji59430
djidji59430
A
  • Question Question
Microsoft 365 Macro pour recherche de cellules entre 2 fichiers Excel
Réponses
7
Affichages
351
AtTheOne
AtTheOne
F
  • Question Question
XL 2021 Power Query : extraire tableaux et données de PDF
Réponses
0
Affichages
358
Florent74
F
Armisa
  • Résolu(e)
XL 2016 Optimisation des fichiers Excel volumineux
Réponses
4
Affichages
378
Armisa
Armisa
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
564
JJ69
J
N
  • Résolu(e)
XL pour MAC Erreur à l'enregistrement de plusieurs fichiers Excel
Réponses
5
Affichages
377
Noymie
N
O
  • Résolu(e)
Microsoft 365 Amélioration/réparation d'une Macro et création d'un bouton pour calcul consommation
2
Réponses
27
Affichages
1 K
Olihoes
O
cathodique
  • Résolu(e)
XL 2010 Problème màj feuilles depuis fichiers CSV
2
Réponses
23
Affichages
3 K
cathodique
cathodique
L
  • Résolu(e)
XL 2016 Pb publipostage conditionnelle avec base de données Excel
Réponses
1
Affichages
504
Linda42
L
L
  • Résolu(e)
XL 2016 Récupérer données de différents fichiers Excel et rappatrier dans 1 seul fichier
Réponses
5
Affichages
877
LAPIN-53
L
jeff1494
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
758
jeff1494
jeff1494
W
  • Question Question
Microsoft 365 Formule combinant multiples critères et OU
Réponses
4
Affichages
598
Wiil85
W
P
  • Résolu(e)
XL 2021 Besoin d'aide pour copier/coller données de plusieurs classeurs
2
Réponses
20
Affichages
1 K
Pac41240
P
M
  • Résolu(e)
Microsoft 365 Problème Excel Macros Liaison Ppt
Réponses
11
Affichages
551
D. HANIB
D
D
  • Question Question
XL 2021 excel - vbs - csv
2
Réponses
28
Affichages
2 K
Deleted member 441486
D
P
  • Question Question
Microsoft 365 Modification fichiers .xml via macro
Réponses
10
Affichages
565
patricktoulon
patricktoulon
S
  • Résolu(e)
Microsoft 365 Power Query Lancer un ensemble de requetes sur plusieurs fichiers excel
Réponses
2
Affichages
653
Sokko
S
N
  • Question Question
XL 2019 Lier deux fichiers pour traitements de données sur Excel et ou google sheets
Réponses
0
Affichages
482
nhaeliko
N
Retour