Bonsoir à toutes et tous,
Je viens solliciter votre aide pour un problème déjà évoqué sur ce forum mais que je ne retrouve plus
J'ai crée un fichier Excel avec une macro en VBA.
J'ai transféré ce fichier Excel sur un fichier Google Sheets et j'aimerais pour utiliser ma macro VBA sur ce fichier.
Ci-dessous le code VBA :
Sub Archiver()
ligne = Sheets("- Suivi Factures -").Range("A6").End(xlDown).Row + 1
Sheets("- Suivi Factures -").Range("A" & ligne).Value = Sheets("- Facture -").Range("A12").Value
Sheets("- Suivi Factures -").Range("B" & ligne).Value = Sheets("- Facture -").Range("B12").Value
Sheets("- Suivi Factures -").Range("C" & ligne).Value = Sheets("- Facture -").Range("C12").Value
Sheets("- Suivi Factures -").Range("D" & ligne).Value = Sheets("- Facture -").Range("D27").Value
Sheets("- Facture -").Range("B12").ClearContents
Sheets("- Facture -").Range("C12").ClearContents
Sheets("- Facture -").Range("A16:A25").ClearContents
Sheets("- Facture -").Range("B16:B25").ClearContents
Sheets("- Facture -").Range("C16:C25").ClearContents
Sheets("- Facture -").Range("D16:D25").ClearContents
On Error GoTo Num?roUn
N = Right(Range("A12").Value, 5)
Range("A12").Value = "F" & Year(Date) & Month(Date) & "-" & Format(N + 1, "00000")
Exit Sub
NumeroUn:
Range("A12").Value = "F" & Year(Date) & Month(Date) & "-" & Format(1, "00000")
Resume Next
Worksheets("- Facture -").Range("A12").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="C:\Users\mur_a\Documents\Facture.pdf", _
Quality:=xlQualityStandard, _
IncludedDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
Quelqu'un serait-il en mesure de me transformer ce code VBA en un code utilisable sur Google Sheets ?
Merci d'avance de votre aide et de votre compréhension.
Bonne soirée.