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 :
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
Mon idée maintenant et de mettre cette macro sous Visio. Le but étant de fusionner plusieurs fichiers Visio.
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