Erreur Document lecture seule ou chiffre

Résolu/Fermé

CHARLYJACK Messages postés 353 Date d'inscription mardi 19 octobre 2010 Statut Membre Dernière intervention 16 mai 2023 - Modifié par CHARLYJACK le 7/12/2013 à 11:36
CHARLYJACK Messages postés 353 Date d'inscription mardi 19 octobre 2010 Statut Membre Dernière intervention 16 mai 2023 - 8 déc. 2013 à 11:54

Bonjour,

Voilà j'essaie de mettre en place le code suivant,
mais je suis confronté au message ci dessus.

Voici mon code

Sub test()
Dim w As Workbook
Dim classeur As String
Dim chemin As String
chemin = "C:\Users\David\Documents\France"
classeur = Dir(chemin & ("*.xls "))
While classeur <> " "
Set w = Application.Workbooks.Open(chemin & (classeur))
ThisWorkbook.Sheets(1).Copy before:=w.Sheets(1)
w.Save
w.Close
classeur = Dir
Wend
End Sub

quelqu'un peut il m'expliquer ?
Des erreurs j' en rencontre souvent mais celle là c'est la premiere fois.

Par avance merci

A voir également:

Erreur Document lecture seule ou chiffre
Erreur 0x80070643 - Guide
Confirmation de lecture whatsapp - Guide
Signer un document word - Guide
Erreur vidéo freebox ✓ - Forum TV & Vidéo
Accusé de lecture gmail - Guide

1 réponse

Réponse 1 / 1

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
7 déc. 2013 à 19:35

Bonjour
il manque un "\" après le répertoire "France"
il ne faut pas les parenthèses qui encadrent le fichier
il y a un espace de trop derrière "*.xls"

voici la correction

Sub test()
    Dim w As Workbook
    Dim classeur As String
    Dim chemin As String
    chemin = "C:\Users\David\Documents\France\"
    classeur = Dir(chemin & "*.xls")
    While classeur <> " "
        Set w = Application.Workbooks.Open(chemin & classeur)
        ThisWorkbook.Sheets(1).Copy before:=w.Sheets(1)
        w.Save
        w.Close
        classeur = Dir
    Wend
End Sub

cdlt

CHARLYJACK Messages postés 353 Date d'inscription mardi 19 octobre 2010 Statut Membre Dernière intervention 16 mai 2023 1
8 déc. 2013 à 11:54

Merci Frenchie83
ça fonctionne parfaitement,
juste un message d erreur qui apparaît quand il a fait la copie dans tous les classeurs, rien de grave.
Encore merci Charlyjack

Discussions similaires

Erreur de lecture sur iptv smarters

[PIX] Commencer chaque poème sur une nouvelle page

Instagram "Désolé, une erreur s'est produite"

Erreur de lecture des tv film et series sur mon appli iptv smarters pro

Table des matières dont les titres n'apparaissent pas..

Discussions similaires

Newsletters