Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Vba lors de la fermeture de mon classeur copier vers base

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion c0uike
  • 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
C

c0uike

Guest
Bonjour à tous je cherche depuis quelque jours à copier la valeur hors taxe d'une facture vers une base de donnée se trouvant dans un autre fichier.

J'ai dans la case k3 le numéro de devis.
Dans la case k37 la valeur hors taxe (fichier1.xlsm)

J'aimerai la coller dans (fichier 2.xlsm)(feuille1)

La valeur de la cellule de la ligne correspondant à la valeur k3 dans la colonne "D".

Merci d'avance
 
Trier par date Trier par votes
Re : Vba lors de la fermeture de mon classeur copier vers base

Bonjour

Voilà un essai

le fichier 2 doit être dans le même path que fichier 1 et il doit exister


Attention nouveaux fichiers 😎
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Vba lors de la fermeture de mon classeur copier vers base

Bonjour merci pour cette réponse rapide.

J'aimerai que dans le fichier 2 la valeur se colle dans la colonne HT du devis spécifié dans la feuille 1.
je joint le fichier 2 que j'ai modifié.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Vba lors de la fermeture de mon classeur copier vers base

c0uike à dit:
Bonjour merci pour cette réponse rapide.

J'aimerai que dans le fichier 2 la valeur se colle dans la colonne HT du devis spécifié dans la feuille 1.
je joint le fichier 2 que j'ai modifié.
Cliquez pour agrandir...


Voilà les modifs en espèrant que ça vous convienne 😎
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Vba lors de la fermeture de mon classeur copier vers base

Merci Gilbert

Je recherchai exactement ça.
Petit problème mon nom de fichier 1 est généré automatiquement par rapport au numéro de facture.
Par contre ce classeur sera le classeur actif au moment de la fermeture du dossier.

Est il possible de me faire le modifié sans vouloir abusé?
Est ce que je peux vous demander de commenter le code? pour je le comprennes.

Les codes de la feuill1 ne sert a rien ainsi que le module 2.
 
Vote positif 0 Vote négatif
Re : Vba lors de la fermeture de mon classeur copier vers base

moi pas bien comprendre ce que toi tu veux

le code du module 2 sert à la boite de dialogue

il n'y a pas de code dans la feuil1

par contre quand on ferme le fichier la macro est lancée dans le thisworkbook (Workbook_BeforeClose)

une autre chose si la macro rencontre un problème et qu'elle ne finit pas correctement il est possible qu'il y ait un problème de fonctionnement par la suite (non enregistrement)

c'est pour cela qu'il y a la macro Sub remise()
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Vba lors de la fermeture de mon classeur copier vers base

Ok merci je n'avais pas trop compris j'ai commencer le Vba il y a une semaine.
Alors j'essaye de réexpliquer.

Feuill1=variable(elle correspond au nom de ma facture et son numéro)
Quand je travail sur cette feuil et que je quitte l'application je veux que les donnée de la case k3 et k37 s'enregistre dans la feuill2.
On a tous cela, mais le problème est que je connais pas le nom de ma feuill1 à l'avance donc le code doit être variable ou a mon avis il est possible de travailler avec ThisWorkbook.Activate.
Le problème est que je le maitrise pas trop.
Pouvez vous m'aidez?
 
Vote positif 0 Vote négatif
Re : Vba lors de la fermeture de mon classeur copier vers base


Pour le VBA pas de problème nous avons tous commencé un jour 😱

humm..... "s'enregistre dans la feuill2." du fichier 2 je suppose pas clair

pas besoin de connaitre le nom si c'est la feuil1 on marque sheets(1)
 
Vote positif 0 Vote négatif
Re : Vba lors de la fermeture de mon classeur copier vers base

Pardon depuis tous a l'heure je parle de feuill mais enfaite je voulais dire fichier 1(variable)
Donc
Fichier 1=variable(il correspond au nom de ma facture et son numéro)
Quand je travail sur ce fichierl et que je quitte l'application je veux que les donnée de la case k3 et k37 s'enregistre dans le fichier2 feuill "base facture".


On a tous cela, mais le problème est que je connais pas le nom de mon fichier 1 à l'avance donc le code doit être variable ou a mon avis il est possible de travailler avec ThisWorkbook.Activate.


Désolé pour la confusion.
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Vba lors de la fermeture de mon classeur copier vers base

voilà une procédure

