Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 VBA - Exporter / Importer un Projet VBA complet

Dudu2

XLDnaute Barbatruc
Bonjour,

Sur un Desktop Excel 2016 64 bits j'ai un fichier de macros qui n'a jamais posé de problème.
Sur un Laptop Excel 2021 64 bits juste installé, ce fichier de macros refuse de s'ouvrir. La réparation vire tout le code VBA.

Cet insupportable message ne donne aucune indication sur "le problème" trouvé, c'est bien du Microsoft !
Un peu comme si un garagiste disait "il y a une panne sur cette voiture".

J'ai tout essayé, la sécurité et le reste. Pas moyen.

Comme il y a beaucoup de Modules et de UserForms dans ce fichier, j'aimerais exporter tout le projet à partir du DeskTop et le ré-importer sur le Laptop.
Existe-t-il un outil pour faire ça ?
 
Trier par date Trier par votes

Gégé-45550

XLDnaute Accro
Vote positif 0 Vote négatif
L

Lolote83

XLDnaute Barbatruc
Bonjour à tous.
@patricktoulon , tu es beaucoup plus rapide que moi.
Merci d'avoir choisi la "gueule" de mon interface.
Par contre, j'ai revue aussi ma copie mais toujours pas finalisée. Par contre, j'ai remarqué qu'il manquait éventuellement les codes des feuilles "ThisWorkbook, Feuil1, Feuil2 ....."



La chose que je n'arrive pas à faire actuellement, c'est qu'il me liste dans la liste des feuilles (Ici Feuil1, Feuil3 et ThisWorkbook) mais seulement Feuil3 contient du code. Je ne sais pas du coup comment tester si il y a ou non du code dans ThisWorkbook et/ou Feuil1 (J'ai pris pour exemple ton fichier CreateRibbon)
Je continue tout de même
@+ Lolote83
 

Pièces jointes

  • 1717243097505.png
    57.8 KB · Affichages: 1
Dernière édition:
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
re
bonjour @Lolote83
c'est dans le vba indenter que tu trouvera comment je fait pour savoir si il y a du code dans les modules quel qu'il soit (module / classe / userform / feuille / thisworkbook / etc)
alors attention aussi car le thisworkbook est un module classe aussi il risque de se retrouver dans la listbox lst_cls et les feuille aussi me semble t il
 
Vote positif 0 Vote négatif
L

Lolote83

XLDnaute Barbatruc
Re bonjour @patricktoulon ,

J'avais effectivement remarqué que ce soit pour le ThisWorkbook ou les feuilles, on aura du .cls

alors attention aussi car le thisworkbook est un module classe aussi il risque de se retrouver dans la listbox lst_cls et les feuille aussi me semble t il
Cliquez pour agrandir...
Je n'ai pas regardé ton code pour l'instant mais du coup, je fais de mon coté la différence ici

VB: 
    '----------------- Récupération des données dans les listes
    Dim LaForm
    
    For Each LaForm In xWBSour.VBProject.VBComponents
    'For Each LaForm In ThisWorkbook.VBProject.VBComponents
        xNom = LaForm.Name
        xTyp = LaForm.Type
        Select Case xTyp
            Case Is = 1
                Usf_ImportExport.Lst_Mod.AddItem xNom       'Les Modules
            Case Is = 2
                Usf_ImportExport.Lst_Cls.AddItem xNom       'Les Classes
            Case Is = 3
                Usf_ImportExport.Lst_Usf.AddItem xNom       'Les Formulaires
            Case Is = 100
                Usf_ImportExport.Lst_Feu.AddItem xNom       'Les Feuilles
        End Select
    Next

Pour le ThisWorkbook et feuilles, c'est le numéro 100
@+ Lolote83
 
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
re
oui c'est ça sauf que l'extension du fichier c'est ".cls" aussi
il faudra donc faire attention a l'importation après

allez pour moi c'est bon V 1.2.0
on a les feuilles et thisworkbook uniquement si elle contiennent du code


d'autre idées ?
 
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
@Lolote83 pour toi ça devrait être ça
Après il faut dire que la variable LaForm n'est pas tellement appropriée au contexte
le lecteur de ton code pourrait se perdre en confusion

Normalement ta listbox pour les feuille et thisworkbook ne devrait prendre que ceux qui ont du code

