erreur de compilation

[Jielgé]

Bonjour,
En tant que nouveau membre, il m'est demandé de me présenter... Alors voilà : je suis jeune retraité, et j'ai eu l'occasion lors de ma carrière professionnelle de m'intéresser à VBA, et à l'époque je me suis créé quelques utilitaires qui utilisait des formulaires sur-mesure. Depuis, le manque de pratique m'a fait oublier quelques bases, et j'ai maintenant du mal à m'y remettre.
Notamment, l'exécution du code ci-dessous génère un message "Erreur de compilation - fonction ou variable attendue" à la dernière ligne. Je n'arrive pas à m'en sortir : quelqu'un a-t-il la solution ?

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim Wb As Workbook
Dim Chemin As String, Fichier As String
Chemin = "C:\Users\xxx\Fichiers à traiter\"
Fichier = Dir(Chemin & "*.xlsx")
Do While Fichier <> ""
Set Wb = Workbooks.Open(Chemin & Fichier)
MsgBox "Fichier ouvert = " & Fichier, vbOKOnly, "Info"
Range("A3:F34").Select
Selection.Copy

 

[Oneida]

Bonjour,

Sur quelle ligne l'erreur?
Manque la suite du code

 

[wDog66]

Bonjour Jielgé et bienvenue,
Salut Oneida 😉

Bonjour,
En tant que nouveau membre, il m'est demandé de me présenter... Alors voilà : je suis jeune retraité, et j'ai eu l'occasion lors de ma carrière professionnelle de m'intéresser à VBA, et à l'époque je me suis créé quelques utilitaires qui utilisait des formulaires sur-mesure. Depuis, le manque de pratique m'a fait oublier quelques bases, et j'ai maintenant du mal à m'y remettre.
Notamment, l'exécution du code ci-dessous génère un message "Erreur de compilation - fonction ou variable attendue" à la dernière ligne. Je n'arrive pas à m'en sortir : quelqu'un a-t-il la solution ?

Il aurait été bien d'avoir la Sub complète, mais bon, vous devez utiliser la variable objet...

Sub Exemple()
  Application.ScreenUpdating = False
  Application.DisplayAlerts = False
  Dim Wb As Workbook
  Dim Chemin As String, Fichier As String
  Chemin = "C:\Users\xxx\Fichiers à traiter\"
  Fichier = Dir(Chemin & "*.xlsx")
  Do While Fichier <> ""
    Set Wb = Workbooks.Open(Chemin & Fichier)
    MsgBox "Fichier ouvert = " & Fichier, vbOKOnly, "Info"
    Wb.Sheets(1).Range("A3:F34").Copy
    ' Suite du code

  ' Ne pas oublier la fin du Do While
  Loop
End Sub

A+

 

[Dranreb]

Bonjour.

un message "Erreur de compilation - fonction ou variable attendue" à la dernière ligne.

Vérifiez si vous n'auriez pas nommé "Selection" un module

 

[sylvanu]

Bonjour Jielgé, et bienvenu au club, bonjour tout le monde.
Ou simplement essayez :

Remplacez :
Range("A3:F34").Select
Selection.Copy

par :
Range("A3:F34").Copy

Les "Select" font perdre du temps, et sont souvent inutiles.

 

[Nicolas JACQUIN]

Bonjour à toutes et tous,

une idée,

Option Explicit

Sub TraiterFichiers()
    Dim Wb          As Workbook
    Dim Chemin      As String
    Dim Fichier     As String
  
    Chemin = "C:\Users\xxx\Fichiers à traiter\"
  
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
  
    Fichier = Dir(Chemin & "*.xlsx")  
  
    Do While Fichier <> ""
        Set Wb = Workbooks.Open(Chemin & Fichier)
        MsgBox "Fichier ouvert : " & Fichier, vbInformation, "Info"
        Wb.Worksheets(1).Range("A3:F34").Copy
        Wb.Close SaveChanges:=False
        Fichier = Dir

'____________________________

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

A voir.
Nicolas

 

[Jielgé]

Bonjour,

Sur quelle ligne l'erreur?
Manque la suite du code

Bonjour.
Vérifiez si vous n'auriez pas nommé "Selection" un module

Bonjour à toutes et tous , et merci pour vos réponses !
J'ai effectivement fait une erreur de débutant, comme l'a trouvé Dranreb : pour me remettre "dans le bain" de VBA, une procédure s'appelait "Selection()"... En la supprimant, cela fonctionne !!
Merci encore à toutes et tous !!!