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
  8. Dim Effectif As Integer, NumGestion As Integer
  9. Effectif = Sheets("BALANCE" ).Range("D89" )
  10. NumGestion = Sheets("PARAMETRES" ).Range("D9" )
  11.    
  12. ThisWorkbook.Activate
  13. ActiveCell.Value = Effectif
  14. ActiveCell.Offset(0, 1).Select
  15. ActiveCell.Value = NumGestion
  17. Windows(fichier).Close savechanges:=False
  18. ThisWorkbook.Activate
  19. Range("A65536" ).End(xlUp).Offset(1, 0).Select
  20. fichier = Dir ' Fichier suivant
  21. Loop
  22. 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