besoins de beaucoup d'aide en VBA

Re : besoins de beaucoup d'aide en VBA

Re Ricou le forum
voilà
a+
Papou😱

Re : besoins de beaucoup d'aide en VBA

re Paritec le forum
Merci pour les commentaire explicatif je comprend BPC mieux un autre service si cela est possible pour une amelioration qu'est ce que je doit rajouté comme bout de code pour que les cellules qui ont été remplis sur la feuille visualiser expedition redevienne vide aprés la sauvegarde.
Je joint le fichier Paritec j'ai rajouté des boutons et du code que j'ai bien sur trouvé sur le forum Donc un grand tres grand merci a tout le monde
ricou69

Re : besoins de beaucoup d'aide en VBA

Re Ricou le forum
si j'ai compris ton fichier en retour
a+
papou😱

Re : besoins de beaucoup d'aide en VBA

re Paritec
Oui tu as tres tres bien compris et merci Par contre je crois bien que je fait une betisse en sauvegardant le classeur complet je pense qu'il serais mieux de sauvegarder que la feuille 2 si sais possible

Feuil2.Range("B3:B7,B10:B14,B17:B19,D3:M13").ClearContents
Feuil2.Range("D17") = ""
Parfait donc la fonction clearContents qui efface tout merci je prend note dans mon petit cerveau
😉
ricou69

Re : besoins de beaucoup d'aide en VBA

Re Ricou le forum
oui c'est possible
a+
papou😱

Re : besoins de beaucoup d'aide en VBA

Re Ricou le forum
Voilà modifié à tester et a vérifier si tu n'as bien qu'une seule feuille
a+
Papou🙂

Re : besoins de beaucoup d'aide en VBA

re Paritec le forum
Merci ca fonctionne tres bien et je n'est q'une seule feuille dans la sauvegarde donc super cool une derniere chose a la fin du code de sauvegarde qu'elle est le code pour revenir directement sur la feuille une je colle le code que tu as fait pour la sauvegarde
Private Sub CommandButton1_Click()
Dim chemin As String, Fichier As String
chemin = "J:\MarcylEtoile\DGIndust\Batiment T5\T5-Services Communs\Commandes_aux_SC\EXPEDITION T5\"
'Ajoute la date du jour et l'heure dans le nom du fichier
Sheets("visualiser expedition").Copy
Fichier = "Expédition_" & Format(Date, "ddmmyyyy") & "_" & Format(Time, "hhmmss") & ".xls" 'Pour la sauvegarde du fichier expedition en automatique
ActiveWorkbook.SaveAs chemin & Fichier
ActiveWorkbook.Close 1
MsgBox "Votre fichier a été enregistré sous " & chemin & Fichier, , "Enregistré"
Feuil2.Range("B3:B7,B10:B14,B17:B19,D3:M13").ClearContents
Feuil2.Range("D17") = ""

End Sub
Merci beaucoup de ton aide
Ricou69

Re : besoins de beaucoup d'aide en VBA

re Ricou
a+
Papou😱

Re :RESOLU besoins de beaucoup d'aide en VBA

RE PARITE
Merci beaucoup a toi TOUT marche a merveille fichier final est joint avec tout les modif que tu as effectué et merci a tout le forum
ricou69