Erreur d’exécution '1004

Le 13/01/2021 à 15:02

bonjour

j'ai une erreur incompréhensible pour moi. Ci mon code et l'image de l'erreur.

quand j’exécute la macro à partir de mon bouton j'ai le message d'erreur sur la parti

Workbooks.Open Chemin & Fichier

alors que si je vais dans mon VBA et que j’exécute celle ci pas à pas (F8)

je n'ai aucune erreur tout fonctionne.

merci de votre aide par avance

Philippe

Sub copie()

'on recherche la derniére date du fichier copié,on la copie et colle en b2
    Range("A3").Select
    Selection.End(xlDown).Select
    Selection.Copy
    Range("B2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

'si la date du dernier fichier copié <> de la date d'aujourd'hui on execute
    If Cells(2, 1).Value <> Cells(2, 2).Value Then

'on ouvre le fichier à copier

    Dim Chemin As String
    Dim Fichier As String

    Chemin = "S:\Supply_Chain\Mylène MAURY\Yellow Belt 2020\rapports auto 2020 - pour histo\rapports STO015F\"
    Fichier = "STO015F-" & Range("C2").Text & ".xls"
    Workbooks.Open Chemin & Fichier

'on copie le fichier

    Range("U4").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToLeft)).Select
    Selection.Copy

 Windows("récap STO015F vba.xlsm").Activate

'déclaration de ligne
    Dim ligne As Long

'recherche de la cellue active en colonne B
    Range("b3").Select
    Selection.End(xlDown).Offset(1, 0).Select
    cellule = ActiveCell.Row
    ActiveSheet.Paste

 'recherche de la ligne active
    Range("a3").Select
    Selection.End(xlDown).Offset(1, 0).Select
    ligne = ActiveCell.Row

 ' colle la date du rapport copié tant que
 Do While Cells(ligne, 2).Value <> ""

 Cells(ligne, 1).Value = Cells(2, 3).Value

   ligne = ligne + 1
    Loop

    ' on ferme le fichier copier
    Windows(Fichier).Activate
    Application.CutCopyMode = False
    ActiveWorkbook.Save
    ActiveWorkbook.Close

End If

End Sub

Le 13/01/2021 à 15:58

Bonjour,

Une ligne avant "Workbooks.Open Chemin & Fichier"

Ajoute : MsgBox Chemin

Ajout une autre ligne : MsgBox Fichier

Est-ce que l'information des MsgBox est exacte ? > pas d'espace de trop dans les noms ? > etc. ...

ric

Le 13/01/2021 à 16:36

bonjour Ric

merci pour ta réponse,

ok ça fonctionne, mais ça ne m’arrange pas car je dois faire une boucle sur la macro, y a t il un moyen de passer outre la Msg box

cordialement