Message de "variable non définie" dans une macro
Bonjour,
dans la VBA ci-après => je reçois un message d'erreur au niveau de "Path = "S:\TextileFR\MP\REPERT..."
le message VBA dit : "variable non définie"
je ne comprends pas le message car j'ai défini une variable dans la macro => Dim sFound As String
le programme VBA concerné :
Option Explicit
Dim nSem&, form$, plage As Range
Sub decaler()
If Range("AL1").Value >= -1 And Range("AL1").Value <= 25 Then
Sheets("Ventes magasins").Select
nSem = Range("AL1").Value + 31
Set plage = Range(Cells(3, nSem), Cells(Range("A" & Rows.Count).End(xlUp).Row, nSem))
plage.Formula = Range("AD1").Formula
plage.Copy
plage.Resize(1, 1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
plage.Resize(1, 1).Select
'''''''''''''''''''''''''''''''''''''''''''
Dim sFound As String
Path = "S:\TextileFR\MP\REPERTOIRE COMMUN MP\LA BOÎTE A OUTILS MP\Les deux reportings\Couverture des stocks\0. DOSSIERS SOURCES REPORTING COUV DE STOCKS\2019S13 ""
sFound = Dir(Path & "\Sorties_Entrepot.xlsx")
If sFound <> "" Then
Workbooks.Open Filename:=Path & "\" & sFound
Windows("Couverture de stock PE19 - 66.xlsm").Activate
Sheets("Sortie entrepôt").Select
Merci d'avance pour votre aide
Bonjour,
Path = "S:\TextileFR\MP\REPERTOIRE COMMUN MP\LA BOÎTE A OUTILS MP\Les deux reportings\Couverture des stocks\0. DOSSIERS SOURCES REPORTING COUV DE STOCKS\2019S13 ""À la fin, il y a doubles guillemets au lieu d'un ... et une espace entre le 3 et le guillemet. L'espace est-il bien présent ? Ou est-ce une faute de frappe ???
ric
bonjour,
l'espace est bien présent
mais même lorsque je supprime les doubles guillemets => j'ai toujours le message VBA "variable non définie"
Bonjour,
Si semble qu'il manque la déclaration de la variable Path ...
Dim sPath As String
ric
Bonjour,
Path est un nom réservé.
Il faut donc sPath ou strPath as String pour la déclaration et l'utilisation ultérieure.
Cdlt.
Bonjour,
Merci Jean-Eric pour le rappel. Je vais tâcher de m'en souvenir.
ric