VB: 
'----------------- Récupération des données dans les listes
    Dim LaForm
    Dim X&
    For Each LaForm In xWBSour.VBProject.VBComponents
    'For Each LaForm In ThisWorkbook.VBProject.VBComponents
        xNom = LaForm.Name
        xTyp = LaForm.Type
        X = LaForm.CodeModule.CountOfLines
        Select Case xTyp
            Case Is = 1
                Usf_ImportExport.Lst_Mod.AddItem xNom       'Les Modules
            Case Is = 2
                Usf_ImportExport.Lst_Cls.AddItem xNom       'Les Classes
            Case Is = 3
                Usf_ImportExport.Lst_Usf.AddItem xNom       'Les Formulaires
            Case Is = 100
                If X > 0 Then Usf_ImportExport.Lst_Feu.AddItem xNom     'Les Feuilles
        End Select
    Next
 
Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc
@patricktoulon,
L'Export parfait.
L'import j'ai les soucis suivants:
  1. Si je copie directement le répertoire dans la zone, il ne le prend pas. Il faut que je fasse parcourir.
    Et si je parcours, il n'y a pas non plus de fenêtre pour y copier une adresse de répertoire.
    Donc il faut absolument parcourir.

  2. Les CheckBoxes Tout sélectionner sont pré-chéckées alors que rien n'est sélectionné dans les listes.

  3. Plus embêtant, je n'arrive pas à sélectionner la sortie.
 
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
re je crois deviner ton problème de fenêtre parcourir
en effet quand on sélectionne un dossier il ouvre le dossier dans ce petit explorer
mais il faut faire ok tout simplement
petit défaut de ce dialog vieux comme le monde
par contre que la listbox aille se loger plus haut que le bouton là je pige pas
enlève le move de l'usf provisoirement
vous avez vraiment des version bizarre y a rien qui reste à sa place chez vous
comme je ne la place pas par macro replace la en mode vbe
c'est vraiment un truc de fou
t'a du le toucher c'est pas possible une différence pareil
je fait juste un visible/non visible dessus
en mode vbe


en fonctionnement
 
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
re
remplace la fonction dialog folder par celle ci tu préfèrera peutêtre
VB: 
Function ChooseFolderDoalog()
 With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = -1 Then ChooseFolderDoalog= .SelectedItems(1)
  End With
End Function
 
Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc
Bonjour à toutetatousse,

t'a du le toucher c'est pas possible une différence pareil
Cliquez pour agrandir...
Ah non, je ne me permettrais pas !

remplace la fonction dialog folder par celle ci tu préfèrera peutêtre
Cliquez pour agrandir...
Oui je préfère car on peut entrer un raccourci directement sans avoir à se promener dans les répertoires.

Pour la ListBox, j'ai ajouté son positionnement .Top, mais il faut le faire à l'endroit où je l'ai mis sinon si on le met au début, au 1er clic sur le bouton elle décale toujours et ce n'est qu'au 2ème clic qu'elle se positionne comme voulu.
VB: 
Private Sub cmd_Import_Click()
    Dim Wb As Workbook
    listboxwb.Visible = Not listboxwb.Visible
    listboxwb.Clear
    listboxwb.ZOrder 0
    listboxwb.AddItem "Nouveau"
    listboxwb.Top = cmd_Import.Top - listboxwb.Height
    For Each Wb In Workbooks
        If Not Wb Is ThisWorkbook Then listboxwb.AddItem Wb.Name
    Next
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
re
Pour info à l'affichage elle fait 172 de Height alors qu'elle est définie à 181,75 dans le UserForm.
Cliquez pour agrandir...
c'est bien ce que je te dis depuis 3 ans maintenant
j'avais EXACTEMENT les mêmes problèmes avant d'avoir LES BONS DRIVERS


VB: 
Private Sub cmd_Import_Click()
    Dim Wb As Workbook
    listboxwb.Visible = Not listboxwb.Visible
    listboxwb.Clear
    listboxwb.ZOrder 0
    listboxwb.AddItem "Nouveau"
    For Each Wb In Workbooks
        If Not Wb Is ThisWorkbook Then listboxwb.AddItem Wb.Name
    Next
MsgBox listboxwb.Height
End Sub


avec les bon drivers
1° le coeff pt to pixel reste à 0.75 quelque soit le zoom Windows(calculs plus precis )
2° les controls ne sont plus redimensionnés et replacés( comme dans l'exemple d'aujourd'hui)
3° le freez sur le texte il y est plus
4° ce besoin que vous avez parfois de faire un repaint sur le userform terminé aussi
et j'en passe et des meilleurs
des 10 aines de petits soucis que j'avais comme toi ne sont plus aujourd'hui
chez moi 181.75 ça reste 181.75
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Question
Microsoft 365 WinSearch VBA | PowerPivot et/ou PowerQuery
3 4 5
Réponses
71
Affichages
2 K
Staple1600
E
  • Résolu(e)
Microsoft 365 32 ou 64 bits
2 3 4
Réponses
46
Affichages
2 K
eric72
E
  • Résolu(e)
XL 2021 Modification d'un code VBA
Réponses
5
Affichages
304
kiki29
  • Question
XL 2019 Cherche Volontaires pour tester dll interface VBA Dotnet
Réponses
8
Affichages
419
patricktoulon
  • Question
Microsoft 365 Importer données depuis un lien web
Réponses
1
Affichages
194
gbinforme
G
F
  • Question
XL 2021 VBA et Power Query : ecrire des requetes avec variables
2
Réponses
27
Affichages
1 K
Florent74
F
C
  • Résolu(e)
XL 2016 Objets Excel de type feuille dupliqués en x exemplaires suite à plantage
Réponses
6
Affichages
355
TooFatBoy
B
  • Question
XL 2019 Exportation Feuille PDF VBA
Réponses
2
Affichages
524
kiki29
J
  • Question
Microsoft 365 Enregistrer une image dans un dossier
Réponses
5
Affichages
619
job75
  • Question
XL 2019 Mot de passe projet Vba
Réponses
4
Affichages
792
Staple1600
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…