Bonjour à tous,
Est il possible de me convertir ce truc la pour l'utiliser dans google sheet ?
Sub RecupereNumOppy()
Const sFeuilleDonnees As String = "DONNEES"
Const sFeuilleFiche As String = "FICHE RM"
Const iColOppy As Integer = 1
Const sCelluleCible As String = "NumOppyRecherche"
Dim sNumOppy As String
With ActiveWorkbook
sNumOppy = .Sheets(sFeuilleDonnees).Cells(ActiveCell.Row, iColOppy).Value
.Sheets(sFeuilleFiche).Range(sCelluleCible).Cells(1, 1).Value = sNumOppy
.Sheets(sFeuilleFiche).Activate
End With
End Sub
Merci pour votre aide.
Fanny