Re : Recherche valeurs et copie dans un autre fichier avec choix de la feuille
Bonjour Staple1600,
Grand merci pour ton aide.
Voila le statut:
Probleme:
- Après utilisation de la macro quand je ferme le fichier par la petite croix ou bien quand je clique directement sur le bouton Exit sans l'utilisation de la macro j'ai un message d'erreur (voir le PJ)
Modification du code:
- j'ai utiliser l'une de tes macro sur Forum "Fermeture d'un fichier " Super ça marche.
- le choix du fichier Source le nom n'ai plus obligatoire maintemant je peux prendre un fichier Beta.
modification dans le fichier:
les cellules j'ai rajouter la formule rechechev.
Reste à faire:
- Quand je refait la manipulation d'importation je voudrais que les données écrase l'existant de la ligne 226 à X.
- Si c'est possible de mettre une couleur dans les cellules quand la valeur >0 je parle des données qui se trouve de la ligne 2 à 224
Peux tu me donné un coup de main STP.
Merci pour tout
PJ le fichier message Erreur
le code du fichier destination car la taille du fichier > 48,8 Ko
A+
undo
code dans USF1
Public Source As String
Public WS As Worksheet
Public NomFichier As String
Private Sub CmdBrowseForFolder1_Click()
On Error GoTo Parcourir_Error:
Application.ScreenUpdating = False
NomFichier = Application.GetOpenFilename
If VarType(NomFichier) = vbBoolean Then
TxbBrowseForFolder1.Value = ""
Else
TxbBrowseForFolder1.Value = NomFichier
End If
Workbooks.Open NomFichier, 0
Application.ScreenUpdating = True
Parcourir_Error:
Exit Sub
End Sub
Private Sub Execution_Click()
Dim FIN As Long
Set WS = ThisWorkbook.Sheets(CStr(Me.ListBox2))
FIN = WS.[B65536].End(xlUp).Row
TxbBrowseForFolder1.Value = NomFichier
ActiveWorkbook.Sheets("EXPORTED DATA").Range("C2:C" & [B65536].End(xlUp).Row).Copy WS.Range("B" & FIN + 1)
ActiveWorkbook.Sheets("EXPORTED DATA").Range("G2:R2" & [B65536].End(xlUp).Row).Copy WS.Range("C" & FIN + 1)
End Sub
Private Sub Sortie_Click()
NomFichier = ActiveWorkbook.Name
Windows(NomFichier).Activate
ActiveWorkbook.Close
USF1.Hide
End Sub
Private Sub UserForm_Initialize()
Dim i As Byte
For i = 1 To Sheets.Count
Me.ListBox2.AddItem ThisWorkbook.Worksheets(i).Name
Next
End Sub