Erreur Document lecture seule ou chiffre
Résolu
CHARLYJACK
Messages postés
345
Date d'inscription
Statut
Membre
Dernière intervention
-
CHARLYJACK Messages postés 345 Date d'inscription Statut Membre Dernière intervention -
CHARLYJACK Messages postés 345 Date d'inscription Statut Membre Dernière intervention -
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
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
1 réponse
-
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 correctionSub test()
cdlt
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
