Envoi donnees d`un fichier a un autre ouvert

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

MOI

Guest
Bonsoir, c`est MOI

J`ai besoin de toi pour un probleme d`envoie de donnees.

J`ai un file ouvert avec des infos saisies ds des cellules specifiques et je veux envoyer ces infos ds un tableau situe ds un autre fichier les infos devant se mettre ligne par ligne.

Je recois + de 100 fichiers identiques et je dois copier ces infos donc une macro est la solution.

Alors je fais appel encore une fois au XLD people.

Ci-joint un fichier qui je l`espere est assez clair -

Merci pour votre aide

MOI [file name=envoiedonneesdsfileopen.zip size=7115]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/envoiedonneesdsfileopen.zip[/file]
 

Pièces jointes

Trier par date Trier par votes
Bonjour MOI

un code à placer dans ton classeur final, à lancer quand la feuille source est affichée.
on peut le coupler avec des routines d'ouverture de fichiers mais fournis les feuilles exemples.

Cordialement, A+

Code: 
Sub trans_donnees()
With ThisWorkbook.Sheets('Allocation_Country')
With .Range('A65536').End(xlUp).Offset(1, 0)
.Value = Range('B3').Value
.Offset(0, 1).Value = Range('B4').Value
If Range('B9').Value = 0 Then .Offset(0, 2).Value = 0 Else .Offset(0, 2).Value = Range('B9').Value
If Range('B8').Value = 0 Then .Offset(0, 3).Value = 0 Else .Offset(0, 3).Value = Range('B8').Value
If Range('B10').Value = 0 Then .Offset(0, 4).Value = 0 Else .Offset(0, 4).Value = Range('B10').Value
If Range('B11').Value = 0 Then .Offset(0, 5).Value = 0 Else .Offset(0, 5).Value = Range('B11').Value
End With
End With
With ThisWorkbook.Sheets('Allocation_Project')
With .Range('A65536').End(xlUp).Offset(1, 0)
.Value = Range('B3').Value
.Offset(0, 1).Value = Range('B4').Value
If Range('B14').Value = 0 Then .Offset(0, 2).Value = 0 Else .Offset(0, 2).Value = Range('B14').Value
If Range('B15').Value = 0 Then .Offset(0, 3).Value = 0 Else .Offset(0, 3).Value = Range('B15').Value
If Range('B16').Value = 0 Then .Offset(0, 4).Value = 0 Else .Offset(0, 4).Value = Range('B16').Value
If Range('B17').Value = 0 Then .Offset(0, 5).Value = 0 Else .Offset(0, 5).Value = Range('B17').Value
End With
End With
End Sub
[file name=envoiedonneesdsfileopen_2.zip size=10987]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/envoiedonneesdsfileopen_2.zip[/file]
 

Pièces jointes

Vote positif 0 Vote négatif
Salut, je reviens.

J'ia pris ton code et j'essai d'joauter que si loe Nom saisi en B3 n'appartient pas à une liste ('Nom_Staff') située ds le fichier de destination Workbook ('Gestion_Personnel').Worksheets('Liste_Staff') (colonne B2:B1000 pour info), alors les données ne sont pas envoyées

j'ai donc corrige un peu le code mais ça veut pas marcher

Sub CommandButton1_Click()

Dim Liste_Staff() As String
Dim Trouver As Boolean

If Range('B3').Value = '' Then
MsgBox 'Pas de Nom de Famille, donc il n'y a rien à exporter, arrêt de la macro !', vbCritical + vbOKOnly, 'Erreur...'
Exit Sub 'la je dis si pas de nom rien ne s'envoie pour eviter pb
End If

