Bonjour le forum,
J'ai déjà demandé de l'aide sur une macro pour observer un copier coller sous condition le code donne cela (et il fonctionne très bien) :
(Le but est de copier les lignes complètes qui manquent dans VTE QUERY, que l'on retrouve dans Extraction grâce aux numéros de factures supérieurs au dernier numéro de facture de VTE QUERY (colonne AA)).
Je voudrais maintenant effectuer le même transfert que dans la macro précédente mais le transfert se ferais cette fois-ci de VTE QUERY vers un fichier nommé 'Ventes commerciaux' dans la feuille 'Ventes totales' (Le fichier avec la feuille VTE QUERY serait déjà ouvert, et le fichier Ventes commerciaux se trouve dans le même répertoire).
J'ai tenté ceci mais j'ai un beug :
Pouvez-vous m'aider à modifier ce code pour qu'il fonctionne.
Merci d'avance.
Ophé
J'ai déjà demandé de l'aide sur une macro pour observer un copier coller sous condition le code donne cela (et il fonctionne très bien) :
Dim Wb As Workbook
'Application.Calculation = xlCalculationManual
nf = [Large(AA:AA, 1)]
fichier = ThisWorkbook.Path & "\Extraction.xls"
Set Wb = GetObject(fichier)
With Workbooks(ThisWorkbook.Name)
lg = .Sheets("VTE QUERY").Range("AA65536").End(xlUp).Row + 1
For n = 6 To Wb.Sheets("Extraction").Range("AA65536").End(xlUp).Row
If Wb.Sheets("Extraction").Range("AA" & n) > nf Then
.Sheets("VTE QUERY").Range("A" & lg & ":AB" & lg).Value = _
Wb.Sheets("Extraction").Range("A" & n & ":AB" & n).Value
lg = lg + 1
End If
Next n
End With
'Wb.Close
'Application.Calculation = xlCalculationAutomatic
(Le but est de copier les lignes complètes qui manquent dans VTE QUERY, que l'on retrouve dans Extraction grâce aux numéros de factures supérieurs au dernier numéro de facture de VTE QUERY (colonne AA)).
Je voudrais maintenant effectuer le même transfert que dans la macro précédente mais le transfert se ferais cette fois-ci de VTE QUERY vers un fichier nommé 'Ventes commerciaux' dans la feuille 'Ventes totales' (Le fichier avec la feuille VTE QUERY serait déjà ouvert, et le fichier Ventes commerciaux se trouve dans le même répertoire).
J'ai tenté ceci mais j'ai un beug :
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
Pouvez-vous m'aider à modifier ce code pour qu'il fonctionne.
Merci d'avance.
Ophé