sauvegarde puis re-utilisation

Re : sauvegarde puis re-utilisation

Re

voici le fichier base modifiée

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.

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

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)

Re : sauvegarde puis re-utilisation

re

c'est plutôt du genre

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

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.

Re : sauvegarde puis re-utilisation

RE

modifies

MonNom = ActiveCell.Value & ".xls"

par

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

Re : sauvegarde puis re-utilisation

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

Merci

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

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

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