eastwick
XLDnaute Accro
Bonjour à toutes et tous,
Ci-jointe ma macro qui ne fonctionne que si le fichier où l'information requise est ouvert sinon #N/A.
Sub Macro3()
'
' Macro3 Macro
'
'
ActiveCell.FormulaR1C1 = _
"=HLOOKUP(""PREVISIONS"",'S:\FINANCE\Exercice 2025\515.ods'!R3C1:R26C2,24,FALSE)"
ActiveCell.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.NumberFormat = "#,##0.00"
With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End Sub
Le fichier où est l'info est ods, il vient de l'extérieur.
Je vous remercie.
Ci-jointe ma macro qui ne fonctionne que si le fichier où l'information requise est ouvert sinon #N/A.
Sub Macro3()
'
' Macro3 Macro
'
'
ActiveCell.FormulaR1C1 = _
"=HLOOKUP(""PREVISIONS"",'S:\FINANCE\Exercice 2025\515.ods'!R3C1:R26C2,24,FALSE)"
ActiveCell.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.NumberFormat = "#,##0.00"
With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End Sub
Le fichier où est l'info est ods, il vient de l'extérieur.
Je vous remercie.