bonjour,
Jaimerais de laide avec mon code:
Sub dateDemande()
Dim DernLigne As Long, y%, i%, s$, p$
Sheets("Stats").Unprotect
Application.ScreenUpdating = False
y = Sheets("Stats").Range("A" & Rows.count).End(xlUp).row
For i = 3 To y
s = Sheets("Stats").Cells(i, 1)
p = Sheets("pathForm").Cells(i, 1)
If Sheets("Stats").Cells(i, 7) = 3 Then
Sheets("Stats").Cells(i, 8).FormulaLocal = "='" & p & "Demande de service'!G3"
End If
Next
Application.ScreenUpdating = True
Sheets("Dates et Utilisateurs").Protect
End Sub
ce code me donne toujours erreur 1004 sur Sheets("Stats").Cells(i, 8).formulalocal = "='" & p & "Demande de service'!G3"
La formule doit faire reference a un fichier dont le nom est enmagasiner dans s sous le format : fichier.xlsx
Le chemin adapter est enmagasiner dans la variable p sous le format C:\Dossier\Dossier\Dossier\Dossier\[Fichier.xlsx]
merci