Macro pour enregister perso possible?
Fermé
hs4*2a
-
Modifié par hs4*2a le 7/06/2012 à 18:41
Le Pingou Messages postés 12069 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 6 mai 2024 - 2 juil. 2012 à 11:04
Le Pingou Messages postés 12069 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 6 mai 2024 - 2 juil. 2012 à 11:04
A voir également:
- Macro pour enregister perso possible?
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro recorder - Télécharger - Confidentialité
- Pages perso orange - Guide
5 réponses
Merci pour cette réponse rapide.
Je suis se que "l'on" peu appeler un informaticien du Dimanche, donc je ne reconnais pas une fonction même si elle me saute dessus.
Tout est sur le bureau:"C:\Users\Useur1\Desktop"
-le fichier est nommé "nouvel Facture 2011".
-la feuille se nomme "FACTURE".
-et le dispatching des facture créées se fait manuellement.
-j'ai créé en "I11" "=G12&" "&C14".
je suis désolé d'être aussi nul.
N'empêche, je vais quand même tenter de me débrouiller en attendant.
Merci d'avance pour votre compréhension (même si la mienne et limité.)
Je suis se que "l'on" peu appeler un informaticien du Dimanche, donc je ne reconnais pas une fonction même si elle me saute dessus.
Tout est sur le bureau:"C:\Users\Useur1\Desktop"
-le fichier est nommé "nouvel Facture 2011".
-la feuille se nomme "FACTURE".
-et le dispatching des facture créées se fait manuellement.
-j'ai créé en "I11" "=G12&" "&C14".
je suis désolé d'être aussi nul.
N'empêche, je vais quand même tenter de me débrouiller en attendant.
Merci d'avance pour votre compréhension (même si la mienne et limité.)
PHILOU10120
Messages postés
6371
Date d'inscription
lundi 16 avril 2012
Statut
Contributeur
Dernière intervention
5 mai 2024
797
7 juin 2012 à 20:40
7 juin 2012 à 20:40
Bonjour
Déja il faut s'organniser donc combien avez-vous de disque dur ou de partition sur votre PC.
Il serait souhaitable de sauvegarder vos fichiers sur une partition différente de celle du système, cela évite de tout perdre quand le système plante que rien ne va plus.
Par principe sur le disque C on met que le système et les applications, tous vos fichier doivent être sur une autre partition dans un dossier personnel et des sous dossiers pour chaque type de travaux. Cela sera un bon début.
Après on pourra écrire le bout de programme qui aura un chemin clair et précis
Déja il faut s'organniser donc combien avez-vous de disque dur ou de partition sur votre PC.
Il serait souhaitable de sauvegarder vos fichiers sur une partition différente de celle du système, cela évite de tout perdre quand le système plante que rien ne va plus.
Par principe sur le disque C on met que le système et les applications, tous vos fichier doivent être sur une autre partition dans un dossier personnel et des sous dossiers pour chaque type de travaux. Cela sera un bon début.
Après on pourra écrire le bout de programme qui aura un chemin clair et précis
malheureusement il il s'agit d'un disque dure de 2To(longue histoire mais on a pas eut le chois à l'époque) ,C:/ 1,80To+"RECORVERY" et D:/ 13,8Go(1,69Go dispo).
quand j'ai ouvert la tour y a plus de port "Sata" disponible (Merci "HP").
nous sauvegardons régulièrement sur 2 disque dur externe et une clé USB.
quand j'ai ouvert la tour y a plus de port "Sata" disponible (Merci "HP").
nous sauvegardons régulièrement sur 2 disque dur externe et une clé USB.
PHILOU10120
Messages postés
6371
Date d'inscription
lundi 16 avril 2012
Statut
Contributeur
Dernière intervention
5 mai 2024
797
1 juil. 2012 à 12:45
1 juil. 2012 à 12:45
Bonjour
Dans votre fichier Excel cliquer sur le menu developeur
Visual basic
Affichage
explorateur de projet
Cliquer droit sur la ligne correspondant à votre feuille et dans le menu déroulant
Insert module
Et coller tout ceci dans le module :
Dim disque As String
Dim rep As String
Dim nom As String
Dim sav As String
Sub sauvegarde()
disque = "G:\" 'mettre la lettre de votre disque
rep = "dossier\sous dossier\sous sous dossier\" 'à remplacer par vos informations
nom = Sheets("feuil1").[A1] & ".xls" 'nom feuille sera composé à partir de la cellule A1 feuille 1
sav = disque & rep & nom 'disque chemin nom fichier sauvegarde
MsgBox sav 'affiche le chemin pour vérification - mettre en texte après essai
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs sav
' ActiveWorkbook.Close 'enlever la strophe en début de ligne si vous voulez que le fichier se ferme
End Sub
Et modifier suivant vos paramètres la lettre du disque et les dossiers ou vous allez sauvegarder
Penser à mettre le nom du fichier dans la cellule A1 de la feuille 1
Vous mettre sur le texte Sub sauvegarde et appuyer sur F8 la macro se déroulera pas à pas à chaque fois que vous appuyez sur F8 cela avance d'un pas
Dans votre fichier Excel cliquer sur le menu developeur
Visual basic
Affichage
explorateur de projet
Cliquer droit sur la ligne correspondant à votre feuille et dans le menu déroulant
Insert module
Et coller tout ceci dans le module :
Dim disque As String
Dim rep As String
Dim nom As String
Dim sav As String
Sub sauvegarde()
disque = "G:\" 'mettre la lettre de votre disque
rep = "dossier\sous dossier\sous sous dossier\" 'à remplacer par vos informations
nom = Sheets("feuil1").[A1] & ".xls" 'nom feuille sera composé à partir de la cellule A1 feuille 1
sav = disque & rep & nom 'disque chemin nom fichier sauvegarde
MsgBox sav 'affiche le chemin pour vérification - mettre en texte après essai
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs sav
' ActiveWorkbook.Close 'enlever la strophe en début de ligne si vous voulez que le fichier se ferme
End Sub
Et modifier suivant vos paramètres la lettre du disque et les dossiers ou vous allez sauvegarder
Penser à mettre le nom du fichier dans la cellule A1 de la feuille 1
Vous mettre sur le texte Sub sauvegarde et appuyer sur F8 la macro se déroulera pas à pas à chaque fois que vous appuyez sur F8 cela avance d'un pas
Le Pingou
Messages postés
12069
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
6 mai 2024
1 431
2 juil. 2012 à 11:04
2 juil. 2012 à 11:04
Bonjour hs4*2a,
Dans le cas ou votre problème n'est pas résolu, il serait intéressant de connaitre exactement de quel manière vous créez la facture.... ?
Dans le cas ou votre problème n'est pas résolu, il serait intéressant de connaitre exactement de quel manière vous créez la facture.... ?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
PHILOU10120
Messages postés
6371
Date d'inscription
lundi 16 avril 2012
Statut
Contributeur
Dernière intervention
5 mai 2024
797
Modifié par PHILOU10120 le 7/06/2012 à 18:48
Modifié par PHILOU10120 le 7/06/2012 à 18:48
Bonjour
Déjà est-il possible de concaténer les deux cellules en une seule
exemple mettre en C15 exemple =G12&" "&C14
Mettre dans le module de la sauvegarde les variables
Dim disque As String
Dim rep As String
Dim nom As String
Dim sav As String
et dans la procédure ces lignes
disque = "E:\" 'nom du disque
rep = "dossier\sous dossier\sous sous dossier\" 'nom des répertoires
nom = Sheets("feuil1").[A1] & ".xls" 'nom feuille
sav = disque & rep & nom 'disque chemin nom fichier sauvegarde
MsgBox sav 'affiche le chemin pour vérification - mettre en texte après essai
On Error GoTo erreur
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs sav
' ActiveWorkbook.Close
modifier à vos besoins
Déjà est-il possible de concaténer les deux cellules en une seule
exemple mettre en C15 exemple =G12&" "&C14
Mettre dans le module de la sauvegarde les variables
Dim disque As String
Dim rep As String
Dim nom As String
Dim sav As String
et dans la procédure ces lignes
disque = "E:\" 'nom du disque
rep = "dossier\sous dossier\sous sous dossier\" 'nom des répertoires
nom = Sheets("feuil1").[A1] & ".xls" 'nom feuille
sav = disque & rep & nom 'disque chemin nom fichier sauvegarde
MsgBox sav 'affiche le chemin pour vérification - mettre en texte après essai
On Error GoTo erreur
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs sav
' ActiveWorkbook.Close
modifier à vos besoins
ça marche comment pour faire ça? s'il vous plais.
j'y arrives vraiment pas là.... merci.
Mettre dans le module de la sauvegarde les variables
Dim disque As String
Dim rep As String
Dim nom As String
Dim sav As String
et dans la procédure ces lignes
disque = "E:\" 'nom du disque
rep = "dossier\sous dossier\sous sous dossier\" 'nom des répertoires
nom = Sheets("feuil1").[A1] & ".xls" 'nom feuille
sav = disque & rep & nom 'disque chemin nom fichier sauvegarde
MsgBox sav 'affiche le chemin pour vérification - mettre en texte après essai
On Error GoTo erreur
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs sav
' ActiveWorkbook.Close
modifier à vos besoins... quand on sait s'en servir!! merci
j'y arrives vraiment pas là.... merci.
Mettre dans le module de la sauvegarde les variables
Dim disque As String
Dim rep As String
Dim nom As String
Dim sav As String
et dans la procédure ces lignes
disque = "E:\" 'nom du disque
rep = "dossier\sous dossier\sous sous dossier\" 'nom des répertoires
nom = Sheets("feuil1").[A1] & ".xls" 'nom feuille
sav = disque & rep & nom 'disque chemin nom fichier sauvegarde
MsgBox sav 'affiche le chemin pour vérification - mettre en texte après essai
On Error GoTo erreur
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs sav
' ActiveWorkbook.Close
modifier à vos besoins... quand on sait s'en servir!! merci
