Mettre a jour des données sur 2 fichiers
Résolu/Fermé
vigie5656
Messages postés
9
Date d'inscription
mercredi 2 septembre 2015
Statut
Membre
Dernière intervention
3 février 2019
-
Modifié par Whismeril le 3/09/2015 à 21:59
vigie5656 Messages postés 9 Date d'inscription mercredi 2 septembre 2015 Statut Membre Dernière intervention 3 février 2019 - 9 sept. 2015 à 09:10
vigie5656 Messages postés 9 Date d'inscription mercredi 2 septembre 2015 Statut Membre Dernière intervention 3 février 2019 - 9 sept. 2015 à 09:10
A voir également:
- Mettre a jour des données sur 2 fichiers
- Mettre a jour chrome - Accueil - Applications & Logiciels
- Mettre à jour ses pilotes - Guide
- Mise a jour windows 10 - Accueil - Mise à jour
- Renommer des fichiers en masse - Guide
- Trier des données excel - Guide
6 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 312
4 sept. 2015 à 08:19
4 sept. 2015 à 08:19
Bonjour,
merci pour les codes mais où sont les classeurs comme tu l'indiques
Mettre le classeur sans données confidentielles en pièce jointe sur https://www.cjoint.com/
et coller le raccourci proposé (clic droit) dans le message de réponse
D'ores et déià, il y a des choses bizzares dans ton code: variables tableaux commencant à 3, des AR apparemment inutiles entre les 2 classeurs, des boucles inutiles aussi...
mais sans voir les classeurs...
Dans l'attente
merci pour les codes mais où sont les classeurs comme tu l'indiques
Mettre le classeur sans données confidentielles en pièce jointe sur https://www.cjoint.com/
et coller le raccourci proposé (clic droit) dans le message de réponse
D'ores et déià, il y a des choses bizzares dans ton code: variables tableaux commencant à 3, des AR apparemment inutiles entre les 2 classeurs, des boucles inutiles aussi...
mais sans voir les classeurs...
Dans l'attente
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 312
Modifié par michel_m le 6/09/2015 à 08:23
Modifié par michel_m le 6/09/2015 à 08:23
Bonjour,
Gros problème de DDL manquante. pas la 1° fois avec des extractions-cjoint + zip Windows
bien sûr la macro était terminée et en cours d'essais.... :-(
envoie moi les 2 classeurs séparement non zippés
d'avance merci
edit:
dans la réalité, combien as tu de lignes dans export ?
Michel
Gros problème de DDL manquante. pas la 1° fois avec des extractions-cjoint + zip Windows
bien sûr la macro était terminée et en cours d'essais.... :-(
envoie moi les 2 classeurs séparement non zippés
d'avance merci
edit:
dans la réalité, combien as tu de lignes dans export ?
Michel
vigie5656
Messages postés
9
Date d'inscription
mercredi 2 septembre 2015
Statut
Membre
Dernière intervention
3 février 2019
6 sept. 2015 à 15:10
6 sept. 2015 à 15:10
Merci Michel pour to aide
Le fichier "EUREKA-Transfo.xlsm" disponible ici:
https://www.cjoint.com/c/EIgngxVlNvu
Le document "Export-eureka.xlsm" disponible ici:
https://www.cjoint.com/c/EIgngR6biRu
Voilà ces 2 classeurs non zippés.
Cdlt
Le fichier "EUREKA-Transfo.xlsm" disponible ici:
https://www.cjoint.com/c/EIgngxVlNvu
Le document "Export-eureka.xlsm" disponible ici:
https://www.cjoint.com/c/EIgngR6biRu
Voilà ces 2 classeurs non zippés.
Cdlt
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 312
7 sept. 2015 à 10:07
7 sept. 2015 à 10:07
Bonjour
Décidément !!!
m^me coup qu'hier. message de Microsoft
sincèrement désolé :-((
Décidément !!!
m^me coup qu'hier. message de Microsoft
<?xml version="1.0" encoding="UTF-8" standalone="true"?>
-<recoveryLog xmlns="http://schemas.openxmlformats.org/spreadsheetml/2006/main">
<logFileName>error037120_01.xml</logFileName>
<summary>Des erreurs ont été détectées dans le fichier « D:\docus\EUREKA-Transfo.xlsm »</summary>
-<removedFeatures summary="Liste des fonctionnalités supprimées ci-dessous :">
<removedFeature>Fonction supprimée: Objet dans la partie /xl/workbook.xml (Classeur)</removedFeature>
<removedFeature>Fonction supprimée: OLE Control Extension dans la partie /xl/workbook.xml (Classeur)</removedFeature>
</removedFeatures>
</recoveryLog>
sincèrement désolé :-((
vigie5656
Messages postés
9
Date d'inscription
mercredi 2 septembre 2015
Statut
Membre
Dernière intervention
3 février 2019
Modifié par Whismeril le 8/09/2015 à 21:46
Modifié par Whismeril le 8/09/2015 à 21:46
Ok, 2 nouvelles tentatives :
Le lien a été crée : https://www.cjoint.com/c/EIhi7YQ8YkK
Le lien a été crée : https://www.cjoint.com/c/EIhjaHs8N2K
Si non ok,, tu peux me communiquer une autre adresse ? Mon e-mail : adresse email modérée
cdlt
Christophe
Le lien a été crée : https://www.cjoint.com/c/EIhi7YQ8YkK
Le lien a été crée : https://www.cjoint.com/c/EIhjaHs8N2K
Si non ok,, tu peux me communiquer une autre adresse ? Mon e-mail : adresse email modérée
cdlt
Christophe
vigie5656
Messages postés
9
Date d'inscription
mercredi 2 septembre 2015
Statut
Membre
Dernière intervention
3 février 2019
7 sept. 2015 à 11:23
7 sept. 2015 à 11:23
Re bonjour,
Je viens d'utiliser We transfert, et là ça fonctionne.
Le lien : http://we.tl/qwUWHgd5Le
Cdlt
Je viens d'utiliser We transfert, et là ça fonctionne.
Le lien : http://we.tl/qwUWHgd5Le
Cdlt
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 312
8 sept. 2015 à 07:53
8 sept. 2015 à 07:53
Bonjour,
Grace à Eriiic, le problème semble résolu!
cela venait du fait que je n'ai pas Outlook d'installé sur mon coucou
Donc, je vais essayé de t'envoyer le code ce matin (je ne suis pas là cet après-midi)
Grace à Eriiic, le problème semble résolu!
cela venait du fait que je n'ai pas Outlook d'installé sur mon coucou
Donc, je vais essayé de t'envoyer le code ce matin (je ne suis pas là cet après-midi)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 312
Modifié par Whismeril le 8/09/2015 à 21:47
Modifié par Whismeril le 8/09/2015 à 21:47
re,
voilà le code, (ouf !!!)
Michel
voilà le code, (ouf !!!)
Option Explicit Option Base 1 '------ Sub ccm_maj() Dim Derlig As Integer, T_ref, T_maj Dim Cptr As Integer, Lig As Integer, Col As Byte Application.ScreenUpdating = False 'fige l'écran: confort et rapidité 'mémorisation des modifs With ThisWorkbook.Sheets("base") Derlig = .Columns("B").Find(what:="*", searchdirection:=xlPrevious).Row T_ref = Application.Transpose(.Range("B3:B" & Derlig)) T_maj = .Range("N3:U" & Derlig) End With 'ouverture de la datebase Workbooks.Open Filename:=ThisWorkbook.Path & "\" & "Export-eureka.xlsm" 'A ADAPTER With Sheets("data") For Cptr = 1 To UBound(T_ref) On Error GoTo inconnu Lig = Columns("B").Find(T_ref(Cptr), .Range("B2"), xlValues).Row For Col = 14 To 21 .Cells(Lig, Col) = T_maj(Cptr, Col - 13) Next Next End With 'sauvegarde et fermeture export à voir Exit Sub 'gestionnaire erreurs inconnu: MsgBox " Reférence " & T_ref(Cptr) & " inconnue dans Export-Eureka !", vbCritical End Sub
Michel
EDIT : Ajout du LANGAGE dans les balises de code.
Explications disponibles ICI Merci d'y penser dans tes prochains messages. |
vigie5656
Messages postés
9
Date d'inscription
mercredi 2 septembre 2015
Statut
Membre
Dernière intervention
3 février 2019
8 sept. 2015 à 10:59
8 sept. 2015 à 10:59
Merci,
C'est vraiment différent de ma proposition !
Merci beaucoup, j'essaye ce code ce soir.
Cdlt
Chrsitophe
C'est vraiment différent de ma proposition !
Merci beaucoup, j'essaye ce code ce soir.
Cdlt
Chrsitophe
vigie5656
Messages postés
9
Date d'inscription
mercredi 2 septembre 2015
Statut
Membre
Dernière intervention
3 février 2019
8 sept. 2015 à 11:49
8 sept. 2015 à 11:49
Michel, je viens de tester le code, ça marche.
1 question :
Je ne connais pas cette expression what:="*"... mais cela fonctionne, tu peux m'en dire plus pour ma culture.
Derlig = .Columns("B").Find(what:="*", searchdirection:=xlPrevious).Row
1 souci qui n'est pas bien grave, quand je n'ai qu'une ligne dans le tableau EUREKA Transfo, la fenêtre avec débogage apparait et la macro s'arrête, la ligne suivante est surligné en jaune
For Cptr = 1 To UBound(T_ref)
1 question :
Je ne connais pas cette expression what:="*"... mais cela fonctionne, tu peux m'en dire plus pour ma culture.
Derlig = .Columns("B").Find(what:="*", searchdirection:=xlPrevious).Row
1 souci qui n'est pas bien grave, quand je n'ai qu'une ligne dans le tableau EUREKA Transfo, la fenêtre avec débogage apparait et la macro s'arrête, la ligne suivante est surligné en jaune
For Cptr = 1 To UBound(T_ref)
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 312
8 sept. 2015 à 18:48
8 sept. 2015 à 18:48
as tu bien copié
option base 1
?
pour find explication demain
option base 1
?
pour find explication demain
vigie5656
Messages postés
9
Date d'inscription
mercredi 2 septembre 2015
Statut
Membre
Dernière intervention
3 février 2019
8 sept. 2015 à 21:10
8 sept. 2015 à 21:10
Bonsoir,
Oui, j'ai bien noté "Option Base 1"
Je ne comprends pas.
Cdlt
Christophe
Oui, j'ai bien noté "Option Base 1"
Je ne comprends pas.
Cdlt
Christophe
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 312
9 sept. 2015 à 08:22
9 sept. 2015 à 08:22
Bonjour
la macro modifiée
pour ta question
"dans la colonne B trouve la dernière cellule avec quelque chose dedans (what), en remontant (xlprevious)"
Il y en a d'autres mais c'est celle que je me souviens...
la macro modifiée
Option Explicit
Option Base 1
Sub ccm_maj()
Dim Derlig As Integer, T_ref, T_maj
Dim Cptr As Integer, Lig As Integer, Col As Byte, Nbre As Integer
Application.ScreenUpdating = False 'fige l'écran: confort et rapidité
'mémorisation des modifs
With ThisWorkbook.Sheets("base")
Derlig = .Columns("B").Find(what:="*", searchdirection:=xlPrevious).Row
T_ref = .Range("B3:B" & Derlig)
T_maj = .Range("N3:U" & Derlig)
If Derlig = 3 Then
Nbre = 1
Else
Nbre = UBound(T_ref)
End If
End With
'ouverture de la datebase
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & "Export-eureka.xlsm" 'A ADAPTER
With Sheets("data")
For Cptr = 1 To Nbre
If Nbre = 1 Then
Lig = Columns("B").Find(T_ref, .Range("B2"), xlValues).Row
Else
Lig = Columns("B").Find(T_ref(Cptr), .Range("B2"), xlValues).Row
End If
For Col = 14 To 21
.Cells(Lig, Col) = T_maj(Cptr, Col - 13)
Next
Next
End With
'sauvegarde et fermeture export à voir
Exit Sub
'gestionnaire erreurs
inconnu:
MsgBox " Reférence " & T_ref(Cptr) & " inconnue dans Export-Eureka !", vbCritical
End Sub
pour ta question
"dans la colonne B trouve la dernière cellule avec quelque chose dedans (what), en remontant (xlprevious)"
Il y en a d'autres mais c'est celle que je me souviens...
vigie5656
Messages postés
9
Date d'inscription
mercredi 2 septembre 2015
Statut
Membre
Dernière intervention
3 février 2019
9 sept. 2015 à 09:10
9 sept. 2015 à 09:10
Merci pour tout
Mon problème est résolu et j'ai progressé dans ma compréhension d'Excel.
Cdlt
Christophe
Mon problème est résolu et j'ai progressé dans ma compréhension d'Excel.
Cdlt
Christophe
4 sept. 2015 à 16:29
Ci-joint le lien : http://www.cjoint.com/c/EIeoBOpfiWK
Merci
4 sept. 2015 à 16:45
je m'occuperai de çà demain ou après-demain !
4 sept. 2015 à 21:40