Bonjour à tous,
En fouillant quelques post du forum, j'ai réussi à trouver une partie de ce que je cherchais. J'ai un fichier Excel (2003), ou j'y ai intégré des documents vierges à enregistrer (après saisie). Ce que je souhaite c'est d'enregistrer la feuille active en ouvrant dans un premier temps une information (comme par exemple indiquer ou enregistrer ce document sur le réseau), puis dans un second temps ouvrir "enregistrer sous" afin d'enregistrer le fichier d'après les informations données précédemment.
Ma demande concerne ce qui suit : est-il possible d'enregistrer la feuille active d'après le nom qu'on lui a attribué dans le dossier en y intégrant la date du jour? et cela malgrè l'ouverture de la boite "enregistrer sous".
je vous mets ci-dessous mon code VBA en espérant m'avoir bien fait comprendre, ce n'est pas facile d'expliquer lorsqu'on est débutant.
Public Sub CommandButton1_Click() 'Activesheet Backup Copy
Dim nom As String
yourmsgbox = Msgbox("Fichier à enregistrer dans le dossier affaire sous B-Etude/B5-Dossier Qualité/A.107-Bordereau d'acompagnement", vbOKCancel)
If yourmsgbox = vbCancel Then
Exit Sub
End If
ActiveSheet.Copy
Application.Dialogs(xlDialogSaveAs).Show
End Sub
Merci de l'intêret que vous porterez à ma demande.
Salutations
En fouillant quelques post du forum, j'ai réussi à trouver une partie de ce que je cherchais. J'ai un fichier Excel (2003), ou j'y ai intégré des documents vierges à enregistrer (après saisie). Ce que je souhaite c'est d'enregistrer la feuille active en ouvrant dans un premier temps une information (comme par exemple indiquer ou enregistrer ce document sur le réseau), puis dans un second temps ouvrir "enregistrer sous" afin d'enregistrer le fichier d'après les informations données précédemment.
Ma demande concerne ce qui suit : est-il possible d'enregistrer la feuille active d'après le nom qu'on lui a attribué dans le dossier en y intégrant la date du jour? et cela malgrè l'ouverture de la boite "enregistrer sous".
je vous mets ci-dessous mon code VBA en espérant m'avoir bien fait comprendre, ce n'est pas facile d'expliquer lorsqu'on est débutant.
Public Sub CommandButton1_Click() 'Activesheet Backup Copy
Dim nom As String
yourmsgbox = Msgbox("Fichier à enregistrer dans le dossier affaire sous B-Etude/B5-Dossier Qualité/A.107-Bordereau d'acompagnement", vbOKCancel)
If yourmsgbox = vbCancel Then
Exit Sub
End If
ActiveSheet.Copy
Application.Dialogs(xlDialogSaveAs).Show
End Sub
Merci de l'intêret que vous porterez à ma demande.
Salutations