Contenu récent par johanvba

Bonjour à tous; dans ce cas, je veux importer les fichiers séparément dans différente feuille merci. Option Explicit Sub Fichiers_Imports_multiple() Dim Fichiers As Variant Dim I As Integer Fichiers = Application.GetOpenFilename(FileFilter:="Text Files (*.txt), *.txt"...

le nombre des couche est en fonction de chaque projet, peut être supérieur à 9; et je remarque si par exemple nombre de couche égal à 15, le code ne marche pas que la deuxième couche.

Merci pour votre réponse, Désolé, je ne suis pas expliqué mon problème correctement, Mon problème c'est que tant que je déclare le nombre des couche est supérieur à 9 , le code n'est marché pas, pourquoi je ne sais pas. Merci.

Bonjour à tous; Comment lire à partir d'un fichier texte (.txt) avec son index et placer des données dans un fichier Excel . voici le code mais n'est pas marché. Sub Copy_TXT() Dim TXT_File As String Dim AddInName As String AddInName = "PPR" TXT_File = ThisWorkbook.Path & "\" & AddInName &...

Bonsoir à tous ; je crée une formule de la saisi des données via Userform, voici le fichier ; mais le problème que je suis trouvé, le nombre des couche géologique ne peut pas dépasser le nombre 9. merci