Bonjour,
Le code ci-dessous fonctionne bien si la cellule source de la variable contient une seule info (ex: 12) mais ne fonctionne pas si la valeur est "12 Fr". C'est donc au niveau des lignes 9 et 10 que ça plante parfois.
Comment completer mon code svp.
Merci
Code :
- Sub recup()
- Range("A1" ).Select 'sélectionner la cellule de début
- Chemin = "Personnel"
- fichier = Dir(Chemin & "*.xls" )
- Do While fichier <> ""
- Workbooks.Open Filename:=Chemin & fichier
- Dim Effectif As Integer, NumGestion As Integer
- Effectif = Sheets("BALANCE" ).Range("D89" )
- NumGestion = Sheets("PARAMETRES" ).Range("D9" )
-
- ThisWorkbook.Activate
- ActiveCell.Value = Effectif
- ActiveCell.Offset(0, 1).Select
- ActiveCell.Value = NumGestion
- Windows(fichier).Close savechanges:=False
- ThisWorkbook.Activate
- Range("A65536" ).End(xlUp).Offset(1, 0).Select
- fichier = Dir ' Fichier suivant
- Loop
- End Sub
|
