Bonjour le forum,
j'ai encore une fois besoin de votre aide.
J'ai effectué (avec l'aide du forum) une macro ayant pour but de coller les factures manquantes d'un fichier à un autre les factures étant en colonne AA; la macro donne ca
Elle a fonctionné au début, mais m'indique un beug en ce moment et d'habitude j'arrive à trouver le problème mais là non, car l'écriture est la même que pour une autre macro qui fonctionne. Le beug est indiquée sur la ligne écrite en bleu et le beug indique une "incompatibilité de type".
Si vous avez une solution car la je ne comprend pas du tout.
Merci d'avance
Ophé
j'ai encore une fois besoin de votre aide.
J'ai effectué (avec l'aide du forum) une macro ayant pour but de coller les factures manquantes d'un fichier à un autre les factures étant en colonne AA; la macro donne ca
Dim Wb As Workbook
'Application.Calculation = xlCalculationManual
nf = [Large(AA:AA, 1)]
fichier = ThisWorkbook.Path & "\Ventes commerciaux.xlsx"
Set Wb = GetObject(fichier)
With Workbooks(ThisWorkbook.Name)
lg = .Sheets("Ventes totales").Range("AA65536").End(xlUp).Row + 1
For n = 6 To Wb.Sheets("VTE QUERY").Range("AA65536").End(xlUp).Row
If Wb.Sheets("VTE QUERY").Range("AA" & n) > nf Then
.Sheets("Ventes totales").Range("A" & lg & ":AB" & lg).Value = _
Wb.Sheets("VTE QUERY").Range("A" & n & ":AB" & n).Value
lg = lg + 1
End If
Next n
End With
'Wb.Close
'Application.Calculation = xlCalculationAutomatic
Elle a fonctionné au début, mais m'indique un beug en ce moment et d'habitude j'arrive à trouver le problème mais là non, car l'écriture est la même que pour une autre macro qui fonctionne. Le beug est indiquée sur la ligne écrite en bleu et le beug indique une "incompatibilité de type".
Si vous avez une solution car la je ne comprend pas du tout.
Merci d'avance
Ophé