B
Bulis
Guest
Bonjour voilà mon code pour faire une extraction d'un feuille Excel.
Sub extrac()
Application.ScreenUpdating = False
' Ouverture du fichier
Workbooks.Open Filename:="c:\xxxx\xxxxx\Formation_H_F\export_parite.xls"
depla
intIndiceLigne1 = 1
Workbooks("xxxxx.xls").Sheets("Donnees").Activate
Range("C2:J61,C74:J109,C116:J235").Select
Selection.ClearContents
'colonne de départ
affect = Cells(1, 3)
Workbooks("export_parite.xls").Sheets("Feuil1").Activate
While Cells(intIndiceLigne1, 3) <> Empty
UR = Trim(Cells(intIndiceLigne1, 3))
class = Trim(Cells(intIndiceLigne1, 4))
Workbooks("H_F_V2_Auto.xls").Sheets("Donnees").Activate
i = 270
Do While Cells(i, 1) <> ""
If Cells(i, 1) = UR Then
ligne = Cells(i, 2)
Exit Do
Else
i = i + 1
End If
Loop
Quand je veux lui indiquer la cellule de départ colonne 3 en ligne 1
variable affect
affect = Cells(1, 3)
Il me met un message d'erreur d'exécution'13';
Incompatibilité de type
Auriez-vous une idée sur se message ??
Merci
Bulis
Sub extrac()
Application.ScreenUpdating = False
' Ouverture du fichier
Workbooks.Open Filename:="c:\xxxx\xxxxx\Formation_H_F\export_parite.xls"
depla
intIndiceLigne1 = 1
Workbooks("xxxxx.xls").Sheets("Donnees").Activate
Range("C2:J61,C74:J109,C116:J235").Select
Selection.ClearContents
'colonne de départ
affect = Cells(1, 3)
Workbooks("export_parite.xls").Sheets("Feuil1").Activate
While Cells(intIndiceLigne1, 3) <> Empty
UR = Trim(Cells(intIndiceLigne1, 3))
class = Trim(Cells(intIndiceLigne1, 4))
Workbooks("H_F_V2_Auto.xls").Sheets("Donnees").Activate
i = 270
Do While Cells(i, 1) <> ""
If Cells(i, 1) = UR Then
ligne = Cells(i, 2)
Exit Do
Else
i = i + 1
End If
Loop
Quand je veux lui indiquer la cellule de départ colonne 3 en ligne 1
variable affect
affect = Cells(1, 3)
Il me met un message d'erreur d'exécution'13';
Incompatibilité de type
Auriez-vous une idée sur se message ??
Merci
Bulis