Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel au secour a l aide ca fait 1 semaine que j essaie de faire barre de progrsssion !!!!!!!!

au secour a l aide ca fait 1 semaine que j essaie de faire barre de progrsssion !!!!!!!!

4 réponses
Avatar
damienguilbert
bonjour


a l aide !!!!!!!!!!!
j en ai marre
je comprend rien au barre de progression

voila je vous explique

j ai un userform
dans cette userform j ai mis une disquette
quand je click dessus ca enregistre
comment mettre une barre de progreesion avec en vba

( donner moi ecriture si possible)

j ai bien vu des prog excelabo ............
mais ca marche avec des cellule
commment faire
avec activeworkbook.save pour la barre de progreesion

merci !!!!!!!!!!!!
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Clément Marcotte
Bonjour,

En toute logique, puisque que tu ne connais pas le durée de
l'enregistrement et que tu ne peux pas être sur que la durée en sera
constante d'une fois à l'autre; cela servira à rien.


"damien" a écrit dans le message de
news:
bonjour


a l aide !!!!!!!!!!!
j en ai marre
je comprend rien au barre de progression

voila je vous explique

j ai un userform
dans cette userform j ai mis une disquette
quand je click dessus ca enregistre
comment mettre une barre de progreesion avec en vba

( donner moi ecriture si possible)

j ai bien vu des prog excelabo ............
mais ca marche avec des cellule
commment faire
avec activeworkbook.save pour la barre de progreesion

merci !!!!!!!!!!!!


Avatar
michdenis
Bonjour Damien,

Tout n'est pas perdu, tu peux utiliser ceci qui affiche la barre de progression de windows lors d'une copie ou
déplacement de fichiers.

Une bonne partie de ces procédures fut proposée par Laurent ... je ne sais pas si c'est le chef à quatre plumes !!!

Dans le haut d'un module standard, déclare ces Api

'------------------------------------------
Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Boolean
hNameMappings As Long
lpszProgressTitle As String
End Type

Private Declare Function SHFileOperationA Lib "Shell32.dll" _
(lpFileOp As SHFILEOPSTRUCT) As Long

Private Function CopieDossier(Source As String, Dest As String, _
Optional Action As Byte, Optional Animation As Boolean) As Boolean
Dim OpStruct As SHFILEOPSTRUCT
If Action > 2 Then Exit Function
With OpStruct
.wFunc = IIf(Action = xlMove, 1, 2)
.pFrom = Source
.pTo = Dest
If Not Animation Then .fFlags = 4
End With
CopieDossier = IIf(SHFileOperationA(OpStruct), False, True)
End Function
'------------------------------------------


'----------------------------------------
Sub copie()

Dim FichierSource As String
Dim FichierDestination As String

FichierSource = "C:ExcelClasseur1.xls" 'à déterminer
FichierDestination = "A:Denis.xls" 'à déterminer

Dim Fs As Object
Set Fs = CreateObject("Scripting.FileSystemObject")
Set d = Fs.GetDrive("A:")
If d.IsReady Then
If CopieDossier(FichierSource, _
FichierDestination, xlCopy, True) Then
MsgBox FichierSource & " copié vers " & FichierDestination & "réussi."
Else
MsgBox "Erreur"
End If
Else
MsgBox "A: Aucune disquette dans le lecteur."
End If
End Sub
'----------------------------------------

'Dans la ligne de commande, tu peux substituer xlCopy par xlMove.
'Le paramètre "Action" indique s'il faut dupliquer (xlCopy, par défaut)
'ou déplacer (xlMove) le dossier, et le paramètre "Animation" s'il faut
'afficher ou non (True / False) la boîte de dialogue intégrée de Windows
'pendant l 'opération de copie.



Salutations!



"damien" a écrit dans le message de news:
bonjour


a l aide !!!!!!!!!!!
j en ai marre
je comprend rien au barre de progression

voila je vous explique

j ai un userform
dans cette userform j ai mis une disquette
quand je click dessus ca enregistre
comment mettre une barre de progreesion avec en vba

( donner moi ecriture si possible)

j ai bien vu des prog excelabo ............
mais ca marche avec des cellule
commment faire
avec activeworkbook.save pour la barre de progreesion

merci !!!!!!!!!!!!
Avatar
Michel Pierron
Bonjour Denis;
La même en plus court:

Sub CopieAnimée()
On Error GoTo 1
Const Source As String = "C:LeFichier.xls"
Const Target As String = "A:"
CreateObject("Shell.Application").Namespace(Target).CopyHere (Source)
Exit Sub
1: MsgBox Err.Number & Err.Description, 64
End Sub

MP

"michdenis" a écrit dans le message de
news:
Bonjour Damien,

Tout n'est pas perdu, tu peux utiliser ceci qui affiche la barre de
progression de windows lors d'une copie ou

déplacement de fichiers.

Une bonne partie de ces procédures fut proposée par Laurent ... je ne sais
pas si c'est le chef à quatre plumes !!!


Dans le haut d'un module standard, déclare ces Api

'------------------------------------------
Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Boolean
hNameMappings As Long
lpszProgressTitle As String
End Type

Private Declare Function SHFileOperationA Lib "Shell32.dll" _
(lpFileOp As SHFILEOPSTRUCT) As Long

