Bonjour a tous , j'ai un petit probleme en gros j'ai un bouton qui ouvre une base de donnée et une fiche , remplis la fiche avec des donnée de la base puis enregistre la fiche dans un dossier , mais ce que voudrais faire c'est ouvrir une copie identique de la fiche et la remplir puis l'enregistrer
Set wbResultat = Application.Workbooks.Open(Application.ThisWorkbook.Path & "\base resultats.xls")
Application.Windows("base resultats.xls").Visible = True
With wbResultat.Sheets("Ecoute - " & UserSynthese.LabelM.Caption) 'ouverture de la base
.Activate
.Visible = xlSheetVisible
End With
With wbResultat.Sheets("fiche")
.Activate
.Visible = xlSheetVisible
puis la j'ai mes calcul qui complete la fiche , seulement je voudrais remplir une copie de la fiche et non pas la fiche directement car j'ai des probleme quand plusieur personne veulent completer la fiche en meme temps , merci d'avance
Set wbResultat = Application.Workbooks.Open(Application.ThisWorkbook.Path & "\base resultats.xls")
Application.Windows("base resultats.xls").Visible = True
With wbResultat.Sheets("Ecoute - " & UserSynthese.LabelM.Caption) 'ouverture de la base
.Activate
.Visible = xlSheetVisible
End With
With wbResultat.Sheets("fiche")
.Activate
.Visible = xlSheetVisible
puis la j'ai mes calcul qui complete la fiche , seulement je voudrais remplir une copie de la fiche et non pas la fiche directement car j'ai des probleme quand plusieur personne veulent completer la fiche en meme temps , merci d'avance
