La fonction `Seek` en VBA est utilisée pour manipuler la position du pointeur de fichier dans les opérations sur des fichiers ouverts. Elle peut servir à définir ou à obtenir la position actuelle dans un fichier. Voici un guide sur son utilisation :
Syntaxe pour la fonction (ou instruction) Seek
Seek [#]filenumber, position
currentPos = Seek([#]filenumber)
- Pour définir la position du pointeur de fichier :
- Pour obtenir la position actuelle du pointeur :
Paramètres
- `filenumber` : Un nombre représentant le numéro de fichier, qui est obtenu lors de l’ouverture du fichier avec `Open`.
- `position` : Une valeur entière qui indique la nouvelle position du pointeur de fichier dans le fichier. (Cela est utilisé uniquement pour définir la position.)
Exemple d’utilisation
Voici un exemple simple de lecture et d’écriture dans un fichier texte en utilisant la fonction `Seek` :
Sub ExempleSeek()
Dim fileNum As Integer
Dim filePath As String
Dim texte As String
filePath = "C:exemple.txt"
fileNum = FreeFile
' Ouvre le fichier pour l'ajout
Open filePath For Append As #fileNum
' Place le pointeur au début du fichier
Seek #fileNum, 1
' Écrire dans le fichier
Print #fileNum, "Bonjour le monde!"
' Obtenir la position actuelle du pointeur
Dim positionActuelle As Long
positionActuelle = Seek(fileNum)
Debug.Print "Position actuelle du pointeur : "; positionActuelle
' Fermer le fichier
Close #fileNum
End Sub
Points importants
- Dans un fichier texte, la position est mesurée en termes de nombres de caractères depuis le début du fichier.
- Dans des fichiers binaires et les fichiers ouverts pour un accès aléatoire, la position est mesurée en termes de numéros d’enregistrement.
La fonction `Seek` est généralement utilisée dans des contextes nécessitant un contrôle précis de la lecture et de l’écriture dans des fichiers. Assurez-vous d’avoir ouvert le fichier avec les droits d’accès appropriés pour vos besoins.
Unlock Your Potential
Excel
Access
Power BI
