création automatique des classeurs a partir Userfrom

[rghanmi]

salut forum ,
Existe-il un Userform d'insertion , quand l'utilisateur insére des données dans un Userform pour une premiére fois un classeur propre a lui porte son Username sera crée automatiquement inclué les données .

Merci.

[Mytå]

Salut le forum

Tu peux utiliser une fonction pour vérifier si le fichier existe

Code: Tout sélectionner

Function FileExists(FullFileName As String) As Boolean
    FileExists = Len(Dir(FullFileName)) > 0
End Function

Exemple d'utilisation

Code: Tout sélectionner

If Not FileExists("C:\FolderName\SubFolder\FileName.xls") Then
    MsgBox "Le fichier n'existe pas !"
Else
    Workbooks.Open "C:\FolderName\SubFolder\FileName.xls"
End If

Mytå

[rghanmi]

merci pour le code
le probléme est que j'ai un userform à remplir par plusieurs utlisateurs dans un réseau , pour éviter l'enregistrement simultané ( probléme conflit excel) j'ai pensé de séparer les enregistrement par utlisateur , ça veut dire une fois l'utlisateur fais un enregistrement à partir du userform son enregistremnt sera effectué dans sa propre feuille nomée par son username... j'ai réussi à faire tout ça mais parfois la macro ne capte pas bien le username et par conséquent elle peut pas nommer la feuille. ci-joint le code utilisé pour créer les feuilles et les renommer si elles n'existent pas.. Pourriez vous analyser le code et me dire quoi améliorer? merci

[rghanmi]

j'attends vos propositionns et essais.
Merci Forum.