XL 2013 Gestion de sauvegarde de fichiers

[PDP33]

Bonjour à toute la communauté

En premier lieu bonne année à toutes et tous.

J’ai commencé à développer une série de commande en VBA pour me faciliter la vie pour gérer la sauvegarde de beaucoup de fichiers.

J’arrive à maitriser la commande Filecopy (Source Destination)

Elle fonctionne parfaitement pour les petits fichiers, sauf que pour les fichiers vidéos beaucoup plus volumineux j’ai d’abord un message m’informant qu’excel ne répond pas. Il faut laisser le temps pour que la copie se fasse.

En plus je souhaiterai que le code appelle les fenêtres windows ci-dessous (cela doit être possible car j’ai réussi à trouver pour la suppression de fichiers – affichage de la fenêtre de confirmation de demande de mise à la corbeille avec la commande RecycleFile – merci à son auteur)

Merci d’avance pour votre aide

C'est la première fois que je demande de l'aide, désolé si ce n'est pas la bonne façon de faire

 

[Nain porte quoi]

Hello,

si j'ai bien compris

Set shellApp = CreateObject("Shell.Application")
shellApp.Namespace(dossierCible).CopyHere fichierSource

 

[PDP33]

Hello,

si j'ai bien compris

Set shellApp = CreateObject("Shell.Application")
shellApp.Namespace(dossierCible).CopyHere fichierSource

 

[PDP33]

Merci n’importe quoi

Ta réponse est excellente. Par contre, sauf erreur de ma part, cette commande ne renvoie aucune valeur, ce qui est dommage, car en fonction de l’option choisie si j’annule ou si je décide d’écraser le fichier existant je pourrais ajouter une annotation dans une cellule comme quoi la sauvegarde a été effectuée ou reste à faire

Si tu as une idée…

De mon côté je recherche aussi

 

[PDP33]

Bonjour,

Bienvenue sur XLD. Joindre un fichier serait souhaitable, à la limite édite ton code en utilisant l'icône </> .

Merci pour ton message de bienvenue. Je n'ai pas joint de fichier car mon projet est en pleine construction

 

[Nain porte quoi]

cette commande ne renvoie aucune valeur

ben c'est normal, on sort d'Excel (du VBA) pour passer le contrôle à Windows
Si vous voulez savoir si le fichier à été copié vous pouvez utilisez la commende Dir(), mais attention, Excel ayant passé la main à Windows, il ne pourra pas savoir quand la commande sera effectivement terminé.
Exemple : vous lancez la commande de copie d'un fichier de 2 To et afficher un msgbox juste après la commande, le message s'affichera immédiatement alors que Windows n'aura pas encore commencé.

Question : pourquoi ne voulez vous pas que ça soit Excel qui gère la copie ?

 

[PDP33]

ben c'est normal, on sort d'Excel (du VBA) pour passer le contrôle à Windows
Si vous voulez savoir si le fichier à été copié vous pouvez utilisez la commende Dir(), mais attention, Excel ayant passé la main à Windows, il ne pourra pas savoir quand la commande sera effectivement terminé.
Exemple : vous lancez la commande de copie d'un fichier de 2 To et afficher un msgbox juste après la commande, le message s'affichera immédiatement alors que Windows n'aura pas encore commencé.

Question : pourquoi ne voulez vous pas que ça soit Excel qui gère la copie ?

parce que je travaille avec un vieux PC sous W7 et comme indiqué dans ma question la commande filecopy le fait "ramer'. On n' pas le choix de lancer ou non la copie n'y la progression de la copie d fichier.. Une fois l'instruction filecopy lue, j'ai le message comme quoi excel ne répond pas puis on ne sait combien de temps après le fichier commence à être copié. L'option SellApp me convenait sauf ce petit détail

 

[Nain porte quoi]

OK, mais

J’ai commencé à développer une série de commande en VBA pour me faciliter la vie pour gérer la sauvegarde de beaucoup de fichiers.

ben là encore, si vous voulez vous facilitez la vie y'a plein de programme qui gèrent très très plus mieux bien les sauvegardes, même qu'ils sont faite exprès pour ça 😀

 

[PDP33]

OK, mais


ben là encore, si vous voulez vous facilitez la vie y'a plein de programme qui gèrent très très plus mieux bien les sauvegardes, même qu'ils sont faite exprès pour ça 😀

Quel programme ?

 

[PDP33]

Je partage entièrement cet avis sur le fait qu’excel reprendra la main alors que le fichier de sauvegarde ne sera pas entièrement copié
Pour le moment je vais adopter la solution, qui n’est pas entièrement satisfaisante, de vérifier l’espace disponible par rapport à la taille du fichier à sauvegarder, ce qui devrait limiter les problèmes.