If Range('B3').Value = ('Nom_Staff') Then
'ici si la value en B3 appartient à la liste ('Nom_Staff') alors j'envoie
With ThisWorkbook.Sheets('Allocation_Country')
With .Range('A65536').End(xlUp).Offset(1, 0)
.Value = Range('B3').Value
.Offset(0, 1).Value = Range('B4').Value
If Range('B9').Value = 0 Then .Offset(0, 2).Value = 0 Else .Offset(0, 2).Value = Range('B9').Value
If Range('B8').Value = 0 Then .Offset(0, 3).Value = 0 Else .Offset(0, 3).Value = Range('B8').Value
If Range('B10').Value = 0 Then .Offset(0, 4).Value = 0 Else .Offset(0, 4).Value = Range('B10').Value
If Range('B11').Value = 0 Then .Offset(0, 5).Value = 0 Else .Offset(0, 5).Value = Range('B11').Value
End With
End With
With ThisWorkbook.Sheets('Allocation_Projet')
With .Range('A65536').End(xlUp).Offset(1, 0)
.Value = Range('B3').Value
.Offset(0, 1).Value = Range('B4').Value
If Range('B14').Value = 0 Then .Offset(0, 2).Value = 0 Else .Offset(0, 2).Value = Range('B14').Value
If Range('B15').Value = 0 Then .Offset(0, 3).Value = 0 Else .Offset(0, 3).Value = Range('B15').Value
If Range('B16').Value = 0 Then .Offset(0, 4).Value = 0 Else .Offset(0, 4).Value = Range('B16').Value
If Range('B17').Value = 0 Then .Offset(0, 5).Value = 0 Else .Offset(0, 5).Value = Range('B17').Value
End With
End With

MsgBox 'Les données ont été envoyées avec succès !'

'si le terme en B3 n'est pas ds la range ('Nom_Staff') de la feuille'Liste_Staff' alors message 'ce nom n'est pas ds la liste, veuillez l'ajouter'

End If


End Sub


Bref c'est pas méchant je pense mais je cale!

Ah les boucles j'y travaille mais à chaque cas particulier, je plante

Merci si tu peux m'aider sur ce pb.

Sinon merci pour le premier step super utile

a+

MOI
 
Vote positif 0 Vote négatif
Bonjour

pas testé mais cela devrait fonctionner

A+
Code: 
Sub Trans_donnees()
Dim Liste_Staff As Variant, Compteur As Long, Test As Boolean
With ThisWorkbook
    With .Worksheets('Liste_Staff')
        Liste_Staff = .Range('B2:B' & .Range('B65536').End(xlUp).Row).Value
    End With
    If Range('B3').Value = '' Then
        MsgBox 'Pas de Nom de Famille, donc il n'y a rien à exporter, arrêt de la macro !', vbCritical + vbOKOnly, 'Erreur...'
    Else
        Test = False
        For Compteur = LBound(Liste_Staff) To UBound(Liste_Staff)
        If StrComp(Range('B3').Value, Liste_Staff(Compteur, 1), 1) = 0 Then Test = True: Exit For
        Next Compteur
        If Test = True Then
            With .Sheets('Allocation_Country')
                With .Range('A65536').End(xlUp).Offset(1, 0)
                    .Value = Range('B3').Value
                    .Offset(0, 1).Value = Range('B4').Value
                    If Range('B9').Value = 0 Then .Offset(0, 2).Value = 0 Else .Offset(0, 2).Value = Range('B9').Value
                    If Range('B8').Value = 0 Then .Offset(0, 3).Value = 0 Else .Offset(0, 3).Value = Range('B8').Value
                    If Range('B10').Value = 0 Then .Offset(0, 4).Value = 0 Else .Offset(0, 4).Value = Range('B10').Value
                    If Range('B11').Value = 0 Then .Offset(0, 5).Value = 0 Else .Offset(0, 5).Value = Range('B11').Value
                End With
            End With
            With .Sheets('Allocation_Project')
                With .Range('A65536').End(xlUp).Offset(1, 0)
                    .Value = Range('B3').Value
                    .Offset(0, 1).Value = Range('B4').Value
                    If Range('B14').Value = 0 Then .Offset(0, 2).Value = 0 Else .Offset(0, 2).Value = Range('B14').Value
                    If Range('B15').Value = 0 Then .Offset(0, 3).Value = 0 Else .Offset(0, 3).Value = Range('B15').Value
                    If Range('B16').Value = 0 Then .Offset(0, 4).Value = 0 Else .Offset(0, 4).Value = Range('B16').Value
                    If Range('B17').Value = 0 Then .Offset(0, 5).Value = 0 Else .Offset(0, 5).Value = Range('B17').Value
                End With
            End With
            MsgBox 'Les données ont été envoyées avec succès !', vbOKOnly + vbInformation
        Else
            MsgBox 'ce nom n'est pas dans la liste, veuillez l'ajouter', vbOKOnly + vbInformation
        End If
    End If
