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
A voir également:
- Erreur Document lecture seule ou chiffre
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Comment reduire la taille d'un document - Guide
- Chiffre en lettre - Télécharger - Outils professionnels
- Comment imprimer un tableau excel sur une seule page - Guide
- Signer un document word - Guide
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 correction
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()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
ç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