Bonjours j'ai consulté quelque site mais je n'ai pas trouver réponse a ma questions
XL2000: Sample Macros to Create a Module from an Existing Module, Named Range, or Text File
Visual Basic Editor - Club d'entraide des développeurs francophones
consernant la manipulation de vba
j'ai une question avec une mise en situation
j'ai un fichier .xls créer avec un nom au hasard avec des donnés sans code vba
est-t'il possible d'importer mon .bas dans ce fichier sans passer par vba ou par mode manuel.
comme un bouton dans la barre d'outil qui importerait automatiquement mon code dans mon fichier et qui l'executerais.
Ou autre méthode si la première est imposible j'ai toujours mon fichier .xls créer au hasard qui peut avoir de 1 a 100 feuilles. si je me créer un boutons hyperliens dans ma barre d'outils vers un fichier execute.xls qui lui
importerait toute les feuilles de mon fichier créer au hazard vers mon execute.xls
Merci et j'espère être assez clair ..
Merci en avance
XL2000: Sample Macros to Create a Module from an Existing Module, Named Range, or Text File
Visual Basic Editor - Club d'entraide des développeurs francophones
consernant la manipulation de vba
j'ai une question avec une mise en situation
j'ai un fichier .xls créer avec un nom au hasard avec des donnés sans code vba
est-t'il possible d'importer mon .bas dans ce fichier sans passer par vba ou par mode manuel.
comme un bouton dans la barre d'outil qui importerait automatiquement mon code dans mon fichier et qui l'executerais.
Ou autre méthode si la première est imposible j'ai toujours mon fichier .xls créer au hasard qui peut avoir de 1 a 100 feuilles. si je me créer un boutons hyperliens dans ma barre d'outils vers un fichier execute.xls qui lui
importerait toute les feuilles de mon fichier créer au hazard vers mon execute.xls
Code:
Private Sub Workbook_Open()
'code qui importe les feuilles de mon fichier ouvert excel (comme un activeworkbook -1 pour récupérer les bonnes feuilles)
Sheets("EXECUTE").Delete
Sheets("temp").Delete
Sheets("FU").Delete
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "EXECUTE"
Sheets("RAPPORT").Delete
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "RAPPORT"
'Module2.MACROKeven
End Sub
Merci et j'espère être assez clair ..
Merci en avance