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

 

[cathodique]

Bonjour,

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

 

[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 😀