VBA Subscript out of range

[Kouik Kouik jr]

Bonsoir le forum,

mon code qui marchait hier ( je ne l'ai pas modifié entre temps)
bug aujourd'hui et me met error 9 Subscript out of range sur la ligne

  Sheets("Symb1").Select

Je ne comprends pas pourquoi ?

Voici mon code

Merci d'avance pour toute aide ou infos

Sub Chargement_donnees()


    Application.DisplayAlerts = False
    Application.ScreenUpdating = False

'Chargement données Journal_identifiants

            Windows("VBA_RECONCIL.xls").Activate
            Sheets("JOURNAL").Select
            Cells.Select
            Selection.ClearContents
            
            
            'set path for files - change for your folder
    Const myDir3 As String = "V:\3A OPERATIONS\RCHF\VBA Reconcil\Reconciliation ptf\Fichiers"
    
    'set up filesys objects
    Set FileSys = New FileSystemObject
    Set myFolder = FileSys.GetFolder(myDir3)
        
    
    'loop through each file and get date last modified. If largest date then store Filename
    dteFile = DateSerial(1900, 1, 1)
    For Each objFile In myFolder.Files
        If objFile.DateLastModified > dteFile Then
            dteFile = objFile.DateLastModified
            strFilename = objFile.Name
        End If
    Next objFile
    Workbooks.Open myDir3 & "\" & strFilename
            
      Set FileSys = Nothing
      Set myFolder = Nothing
           
                Journal_identifiants = ActiveWorkbook.Name
                Sheets("Only_yellow").Select
                Cells.Select
                Selection.Copy
                Windows("VBA_RECONCIL.xls").Activate
                Sheets("JOURNAL").Select
                Range("A1").Select
                ActiveSheet.Paste

                'Workbooks.Open Filename:=Journal_identifiants
                Journal_identifiants = ActiveWorkbook.Name
                Sheets("Symb1").Select
                Cells.Select
                Selection.Copy
                Windows("VBA_RECONCIL.xls").Activate
                Sheets("Symbol").Select
                Range("A1").Select
                ActiveSheet.Paste

Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    
    
    End Sub

 

[Compte Supprimé 979]

Re : VBA Subscript out of range

Salut,

As-tu bien une feuille nommée "Symb1" dans ton classeur actif ?

A+

 

[Kouik Kouik jr]

Re : VBA Subscript out of range

Oui j'ai bien une feuille Symb1 dans le fichier actif

j'ai essayé de contourner le problème en faisant le code suivant mais cela ne marche pas mieux ( il ne me transmet que les couleurs du fichier) Symb1 ce qui veut dire qu'il l'ouvre et copie mais ne copie pas les cellules (chiffres) comme demandé ?

Sub Chargement_donnees()


    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
 
            'Chargement données Journal_identifiants1

            Windows("VBA_RECONCIL.xls").Activate
            Sheets("JOURNAL").Select
            Cells.Select
            Selection.ClearContents
            
            
            'set path for files - change for your folder
    Const myDir3 As String = "V:\3A OPERATIONS\RCHF\VBA Reconcil\Reconciliation ptf\Fichiers"
    
    'set up filesys objects
    Set FileSys = New FileSystemObject
    Set myFolder = FileSys.GetFolder(myDir3)
        
    
    'loop through each file and get date last modified. If largest date then store Filename
    dteFile = DateSerial(1900, 1, 1)
    For Each objFile In myFolder.Files
        If objFile.DateLastModified > dteFile Then
            dteFile = objFile.DateLastModified
            strFilename = objFile.Name
        End If
    Next objFile
    Workbooks.Open myDir3 & "\" & strFilename
            
      Set FileSys = Nothing
      Set myFolder = Nothing
           
                Journal_identifiants = ActiveWorkbook.Name
                Sheets("Only_yellow").Select
                Cells.Select
                Selection.Copy
                
                Windows("VBA_RECONCIL.xls").Activate
                Sheets("JOURNAL").Select
                Range("A1").Select
                ActiveSheet.Paste
                
                 'Fermeture fichier Journal_identifiants

                Workbooks(Journal_identifiants).Close


    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    
    
    End Sub

 

[Kouik Kouik jr]

Re : VBA Subscript out of range

Tout marche, désolé je faisais une erreur de débutant

Je chargeais des données et les supprimait plus loin

Merci de votre aide quand même !