bonjour le forum,
j'utilise ce code(une partie ici) pour transferer des donnees dans un classeur fermé.
je voudrais savoir s'il est possible de creer une boucle sur ce type de code
.fields etant la cellule de depart en colonne ou sont rangé les donnees .ex: .field(09) est la colonne J
.field(10) est la colonne K etc
.fields de (09) a (59) doivent recevoir les donnees de de Sheets("AVIS").Range("M5").Text
de M5 a M50
If Sheets("AVIS").Range("M5") <> "" Then
.Fields(9) = Sheets("AVIS").Range("M5").Text
End If
If Sheets("AVIS").Range("M6") <> "" Then
.Fields(10) = Sheets("AVIS").Range("M6").Text
End If
If Sheets("AVIS").Range("M7") <> "" Then
.Fields(11) = Sheets("AVIS").Range("M7").Text
End If
If Sheets("AVIS").Range("M8") <> "" Then
.Fields(12) = Sheets("AVIS").Range("M8").Text
End If
n'ayant que tres peu de reseau , veuillez m'excuser de ne joindre un fichier exemple
merci a tous de votre aide
cordialement
ghislain
j'utilise ce code(une partie ici) pour transferer des donnees dans un classeur fermé.
je voudrais savoir s'il est possible de creer une boucle sur ce type de code
.fields etant la cellule de depart en colonne ou sont rangé les donnees .ex: .field(09) est la colonne J
.field(10) est la colonne K etc
.fields de (09) a (59) doivent recevoir les donnees de de Sheets("AVIS").Range("M5").Text
de M5 a M50
If Sheets("AVIS").Range("M5") <> "" Then
.Fields(9) = Sheets("AVIS").Range("M5").Text
End If
If Sheets("AVIS").Range("M6") <> "" Then
.Fields(10) = Sheets("AVIS").Range("M6").Text
End If
If Sheets("AVIS").Range("M7") <> "" Then
.Fields(11) = Sheets("AVIS").Range("M7").Text
End If
If Sheets("AVIS").Range("M8") <> "" Then
.Fields(12) = Sheets("AVIS").Range("M8").Text
End If
n'ayant que tres peu de reseau , veuillez m'excuser de ne joindre un fichier exemple
merci a tous de votre aide
cordialement
ghislain