Rappelons, qu'a priori un ordinateur ne peut pas générer de nombre aléatoire, c'est pas de la mécanique quantique, une même opération entraine un même résultat. On m'aurait mentit alors ? dirais l'autre. Oui et non, on a recours à des séries pseudo aléatoires qui génèrent des nombre de manière tellement chaotique qu'ils semblent aléatoirs. Mais reste l'état zéro de la suite, ce qui va l'initaialiser. Il existe pour celà une méthode "Randomize" à insérer avant d'utiliser Rnd. je ne sais trop comment fonctionne cette méthode, peut-être selon l'état du système ? Enfin quoi qu'il en soit c'est ainsi qu'il convient de procéder.

Là c pas flagrant, pour le coups j'ai oublié de mettre le "end if", faut dire aussi que j'ai utilisé des espaces, et pas des "vraies" tabulations...

tabs = tabulations; regarde un peu les sources de ce site, tout le monde l'utilise, le principe est simple, pour chaque bloc tu met une tabulation avant la ligne, par exemple

Function Machin()
   Dim Entier as Integer

   With CD
      select case .Filename
         case ...
            if ... then
               open ... for binary as #1

               close
         case ...
      end select
   end with
end function

Bon là, y'a en a un peu beaucoup, mais c'est pour l'exemple, c'est terriblement pratique pour relire des sources, chaque partie formant un bloc cohérent, et aussi pour les créer, on voit très bien les blocs qu'on a oublié de fermer, on évite ainsi pas mal d'erreur...

pcpunch --> Certes, j'avais dû utiliser la fonction Rnd() pour créer un générateur de labyrinthe, or, dans ce cas je ne me base pas sur la totalité des décimales, vu que je n'ai à faire le choix qu'entre 4 directions... Et là, le résultat était flagrant, c'était cyclique, dommage que je ne puisse insérer une image, ce serait flagrant...

En ce qui concerne le programme de Niconapo (puisque c'est de celà qu'il s'agit), bon il ne s'agit vraiment pas d'une méthode "originale" de générer une série de nombre pseudo-aléatoires, elle ne fait que reprendre la fonction originale, n'ajoute rien, voir enlève des trucs vu qu'il y a moins de décimales...

bon, j'ai donc jeté un coup d'oeuil à ton code et, deux points,

le premier est en rapport avec ta question, remplace le nom du fichier lors de l'ouverture du fichier;

Open CD.filename for output as #1

Le second, concerne la "mise en forme" du code j'ai du le lire et j'ai trouvé cela assez pénible, je sais pas si ça vient du transfert où si c'est ta manière de coder, mais le code est beaucoup trop "compact", peu de saut de ligne, et aucune utilisation des tabs, ce qui rend pourtant le code vraiment beaucoup plus lisible !

Pour être franc g pas du tout regardé ton code, donc je sais pas comment tu sauvegardes... Mais, dans ta procédure de sauvegarde, j'aimagine qu'à un moment tu mentionnes le nom et l'emplacement du fichier, par exemple "c:\Mes documents\fichier.txt", et bien tu remplaces ce morceau de code par ".filename", .filename est la propriété du CommonDialog qui stocke la valeur retournée par la fenêtre = dans ce cas l'endroit où sauver...
Tu peu mettre la procédure se sauvegarde en dehors du With... End With, mais il ne faut alors pas oublier de préciser CD.Filename
Je sais pas si j'ai été très clair...

Du moins pour les grandes lignes :

With CD
        .Filter = "Fichier texte|*.txt"
        .DialogTitle = "Enregistrer sous"
        .Flags = cdlOFNOverwritePrompt + cdlOFNHideReadOnly
        'cdlOFNOverwritePrompt pour la confirmation de l'écrasement si un fichier prééxiste; cdlOFNHideReadOnly pour enlever la case "lecture seule"
        'Appel de la fenêtre :
        .ShowSave
        
        'La procédure de sauvegarde ici, le nom du fichier est dans .filename
End With

où CD est un objet CommonDialog

Le rnd c'est bien, mais c'est pas suffisant, si vous avez créé des programmes ayant très (trop ?) souvent recours à rnd, vous vous rendrez vite compte que comme générateur de nombre pseudo aléatoire on peut mieux faire, et rnd se montre en fait relativement cyclique (donc pour le hasard, c'est un peu nul)...
J'ai pas encore testé ton code dans ce genre de programme... à voir...

-Un peu d'histoire, même si personne n'en a rien à foutre... -

La mise en place du teléphone rouge, découle de l'incident des fusées de Cuba (g plus la date de tête), qui opposa les USA (Kennedy) et l'URSS (Khrouchtchev). Point culminant de la guerre froide, lorsque les deux timbrés se sont rendus compte que leurs conneries pouvaient dégénérer en guerre nucléaire, ont eu l'idée de se lier directement par téléphone histoire de se passer un coup de fil, avant de décréter un embrago...
Enfin, aujourd'hui ça permet de souhaiter les voeux de bonne année et de profiter des tarifs avantageux de France télécom !

Sans en être absolument certain, il me semble que le recours au Recall ne se fait que dans certains états des EU, et au niveau de l'Etat fédéré seulement, et non de l'Etat fédéral, donc le président des EU ne peut pas être destitué par une telle procédure...
Enfin, il est vrai qu'on est pas obligé d'avoir des considérations constitutionnelles pour programmer...