Code imcomplet

Code imcomplet - VB/VBA/VBS - Programmation

Marsh Posté le 16-05-2013 à 12:52:15    

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 :
  1. Sub recup()
  2. Range("A1" ).Select 'sélectionner la cellule de début
  3. Chemin = "Personnel"
  4. fichier = Dir(Chemin & "*.xls" )
  5. Do While fichier <> ""
  6. Workbooks.Open Filename:=Chemin & fichier
  7. Dim Effectif As Integer, NumGestion As Integer
  8. Effectif = Sheets("BALANCE" ).Range("D89" )
  9. NumGestion = Sheets("PARAMETRES" ).Range("D9" )
  10.    
  11. ThisWorkbook.Activate
  12. ActiveCell.Value = Effectif
  13. ActiveCell.Offset(0, 1).Select
  14. ActiveCell.Value = NumGestion
  15. Windows(fichier).Close savechanges:=False
  16. ThisWorkbook.Activate
  17. Range("A65536" ).End(xlUp).Offset(1, 0).Select
  18. fichier = Dir ' Fichier suivant
  19. Loop
  20. End Sub

Reply

Marsh Posté le 16-05-2013 à 12:52:15   

Reply

Marsh Posté le 16-05-2013 à 14:45:07    

 
          Bonjour,
 
          uniquement pour une cellule commençant par une valeur entière :  Effectif = Val(Worksheets("BALANCE" ).[D89])  …
 

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed