Récupérer des donnés d'un fichier excel fermé avec vba
Licoquelicot
Messages postés
11
Date d'inscription
Statut
Membre
Dernière intervention
-
Licoquelicot Messages postés 11 Date d'inscription Statut Membre Dernière intervention -
Licoquelicot Messages postés 11 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tous,
Je voudrai faire un programme vba capable d'aller chercher des infos dans un classeur excel fermé situé sur le disque dur et que les données de ce classeur ce "colle" dans un autre fichier excel.
En clair, j'ai mon fichier "MC_essai" qui doit aller prendre des infos dans le fichier excel "MC_Plastique" et coller les infos de "MC_Plastique" dans "MC_essai" Cependant, je veux récupérer que les infos concernant un N° de semaine précis. Et je n'arrive pas à faire ce dernier point.
Quelqu'un pourrait il regarder mon programme et me dire ce qui ne va pas svp!
Merci, par avance, pour votre aide
Licoquelicot
Mon programme:
Dim newRecord As Long
Dim Date_D As Date
Private Sub Annuler_Click()
Unload Me
newRecord = Range("A" & Rows.Count).End(xlUp)(2).Row
Rows(newRecord).Select
Call viderFormulaire
End Sub
Private Sub UserForm_Activate()
Call chargerListes
End Sub
Private Sub Valider_Click()
' Champs obligatoires
If Atelier.Text = "" Then
MsgBox "Le champs Atelier n'a pas été rempli. Veuillez le remplir.", vbOKOnly + vbInformation, "Champs manquants ou incorrects"
Exit Sub
End If
If N°Semaine.Text = "" Then
MsgBox "Le champs N°Semaine n'a pas été rempli. Veuillez le remplir.", vbOKOnly + vbInformation, "Champs manquants ou incorrects"
Exit Sub
End If
' Récupération des données dans classeur fermé
Workbooks("MC_essai.xlsm").Worksheets("Saisie").Cells.ClearContents
Workbooks.Open Filename:="\\Gpao\commun\30_QUALITE\\307_Gestion_de_service\Main_courante_atelier\MC_Plastique.xlsm"
Workbooks("MC_Plastique.xlsm").Worksheets("Synthese").Cells.Copy _
Workbooks("MC_essai.xlsm").Worksheets("Saisie").Range("A1")
Workbooks("MC_Plastique.xlsm").Close False
UserForm1.Hide
End Sub
Private Sub chargerListes()
'Défauts par l'atelier
UserForm1.Atelier.AddItem "Contrôle SF-A"
UserForm1.Atelier.AddItem "Débit"
UserForm1.Atelier.AddItem "Expédition"
UserForm1.Atelier.AddItem "Finition"
UserForm1.Atelier.AddItem "Metal"
UserForm1.Atelier.AddItem "Plastique"
UserForm1.Atelier.AddItem "Qualité"
UserForm1.Atelier.AddItem "Luxe"
UserForm1.Atelier.AddItem "Réception Fournisseur"
UserForm1.Atelier.AddItem "Responsable Qualité"
UserForm1.Atelier.AddItem "Shootage"
UserForm1.Atelier.AddItem "Tri branches"
UserForm1.Atelier.AddItem "Tri faces"
UserForm1.Atelier.AddItem "TS"
UserForm1.Atelier.AddItem "Witech"
End Sub
Private Sub viderFormulaire()
Atelier.Text = ""
N°Semaine.Text = ""
End Sub
Je voudrai faire un programme vba capable d'aller chercher des infos dans un classeur excel fermé situé sur le disque dur et que les données de ce classeur ce "colle" dans un autre fichier excel.
En clair, j'ai mon fichier "MC_essai" qui doit aller prendre des infos dans le fichier excel "MC_Plastique" et coller les infos de "MC_Plastique" dans "MC_essai" Cependant, je veux récupérer que les infos concernant un N° de semaine précis. Et je n'arrive pas à faire ce dernier point.
Quelqu'un pourrait il regarder mon programme et me dire ce qui ne va pas svp!
Merci, par avance, pour votre aide
Licoquelicot
Mon programme:
Dim newRecord As Long
Dim Date_D As Date
Private Sub Annuler_Click()
Unload Me
newRecord = Range("A" & Rows.Count).End(xlUp)(2).Row
Rows(newRecord).Select
Call viderFormulaire
End Sub
Private Sub UserForm_Activate()
Call chargerListes
End Sub
Private Sub Valider_Click()
' Champs obligatoires
If Atelier.Text = "" Then
MsgBox "Le champs Atelier n'a pas été rempli. Veuillez le remplir.", vbOKOnly + vbInformation, "Champs manquants ou incorrects"
Exit Sub
End If
If N°Semaine.Text = "" Then
MsgBox "Le champs N°Semaine n'a pas été rempli. Veuillez le remplir.", vbOKOnly + vbInformation, "Champs manquants ou incorrects"
Exit Sub
End If
' Récupération des données dans classeur fermé
Workbooks("MC_essai.xlsm").Worksheets("Saisie").Cells.ClearContents
Workbooks.Open Filename:="\\Gpao\commun\30_QUALITE\\307_Gestion_de_service\Main_courante_atelier\MC_Plastique.xlsm"
Workbooks("MC_Plastique.xlsm").Worksheets("Synthese").Cells.Copy _
Workbooks("MC_essai.xlsm").Worksheets("Saisie").Range("A1")
Workbooks("MC_Plastique.xlsm").Close False
UserForm1.Hide
End Sub
Private Sub chargerListes()
'Défauts par l'atelier
UserForm1.Atelier.AddItem "Contrôle SF-A"
UserForm1.Atelier.AddItem "Débit"
UserForm1.Atelier.AddItem "Expédition"
UserForm1.Atelier.AddItem "Finition"
UserForm1.Atelier.AddItem "Metal"
UserForm1.Atelier.AddItem "Plastique"
UserForm1.Atelier.AddItem "Qualité"
UserForm1.Atelier.AddItem "Luxe"
UserForm1.Atelier.AddItem "Réception Fournisseur"
UserForm1.Atelier.AddItem "Responsable Qualité"
UserForm1.Atelier.AddItem "Shootage"
UserForm1.Atelier.AddItem "Tri branches"
UserForm1.Atelier.AddItem "Tri faces"
UserForm1.Atelier.AddItem "TS"
UserForm1.Atelier.AddItem "Witech"
End Sub
Private Sub viderFormulaire()
Atelier.Text = ""
N°Semaine.Text = ""
End Sub
A voir également:
- Récupérer données fichier excel fermé
- Fichier bin - Guide
- Fichier epub - Guide
- Récupérer au terminal de fret - Forum Consommation & Internet
- Fichier rar - Guide
- Comment réduire la taille d'un fichier - Guide