bonjour a tous
dans mon premier fichier de facturation qui a très bien fonctionner jusqu’à son remplacement, je voudrais trouver pourquoi le tableau est attendu dans le code suivant avec une erreur de compilation a ubound
j'ai déja rajouter les variables pour qu'il fonctionne un peu
Sub nouvelleFacture()
' nouvelle Facture Macro
' Macro enregistrée le 16/07/2006 par Moi
Dim liaisons As Integer
Dim i As Integer
Sheets("Facture").Copy
ActiveSheet.Shapes("Button 1").Select
Selection.Cut
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
liaisons = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
For i = 1 To UBound(liaisons)
ActiveWorkbook.BreakLink _
Name:=liaisons(i), _
Type:=xlLinkTypeExcelLinks
Next
Vname = "C:\Users\UTILISATEUR\Desktop\ma comptabilité 2015\factures 2015" & Range(" B12 ").Value & Range(" C12 ").Value & Range(" E6 ").Value & ".xls"
ActiveWorkbook.SaveAs Filename:=Vname, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
Range("A6").ClearContents
Range("A14:A38").ClearContents
Range("E14:E38").ClearContents
Range("h14:h38").ClearContents
Range("g43").ClearContents
Call Ajouternum
Range("A5").Select
End Sub
c'est sur il n'est pas catholique avec les sélect mais il fonctionnait correctement et je voudrais le mettre en ligne pour faire profiter d'autres
Pascal