sauvegarde puis re-utilisation

[ninanani]

Bonjour,

J ai une matrice qui me permet de sauvegarder qu une seule feuille d un fichier, ce qui est bien pratique et marche tres bien.

Ensuite, je choisis l emplacement ou je veux le sauvegarder entre "paid" et "unpaid". Ce que je souhaiterais faire :
c est que si la feuille est enregistree dans "unpaid", lorsque dans mon dossier de base, je re-choisi le meme nom de patient, la meme facture re-apparaisse pour pouvoir la completer et rajouter des paiements effectues.

Je ne sais pas si cela est possible.

Merci de votre aide!🙂

 

[PascalXLD]

Re : sauvegarde puis re-utilisation

Re

voici le fichier base modifiée

 

[ninanani]

Re : sauvegarde puis re-utilisation

Merci,
je ne suis vraiment pas brillante en macro.

J ai copie la macro que tu avais insere dans ton fichier base modifie. Et je les colle dans mon fichier base, mais lorsque je clique sur run, cela ne change rien.

 

[PascalXLD]

Re : sauvegarde puis re-utilisation

RE

il faudrait peut-être regarder si le chemin est le bon

il faut aller dans VBE (altf11) et bien regarder la variable chemin si c'est vraimetn ton bon chemin

 

[ninanani]

Re : sauvegarde puis re-utilisation

Re
J ai change quelque truc dans le chemin, j ai mis:

Chemin = "desktop:\Nina\Invoices\Unpaid\"

Mais il m affiche un message d erreur, et me surligne en jaune la ligne suivante:
Txt = Dir(Chemin & MonNom)

 

[PascalXLD]

Re : sauvegarde puis re-utilisation

re

c'est plutôt du genre

"C:\Documents and Settings\Ton Nom\Bureau\Nina\Invoices\Unpaid\"

 

[ninanani]

Re : sauvegarde puis re-utilisation

Re

Cela ne marche toujours pas, j ai pourtant bien verifie le chemin ainsi que l orthographe du chemin. ( j ai mis bureau en anglais)
Je ne comprend pas pourquoi ca marche pas.

Peut etre c est parceque il n est pas precise dans quelle cellule est le nom pour lequel il faut une correspondance. Ma cellule est B16, je dois le mettre ou dans la macro?

Merci encore.

 

[PascalXLD]

Re : sauvegarde puis re-utilisation

RE

modifies

MonNom = ActiveCell.Value & ".xls"

par

MonNom = range("B16").Value & ".xls"

 

[ninanani]

Re : sauvegarde puis re-utilisation

Re
C est fait mais cela ne marche touours pas.
Je ne comprend vraiment pas pourquoi...

Merci

 

[PascalXLD]

Re : sauvegarde puis re-utilisation

Re

Sans voir le fichier et les autres cela va être dur

il faudrait un petit exemple sans données confidentielles de ta base

 

[ninanani]

Re : sauvegarde puis re-utilisation

Re,

Voila en piece jointe la base, sur cette base sont appliquees deux matrices:

La premiere pour sauvegarder seul une feuille de mon fichier:
Sub Save_Sheet()

Dim strNom As Variant

strNom = Application.GetSaveAsFilename(Name & Range("B16") & Format(Range("G16"), " yyyy-mm-dd"), "Invoices (*.xls),*.xls")

If strNom <> False Then
ActiveSheet.Copy
ActiveWorkbook.SaveAs strNom
ActiveWorkbook.Close
End If

End Sub


La seconde pour mettre a jour un numero apres chaque sauvegarde:
Sub IncrementationFactureNumero()
Dim NumberInvoiceNumber As Integer
Dim RangeInvoiceNumber As Range
Dim StringInvoiceNumber As String

Set RangeInvoiceNumber = Sheets("Invoices").Range("G14")
StringInvoiceNumber = ""
With RangeInvoiceNumber
If .Value = "" Then
.Value = StringInvoiceNumber & " " & Format(0, "0")
End If
End With
NumberInvoiceNumber = Val(Mid(RangeInvoiceNumber, Len(StringInvoiceNumber) + 1))
NumberInvoiceNumber = NumberInvoiceNumber + 1
RangeInvoiceNumber = StringInvoiceNumber & " " & Format(NumberInvoiceNumber, "0000")

End Sub

Et puis un autre( celle que jai copie sur le fichier base que tu m a envoye, mais qui n est pas prise en compte:
Sub Lancement()
Dim MonNom As String
Dim Chemin As String, Txt As String

MonNom = Range("B16").Value & ".xls"

Chemin = "C:\Documents and Settings\Ton Nom\desktop\nina\invoices\unpaid\"
Txt = Dir(Chemin & MonNom)
If Not Txt = "" Then
Workbooks.Open Filename:=Chemin & MonNom
End If


End Sub


J ai sorti les macros de mon fichier joint car sinon il ete trop volumineu.

Merci beaucoup

 

[PascalXLD]

Re : sauvegarde puis re-utilisation

Re

Oui mais le fichier que tu as envoyé il n'y a rien dedans à part des macros qui trainent et qui portent le même nom (c'est bizarre)

Sinon dans cette ligne

Chemin = "C:\Documents and Settings\Ton Nom\desktop\nina\invoices\unpaid\"

Ton nom il faut mettre ton nom d'user