Enregistrer automatiquement sous.... vba exce
Résolu
lindette
Messages postés
38
Date d'inscription
Statut
Membre
Dernière intervention
-
lindette -
lindette -
A voir également:
- Enregistrer automatiquement sous.... vba exce
- Audacity enregistrer son pc - Guide
- Automatiquement - Guide
- Comment enregistrer une conversation - Guide
- Enregistrer son ecran - Guide
- Comment enregistrer une video youtube - Guide
6 réponses
Bonsoir lindette,
Remplaces :
par :
Est-ce bien ce que tu voulais ?
Cordialement.
Remplaces :
SendKeys ThePath & Thefile + "C:\Documents and Setting\SM ALU\Mes documents\clients\" & Range("D11").Value & Range("B24").Value
ActiveWindow.selectsheets.Save
par :
ActiveWorkbook.SaveAs Filename:=("C:\Documents and settings\SM ALU\Mes documents\clients\" & Range("D11").Value & Range("B24").Value)
Est-ce bien ce que tu voulais ?
Cordialement.
oh oui Papou exactement ... super super mais j'ai un autre probléme maintenant je voudrais trouver une solution pour incrémenter un numero de facture sachant que je n'enregistre pas les modifications sur mon classeur1 car il me sert de modéle, une petite solution pour moi sans vouloir abuser.....
merci d'avance
lindette
merci d'avance
lindette
Je ne comprends pas bien ta raison : il me semble plus intéressant et surtout plus simple d'enregistrer tes numéros de factures dans ton classeur, en masquant la cellule ou la feuille qui les contient. Et surtout, ça simplifie l'incrémentation et permet d'utilser ton classeur sur différents postes, le modèle étant toujours à jour (pas de risques de doublons).
Sinon, il suffit d'enregistrer les factures dans un fichier (ou un classeur) mais celà complique la programmation.
Qu'en penses-tu ?
Cordialement.
Sinon, il suffit d'enregistrer les factures dans un fichier (ou un classeur) mais celà complique la programmation.
Qu'en penses-tu ?
Cordialement.
donc tu me suggére de mettre le numero de facture +1 sur la feuille colonne H par exemple mais comme je n'enregistre pas ce classeur à la fermeture j'aurais toujours le meme numero non?
cordialement
Linda
cordialement
Linda
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour lindette,
Autant pour moi, le problème est plus complexe que mon cerveau fatigué de la nuit dernière ne me laissait supposer.
Mais par chance, pour toi, le problème a déjà été traité sur ce même forum : cliques sur le lien ci-dessous et tu sauras tout.
macro excel incrementer des numeros#0
Bonne lecture.
Cordialement.
Autant pour moi, le problème est plus complexe que mon cerveau fatigué de la nuit dernière ne me laissait supposer.
Mais par chance, pour toi, le problème a déjà été traité sur ce même forum : cliques sur le lien ci-dessous et tu sauras tout.
macro excel incrementer des numeros#0
Bonne lecture.
Cordialement.
Merci Papou je vais aller voir ça.
moi j'ai créér un autre classeur et j'ai fait une macro dans mon Classeur1 :
"
Sub RecupValeur()
Dim Val1
MsgBox ("taper controle + L pour incrémenter le numero de facture et ensuite contrôle + N pour le nom client")
' Touche de raccourci du clavier: Ctrl+ L
'Dim Resultat As Integer (pour un résultat en entier)
Workbooks.Open Filename:="C:\Documents and Settings\SM ALU\Mes Documents\numerofact.xls"
Val1 = Sheets("numero").[A1].Value
Resultat = Val1 + 1
Windows("Classeur1.xls").Activate
Sheets("DEVIS").Select
Sheets("DEVIS").[B23].Value = (Resultat)
Windows("numerofact.xls").Activate
ActiveWorkbook.Save
ActiveWindow.Close
End Sub
"
Et cela fonctionne bien mais je vais quand même aller voir le lien
j'avance petit à petit...
Merci encore
Cordialement
Lindette
moi j'ai créér un autre classeur et j'ai fait une macro dans mon Classeur1 :
"
Sub RecupValeur()
Dim Val1
MsgBox ("taper controle + L pour incrémenter le numero de facture et ensuite contrôle + N pour le nom client")
' Touche de raccourci du clavier: Ctrl+ L
'Dim Resultat As Integer (pour un résultat en entier)
Workbooks.Open Filename:="C:\Documents and Settings\SM ALU\Mes Documents\numerofact.xls"
Val1 = Sheets("numero").[A1].Value
Resultat = Val1 + 1
Windows("Classeur1.xls").Activate
Sheets("DEVIS").Select
Sheets("DEVIS").[B23].Value = (Resultat)
Windows("numerofact.xls").Activate
ActiveWorkbook.Save
ActiveWindow.Close
End Sub
"
Et cela fonctionne bien mais je vais quand même aller voir le lien
j'avance petit à petit...
Merci encore
Cordialement
Lindette