Private Function CopieDossier(Source As String, Dest As String, _
Optional Action As Byte, Optional Animation As Boolean) As Boolean
Dim OpStruct As SHFILEOPSTRUCT
If Action > 2 Then Exit Function
With OpStruct
.wFunc = IIf(Action = xlMove, 1, 2)
.pFrom = Source
.pTo = Dest
If Not Animation Then .fFlags = 4
End With
CopieDossier = IIf(SHFileOperationA(OpStruct), False, True)
End Function
'------------------------------------------


'----------------------------------------
Sub copie()

Dim FichierSource As String
Dim FichierDestination As String

FichierSource = "C:ExcelClasseur1.xls" 'à déterminer
FichierDestination = "A:Denis.xls" 'à déterminer

Dim Fs As Object
Set Fs = CreateObject("Scripting.FileSystemObject")
Set d = Fs.GetDrive("A:")
If d.IsReady Then
If CopieDossier(FichierSource, _
FichierDestination, xlCopy, True) Then
MsgBox FichierSource & " copié vers " & FichierDestination &
"réussi."

Else
MsgBox "Erreur"
End If
Else
MsgBox "A: Aucune disquette dans le lecteur."
End If
End Sub
'----------------------------------------

'Dans la ligne de commande, tu peux substituer xlCopy par xlMove.
'Le paramètre "Action" indique s'il faut dupliquer (xlCopy, par défaut)
'ou déplacer (xlMove) le dossier, et le paramètre "Animation" s'il faut
'afficher ou non (True / False) la boîte de dialogue intégrée de Windows
'pendant l 'opération de copie.



Salutations!



"damien" a écrit dans le message de
news:

bonjour


a l aide !!!!!!!!!!!
j en ai marre
je comprend rien au barre de progression

voila je vous explique

j ai un userform
dans cette userform j ai mis une disquette
quand je click dessus ca enregistre
comment mettre une barre de progreesion avec en vba

( donner moi ecriture si possible)

j ai bien vu des prog excelabo ............
mais ca marche avec des cellule
commment faire
avec activeworkbook.save pour la barre de progreesion

merci !!!!!!!!!!!!




Avatar
michdenis
Bonjour Michel,

Merci pour ce bout de code.

Bonne semaine,

Salutations!



"Michel Pierron" a écrit dans le message de news:%23AXL%
Bonjour Denis;
La même en plus court:

Sub CopieAnimée()
On Error GoTo 1
Const Source As String = "C:LeFichier.xls"
Const Target As String = "A:"
CreateObject("Shell.Application").Namespace(Target).CopyHere (Source)
Exit Sub
1: MsgBox Err.Number & Err.Description, 64
End Sub

MP

"michdenis" a écrit dans le message de
news:
Bonjour Damien,

Tout n'est pas perdu, tu peux utiliser ceci qui affiche la barre de
progression de windows lors d'une copie ou

déplacement de fichiers.

Une bonne partie de ces procédures fut proposée par Laurent ... je ne sais
pas si c'est le chef à quatre plumes !!!


Dans le haut d'un module standard, déclare ces Api

'------------------------------------------
Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Boolean
hNameMappings As Long
lpszProgressTitle As String
End Type

Private Declare Function SHFileOperationA Lib "Shell32.dll" _
(lpFileOp As SHFILEOPSTRUCT) As Long

Private Function CopieDossier(Source As String, Dest As String, _
Optional Action As Byte, Optional Animation As Boolean) As Boolean
Dim OpStruct As SHFILEOPSTRUCT
If Action > 2 Then Exit Function
With OpStruct
.wFunc = IIf(Action = xlMove, 1, 2)
.pFrom = Source
.pTo = Dest
If Not Animation Then .fFlags = 4
End With
CopieDossier = IIf(SHFileOperationA(OpStruct), False, True)
End Function
'------------------------------------------


'----------------------------------------
Sub copie()

Dim FichierSource As String
Dim FichierDestination As String

FichierSource = "C:ExcelClasseur1.xls" 'à déterminer
FichierDestination = "A:Denis.xls" 'à déterminer

Dim Fs As Object
Set Fs = CreateObject("Scripting.FileSystemObject")
Set d = Fs.GetDrive("A:")
If d.IsReady Then
If CopieDossier(FichierSource, _
FichierDestination, xlCopy, True) Then
MsgBox FichierSource & " copié vers " & FichierDestination &
"réussi."

Else
MsgBox "Erreur"
End If
Else
MsgBox "A: Aucune disquette dans le lecteur."
End If
End Sub
'----------------------------------------

'Dans la ligne de commande, tu peux substituer xlCopy par xlMove.
'Le paramètre "Action" indique s'il faut dupliquer (xlCopy, par défaut)
'ou déplacer (xlMove) le dossier, et le paramètre "Animation" s'il faut
'afficher ou non (True / False) la boîte de dialogue intégrée de Windows
'pendant l 'opération de copie.



Salutations!



"damien" a écrit dans le message de
news:

bonjour


a l aide !!!!!!!!!!!
j en ai marre
je comprend rien au barre de progression

voila je vous explique

j ai un userform
dans cette userform j ai mis une disquette
quand je click dessus ca enregistre
comment mettre une barre de progreesion avec en vba

( donner moi ecriture si possible)

j ai bien vu des prog excelabo ............
mais ca marche avec des cellule
commment faire
avec activeworkbook.save pour la barre de progreesion

merci !!!!!!!!!!!!