Discussion :

[Neptune64]

Bonjour le forum

D'abord j'aimerais remercier ce forum, grace à vous j'ai réussi à faire pleins de fichiers automatique en VBA. Je trouve génial l'aide que vous apporter.

Merci encore :-))))))

J'ai une base de donnée (EXCEL) dans laquel j'écris une ligne par client. Une macro me permet d'ouvrir un document master dans lequel certaines informations sont complétées automatiquement, dont le Nom (selon base de données), et de l'enregistrer dans un endroit précis sur mon réseau, automatiquement avec ce nom (nom_client) .Tous cela fonctionne à merveille.

Mais j'ai un petit problème, si le document existe déjà j'ai le message de Excel qui me dit que ce document existe et si je veux le remplacer. Si je dis oui pas de problème mais si je dis non, j'ai une erreur. Mais je ne veux pas le remplacer.

Je souhaiterais, avant de lancer le processus d'ouverture du document master, aller regarder sous l'emplacement si le nom (nom_client) existe déjà et avec un message expliquer de mettre un autre nom, que ce client est déjà crée.

j'ai essayer avec le code ci-dessous mais il ne le vois pas !!! j'ai mis la ligne avant de crée le formulaire.

Pourriez-vous m'aider ??

Merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
NomFich = "D:\Mes documents\01. Archive\" & nom_client
If NomFich = nom_client Then
MsgBox "Ce client existe déjà vous devez mettre un autre nom"
 
 Exit Sub
 End If

[Didier Gonard]

Bonjour,

vois avec la fonction Dir, genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
If Dir(Chemcreados, vbDirectory) <> "" Then MsgBox "Ce dossier existe déjà dans le répertoire Toto" _
         & vbCrLf & vbCrLf & "Vérifiez vos données et - ou changez le nom dans la case ""xxxxx"" et recommencez ou abandonnez"
 
etc....

cordialement,

Didier