Archivage facture
Fermé
orguyrine
Messages postés
51
Date d'inscription
jeudi 22 mai 2008
Statut
Membre
Dernière intervention
12 mars 2024
-
Modifié le 1 juin 2019 à 20:39
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 6 juin 2019 à 13:06
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 6 juin 2019 à 13:06
A voir également:
- Archivage facture
- Police facture edf - Forum Graphisme
- Police facture - Forum Windows
- Logiciel devis facture - Télécharger - Comptabilité & Facturation
- Facture aliexpress - Forum Consommation & Internet
- Facture réglo mobile - Forum Opérateurs & Réseaux mobiles
3 réponses
orguyrine
Messages postés
51
Date d'inscription
jeudi 22 mai 2008
Statut
Membre
Dernière intervention
12 mars 2024
1 juin 2019 à 20:38
1 juin 2019 à 20:38
encore moi
le code d'erreur est sur la ligne .SaveAS ....
le code d'erreur est sur la ligne .SaveAS ....
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
2 juin 2019 à 11:55
2 juin 2019 à 11:55
Bonjour,
il faut que tu crées ton dossier voir ceci:
https://excel-malin.com/codes-sources-vba/vba-verifier-si-dossier-existe/
voilà le code:
voilà
il faut que tu crées ton dossier voir ceci:
https://excel-malin.com/codes-sources-vba/vba-verifier-si-dossier-existe/
voilà le code:
Option Explicit 'Déclaration des variables Dim NomDossier As String Dim CheminDossier As String Private Sub CommandButton1_Click() Archivage End Sub Sub Archivage() 'Nom de dossier NomDossier = Application.InputBox("Dossier Enregistrement :", "Dossier") CheminDossier = "D:\Mes documents\Excel\Facture\" & NomDossier & "\" TesteSiDossierExiste Application.DisplayAlerts = False 'On désactive les messages d'alerte If Range("F9").Value = "" Then 'On test que le numéro de facture à bien été saisie MsgBox "Vous n'avez pas saisie le N° de facture ." & vbCrLf & " Meci de faire le nécessaire.", vbCritical, "Sauvegarde" Else ' SINON With ActiveWorkbook ' Enregistrement du classeur portant le N° de la cellule F9 .SaveAs Filename:=CheminDossier & Range("F9").Value & ".xlsx", _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False End With ' On affiche un message informant que le fichier a bien été sauvegardé. MsgBox "Fichier sauvegardé", vbInformation, "Enregistrement" End If Application.DisplayAlerts = True 'On réactive la gestion des alertes. End Sub 'https://excel-malin.com/codes-sources-vba/vba-verifier-si-dossier-existe/ Sub TesteSiDossierExiste() 'par Excel-Malin.com ( https://excel-malin.com ) Dim MonDossier As String MonDossier = CheminDossier If DossierExiste(MonDossier) = True Then MsgBox "Le dossier existe..." Else MkDir (CheminDossier) ' on crée le dossier End If End Sub Public Function DossierExiste(MonDossier As String) 'par Excel-Malin.com ( https://excel-malin.com ) If Len(Dir(MonDossier, vbDirectory)) > 0 Then DossierExiste = True Else DossierExiste = False End If End Function
voilà
orguyrine
Messages postés
51
Date d'inscription
jeudi 22 mai 2008
Statut
Membre
Dernière intervention
12 mars 2024
5 juin 2019 à 19:04
5 juin 2019 à 19:04
Bonjour
Je vous remercie de votre réactivité à m'aider sur le code .Une question dans l'archivage garde t-il les formules .
en vous remerciant
orguyrine
Je vous remercie de votre réactivité à m'aider sur le code .Une question dans l'archivage garde t-il les formules .
en vous remerciant
orguyrine
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
5 juin 2019 à 19:44
5 juin 2019 à 19:44
Oui suivant le code donné, il enregistre le classeur tel qu'il est!
@+
@+
orguyrine
Messages postés
51
Date d'inscription
jeudi 22 mai 2008
Statut
Membre
Dernière intervention
12 mars 2024
6 juin 2019 à 12:36
6 juin 2019 à 12:36
Bonjour
Je vous remercie encore de votre réponse aussi rapide
Une autre question : Puis je modifier dans le code xlsx par xlsm pour sauvegarder aussi les macros
En vous remerciant
orguyrine
Je vous remercie encore de votre réponse aussi rapide
Une autre question : Puis je modifier dans le code xlsx par xlsm pour sauvegarder aussi les macros
En vous remerciant
orguyrine
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
6 juin 2019 à 13:06
6 juin 2019 à 13:06
Oui, comme ceci:
@+
With ActiveWorkbook ' Enregistrement du classeur portant le N° de la cellule F9 .SaveAs Filename:=CheminDossier & Range("F9").Value & ".xlsm", FileFormat:= _ xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False End With
@+