D
DAVIDRUN
Guest
Bonjour le forum,
En considérant cette procédure pour l'exemple:
Sub Copy()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Workbooks.Open Filename:=ThisWorkbook.Path & "\Pieces" & "\" & ComboBox2.Value & "-" & NFacture.Value & ".xls"
ActiveWorkbook.sheets(1).Range("A2:G50").Copy
ActiveWorkbook.Close
ThisWorkbook.sheets("Pièces").Range("A2").PasteSpecial Application.DisplayAlerts = True
Application.ScreenUpdating = True
End sub
Quel code insérer pour afficher un progbar ?
Merci d'avance
DAVIDRUN
En considérant cette procédure pour l'exemple:
Sub Copy()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Workbooks.Open Filename:=ThisWorkbook.Path & "\Pieces" & "\" & ComboBox2.Value & "-" & NFacture.Value & ".xls"
ActiveWorkbook.sheets(1).Range("A2:G50").Copy
ActiveWorkbook.Close
ThisWorkbook.sheets("Pièces").Range("A2").PasteSpecial Application.DisplayAlerts = True
Application.ScreenUpdating = True
End sub
Quel code insérer pour afficher un progbar ?
Merci d'avance
DAVIDRUN