ENREGISTREMENT DE FICHIER SUR RESEAU ---> Fichier ZIP

[WEIDER]

ENREGISTREMENT DE FICHIER SUR RESEAU ---> Fichier ZIP

Bonjour à tous et à toutes !

J'ai un petit problème à résoudre concernant l'enregistrement d'un fichier, sur un réseau, en format date, via un bouton de commande ...
Je pense que cela peux interresser pas mal de monde.

Ma question est bien détaillée sur le fichier Zipé Excel que je joint !

Pour ma par je ne sais quel code inscrire pour ce bouton ne connaissant pas grand chose en VBA !......

Pourriez vous m'aider à solutionner mon problème ?!

D'avance un grand merci à tous pour vous etre penchés sur mon pti problème !

Amicalement.

Weider.

 

[sousou]

Re: ENREGISTREMENT DE FICHIER SUR RESEAU ---> Fichier ZIP

Bonjour.

1) le fichier original doit-il prendre en compte les modifications si oui:

Private Sub CommandButton1_Click()
chemin = "M:\Production Dpt\Atelier\1 Administratif - production\Archives MNPWR"
ThisWorkbook.Save
ThisWorkbook.SaveAs (chemin & Worksheets(1).Range("d8"))
End Sub

si non:

Private Sub CommandButton1_Click()
chemin = "M:\Production Dpt\Atelier\1 Administratif - production\Archives MNPWR"
ThisWorkbook.SaveAs (chemin & Worksheets(1).Range("d8"))
End Sub

à tester et à améliorer

 

[WEIDER]

Re: ENREGISTREMENT DE FICHIER SUR RESEAU ---> Fichier ZIP

Merci à toi Sousou, je test des demain et je te dis si cela fonctionne !

Merci encore à toi !

Amicalement

Weider.