Dim d As Object, Fs As Object, Fichier As Object
Dim Size_Fichier As Long
Dim SourceFile As String, DestinationFile As String, Nom_Racine_Sauv As String
SourceFile = "M:\xxxxx\yyyyy\essai.mp4"
DestinationFile = "L:\xxxxx\yyyyy"
Set Fs = CreateObject("Scripting.FileSystemObject")
Set Fichier = Fs.GetFile(SourceFile)
Size_Fichier = Fichier.Size
Set d = Fs.GetDrive(Fs.GetDriveName(DestinationFile))
If Size_Fichier > d.FreeSpace Then
MsgBox "La place sur le disque de destination n'est pas suffisante"
Else
Dim Shellapp As Shell32.shell
Set Shellapp = CreateObject("Shell.Application")
Shellapp.Namespace(DestinationFile).CopyHere SourceFile
End If
Set d = Nothing
Set Fs = Nothing
Set Fichier = Nothing
Set Shellapp = Nothing

 

[dysorthographie]

bonjour,
voilà ce que j'utilise personnellement pour mes sauvegarde.

Discussion 'GitLab permet de gérer et partager des projets, suivre les changements et collaborer avec d’autres personnes.'

12 Janvier 2026

---

GitLab – c’est quoi ?​

• GitLab est un site web (ou serveur) qui héberge tes projets Git en ligne.
• Il fonctionne comme un cloud pour ton code : tu peux y stocker ton projet, partager avec d’autres personnes, et gérer l’historique des modifications.

Fonctions principales :

1. Stockage de projets Git → tes commits locaux peuvent être envoyés (push) sur GitLab.
2. Collaboration → plusieurs développeurs peuvent travailler sur le même projet en même temps.
3. Branches et fusion...

• dysorthographie

 

[Nain porte quoi]

Hello,

quelques uns ici, y'a plus qu'a choisir

https://www.getapp.fr/directory/496/backup/software

et là les 4 meilleurs gratuits selon le crabe

Les 4 meilleurs logiciels de sauvegarde gratuits en 2026

Vous cherchez un bon logiciel pour sauvegarder vos données sur Windows ? Voici les 4 meilleurs logiciels de sauvegarde gratuits en 2026, comparés et expliqués, pour mettre à l’abri vos fichiers personnels et votre système efficacement.

lecrabeinfo.net

Je sais que c'est toujours tentant de vouloir se créer son propre programme, mais bon, quand des bons programmes existent, pourquoi les réinventer

 

[PDP33]

Hello,

quelques uns ici, y'a plus qu'a choisir

https://www.getapp.fr/directory/496/backup/software

et là les 4 meilleurs gratuits selon le crabe

Les 4 meilleurs logiciels de sauvegarde gratuits en 2026

Vous cherchez un bon logiciel pour sauvegarder vos données sur Windows ? Voici les 4 meilleurs logiciels de sauvegarde gratuits en 2026, comparés et expliqués, pour mettre à l’abri vos fichiers personnels et votre système efficacement.

lecrabeinfo.net

Je sais que c'est toujours tentant de vouloir se créer son propre programme, mais bon, quand des bons programmes existent, pourquoi les réinventer

Ok merci pour l'info Je vais regarder

 

[PDP33]

bonjour,
voilà ce que j'utilise personnellement pour mes sauvegarde.

Discussion 'GitLab permet de gérer et partager des projets, suivre les changements et collaborer avec d’autres personnes.'

12 Janvier 2026

---

GitLab – c’est quoi ?​

• GitLab est un site web (ou serveur) qui héberge tes projets Git en ligne.
• Il fonctionne comme un cloud pour ton code : tu peux y stocker ton projet, partager avec d’autres personnes, et gérer l’historique des modifications.

Fonctions principales :

1. Stockage de projets Git → tes commits locaux peuvent être envoyés (push) sur GitLab.
2. Collaboration → plusieurs développeurs peuvent travailler sur le même projet en même temps.
3. Branches et fusion...

• dysorthographie

Je ne connaissais pas du tout, c'est la première fois que j'en entend parler

 

[dysorthographie]

Bonjour,
tu as qu'un seule projet sur ton disque dur et toutes tes mis sur le serveur git
ce qui dispose d'un pastille verte sont synchronisés sur le serveur GITLAB les rouges ont été modifiés et pas encor envoyé sur le serveur.

clique droit pour faire apparaitre le menu .

voila sur GUTLAB

tu peux récupérer tes anciennes version quand tu veux j'ais écris MAJ mais tu peux inscrire ce que tu veux genre ajout d'utilisateurs par exemlpe