End With
End Sub

Message édité par: yeahou, à: 10/02/2006 01:15
 
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

gsx-air
  • Résolu(e)
Microsoft 365 Traiter un fichier CSV qui est ouvert
2
Réponses
16
Affichages
381
gsx-air
gsx-air
M
  • Question Question
XL 2013 Format date sur un fichier csv
Réponses
8
Affichages
405
Cousinhub
Cousinhub
C
  • Question Question
Microsoft 365 copier coller en changeant la disposition et plage de donnees variable
Réponses
5
Affichages
724
cg1980
C
R
  • Question Question
Microsoft 365 aide a la creation d un classeur commercial
2
Réponses
17
Affichages
1 K
Rozey
R
P
  • Question Question
Microsoft 365 Joindre un fichier PDF dans un mail + inclure date envoi du mail dans un autre onglet
Réponses
1
Affichages
586
kiki29
kiki29
C
  • Question Question
Microsoft 365 Mise à jour fichier après extraction sur ERP
Réponses
9
Affichages
890
Gégé-45550
Gégé-45550
G
  • Question Question
Microsoft 365 Avoir des classeurs maitres et les procédures dans un autre classeur.
2
Réponses
19
Affichages
2 K
GClaire
G
K
  • Question Question
Microsoft 365 Comment afficher des infos d'un fichier ouvert avec "GetOpenFileName"
Réponses
11
Affichages
755
fanch55
fanch55
C
  • Question Question
XL 2016 TCD deux filtres différents d une même colonne source ?
Réponses
13
Affichages
780
chnoub
C
Q
  • Question Question
XL 2019 incrémentation fichier a partir d'un autre fichier avec menu déroulant
Réponses
2
Affichages
710
TooFatBoy
TooFatBoy
C
  • Résolu(e)
Microsoft 365 Créer un RV outlook à partir de chaque ligne d'un tableau
Réponses
8
Affichages
1 K
c.branco
C
J
  • Question Question
XL 2016 VBA : Erreur automation - requête sur un fichier ouvert
Réponses
1
Affichages
1 K
fanch55
fanch55
S
  • Question Question
Microsoft 365 VBA - Transferer une ligne d un onglet a l autre
2
Réponses
15
Affichages
2 K
Jacky67
Jacky67
M
  • Question Question
XL 2016 VBA - Traitement de données avec valeurs identiques dans un dictionnaire
2
Réponses
28
Affichages
2 K
Mak_tarmak
M
A
  • Résolu(e)
Microsoft 365 faire une boucle auto pour supprimer les lignes contenant un "I" ou un "D" et copier les lignes qui contiennent un "A" dans une autre feuille excel
2
Réponses
19
Affichages
2 K
Alex55
A
Z
  • Question Question
XL 2019 Copier une macro d un fichier sur un autre fichier
Réponses
4
Affichages
917
Zarjoun
Z
C
  • Résolu(e)
XL 2013 Fonction indirecte faisant référence à un autre fichier qu'il soit ouvert ou fermé
Réponses
9
Affichages
3 K
nat54
nat54
R
  • Question Question
XL 2010 COPIER A LA SUITE D UNE FEUILLE A UNE AUTRE
Réponses
6
Affichages
1 K
redounezha@hotmail.fr
R
P
  • Question Question
XL 2010 recopier des colonnes contiguës etnon contiguës d'un onglet vers un autre
Réponses
3
Affichages
567
st007
S
M
  • Question Question
Autres creation d un fichier de gestion de cave a vin
Réponses
6
Affichages
3 K
JM27
J
Retour