Bonjour à tous !
Je viens de créer à l'aide de internet une macro sous Excel que je souhaiterais mettre en place sous Visio.
Que fais ma Macro Excel ?
Elle permet de fusionner plusieurs fichiers Excel en un seul fichier Excel.
Cette Macro est fonctionnelle et voici le code si ça intéresse quelqu'un :
Mon idée maintenant et de mettre cette macro sous Visio. Le but étant de fusionner plusieurs fichiers Visio.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42 Sub consolide() '------------------------------------------------------------------------------- '------------------------FUSION DES FICHIERS EXCEL ----------------------------- ChDir ActiveWorkbook.Path Set classeurMaitre = ActiveWorkbook sup 'compteur = 0 nf = Dir("*.xls") Do While nf <> "" If nf <> classeurMaitre.Name Then Workbooks.Open Filename:=nf For k = 1 To Sheets.Count Workbooks(nf).Activate Sheets(k).Copy After:=classeurMaitre.Sheets(classeurMaitre.Sheets.Count) 'classeurMaitre.Sheets(classeurMaitre.Sheets.Count).Name = "Mapage" & compteur 'compteur = compteur + 1 Next k Workbooks(nf).Close False End If nf = Dir Loop End Sub Sub sup() '------------------------------------------------------------------------------- '------------------------SUPPRESSION DES ONGLETS-------------------------------- ' 'On désactive toutes les alertes de Excel demandant l'autorisation pour les modifications. Application.DisplayAlerts = False If Sheets.Count > 1 Then 'Déplacement de l'onglet Accueil tout à gauche : L'onglet Accueil devient (Sheets1) Sheets("Accueil").Move before:=Sheets(1) 'On sélectionne le deuxième onglet (Sheets2) Sheets(2).Select 'On supprime l'onglet actif (Sheets2). 'Le Troisième onglet (Sheets3) devient donc (Sheets2) 'On supprime à nouveau (Sheets2) anciennement (Sheets3) 'On renouvelles les mêmes étapes jusqu'a suppression de tous les onglets après (Sheets1) For i = 2 To Sheets.Count ActiveSheet.Delete Next i End If End Sub
Le problème et que cela ne fonctionne pas ...
Pourriez-vous m'aider ? Je pense que c'est juste une adaptation ... Je pensais pas à autant de différence sous visio ...
Cordialement,
Justin
Partager