P
Papirus
Guest
Bonsoir le Forum
J'ai fait une procédure pour savoir si un fichier existe mais ça ne répond pas à mon besoin. Je voudrais savoir si la feuille existe dans ces classeurs.
Les classeurs ont tous des chemins différents.
Ce que J'avais :
Sub SiFeuilleExiste()
Dim i As Integer, Plage As Range,X as string
Set Plage = Worksheets("aa_MAJ_Donnees").Range("k45:k54") 'représente la plage des chemins et feuilles à vérifier
For i = Plage.Cells.Count To 1 Step -1
X = (Plage.Cells(i))
If Dir(X) = "" Then MsgBox "La feuille" & X & " est introuvable" & Chr(10) & "Prenez note de ce chemin et vérifiez le."
Next i
MsgBox "La vérification des chemins est terminée."
End Sub
Si quelqu'un à la solution pour faire cette recherche, J'appécierais.
Papirus
J'ai fait une procédure pour savoir si un fichier existe mais ça ne répond pas à mon besoin. Je voudrais savoir si la feuille existe dans ces classeurs.
Les classeurs ont tous des chemins différents.
Ce que J'avais :
Sub SiFeuilleExiste()
Dim i As Integer, Plage As Range,X as string
Set Plage = Worksheets("aa_MAJ_Donnees").Range("k45:k54") 'représente la plage des chemins et feuilles à vérifier
For i = Plage.Cells.Count To 1 Step -1
X = (Plage.Cells(i))
If Dir(X) = "" Then MsgBox "La feuille" & X & " est introuvable" & Chr(10) & "Prenez note de ce chemin et vérifiez le."
Next i
MsgBox "La vérification des chemins est terminée."
End Sub
Si quelqu'un à la solution pour faire cette recherche, J'appécierais.
Papirus