Code: 
Sub test()
    Dim vRet As Integer
    Dim fich1 As String
    fich1 = ThisWorkbook.Name
    vRet = MsgBoxPerso("Faut-il vraiment sauvegarder dans le Fichier 2 avant de quitter?", "Enregistrement", vExclamation, "Oui, l'archivage est requis|Non, quitter sans enregistrer", "Times New Roman", 14, vBold, vLeft, 250, 300, 1, 1, 1)
    If vRet = 1 Then
        Workbooks.Open Filename:=ThisWorkbook.Path & "\" & "fichier 2.xlsm"    'chemin à préciser
        Windows("fichier 2.xlsm").Activate
        Sheets(1).Select
        des = Sheets(1).Cells(Range("d65536").End(xlUp).Row + 1, 1).Address
        Windows(fich1).Activate
        Sheets(1).Range("K3").Copy Workbooks("fichier 2.xlsm").Sheets(1).Range(des)
        Sheets(1).Range("K37").Copy Workbooks("fichier 2.xlsm").Sheets(1).Range(des).Offset(0, 3)
        Application.DisplayAlerts = False
        Workbooks("fichier 2.xlsm").Save
        Windows("fichier 2.xlsm").Close
        ThisWorkbook.Save
        Application.DisplayAlerts = True
    Else
        ThisWorkbook.Save
        Exit Sub
    End If
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Vba lors de la fermeture de mon classeur copier vers base

Voilà mon code mais le problème est qu'il ne me colle pas la valeur dans la colonne contenant le numéro de la facture mais a la première ligne vide de mon tableau.


Code: 
Sub test()
        Workbooks.Open Filename:=ThisWorkbook.Path & "\" & ".......xlsm"    'chemin à préciser
        Windows("........xlsm").Activate
        Sheets("base_facture").Select
        des = Sheets("facture").Cells(Range("d65536").End(xlUp).Row + 1, 1).Address
        Windows(ThisWorkbook.Name).Activate
        Sheets("facture").Range("K3").Copy Workbooks("........xlsm").Sheets("base_facture").Range(des)
        Sheets("facture").Range("K37").Copy Workbooks("..........xlsm").Sheets("base_facture").Range(des).Offset(0, 4)
        Application.DisplayAlerts = False
        Workbooks("..........xlsm").Save
        Windows(".........xlsm").Close
        ThisWorkbook.Save
        Application.DisplayAlerts = True

End Sub

 

Pièces jointes

  • Capture.jpg
    71 KB · Affichages: 159
  • Capture.jpg
    71 KB · Affichages: 162
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
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

  • Résolu(e)
Microsoft 365 Pointer vers une Ligne/Case selon une sélection
Réponses
10
Affichages
373
Magnio
R
  • Question Question
Microsoft 365 Recherche le code VBA pour replacer les informations de corrections de facture dans sa base de données avec comme référence le numéro de facture.
Réponses
2
Affichages
220
vgendron
P
  • Question Question
XL 2019 Macro VBA appliquer un filtre lors d'une importation de données
Réponses
1
Affichages
575
fanch55
G
  • Question Question
XL 2021 Alimenter X fois d'une base de données en fonction de la valeur d'un TextBox
Réponses
7
Affichages
616
GG Delcroix
G
C
  • Résolu(e)
Microsoft 365 Problème VBA lors de l'affichage de ligne masquée
2
Réponses
21
Affichages
1 K
Chris Linefield
C
  • Question Question
XL 2021 Détecter un changement dans un des contrôles de formulaire et mettre à jour un TS correspondant.
2
Réponses
15
Affichages
706
jeff1494
N
  • Résolu(e)
Microsoft 365 Transfère de données d'un Userform vers un tableau structuré d'une feuille de calcul
Réponses
4
Affichages
534
NONO14
N
M
  • Résolu(e)
XL 2016 Comment récupérer les données d'un tableau excel vers un espace Powerpoint
Réponses
7
Affichages
853
melltel
M
Z
  • Question Question
XL 2016 Macro pour copier plusieurs cellules vers un fichier :(
Réponses
3
Affichages
534
zendb
Z
F
  • Résolu(e)
Microsoft 365 copier coller des colonnes en fonction de la valeur d'une cellule
Réponses
8
Affichages
1 K
loloboc
L
C
  • Résolu(e)
Copier/Masquer des lignes de couleur pour alimenter un tableau
Réponses
9
Affichages
931
vgendron
S
  • Résolu(e)
Microsoft 365 - Conseils pour la structuration d'une base de données -
2 3
Réponses
44
Affichages
4 K
crocrocro
C
M
  • Question Question
Microsoft 365 VBA copier des données d'un classeur à un autre
Réponses
4
Affichages
3 K
sylvanu
  • Question Question
Microsoft 365 Petit soucis avec la Base de Registre en VBA.
Réponses
12
Affichages
897
DenisHen
H
  • Résolu(e)
XL 2019 récupérer une donnée d'un fichier csv pour le copier vers un autre
2
Réponses
27
Affichages
3 K
Hutchy33
H
D
  • Résolu(e)
Microsoft 365 Copier / coller données spécifiques documents txt vers Excel
Réponses
3
Affichages
772
Staple1600
M
  • Question Question
Microsoft 365 Comptabilité : Création d'un fichier automatique d'analyse de comptes
Réponses
2
Affichages
882
Max
M
G
  • Question Question
Microsoft 365 Transfert de données
Réponses
7
Affichages
987
GClaire
G
C
  • Question Question
XL 2021 Excel facturation avec BD clients (modèle utilisable joint) - liste déroulante =INDIRECT sur classeur séparé
Réponses
12
Affichages
1 K
Calizarine
C
G
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
904
GClaire
G
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…