Discussion :

[GoFio]

Bonjour,

2 questions que j'ai du mal à résoudre

1. J'ai créé sur Visual Basic une application qui entre autre va aller ouvrir une macro Excel.
Pour ouvrir le fichier j'ai utilisé Shell ...
Ce que je voudrais faire c'est vérifier que le fichier est toujours là et si non aller chercher la nouvelle adresse. Ensuite je voudrais que cette nouvelle adresse remplace la précédente définitivement. C'est à dire que si je ferme la macro et l'application VB la nouvelle adresse adresse restera effective jusqu'au prochain changement. Cela éviterai qu'une fois le chemin du fichier mauvais on ai besoin de le recharger à chaque fois.

2. J'ai un code vba qui copie les données d'un fichier excel, créé un 2ème fichier excel et écrit dessus.
Le problème c'est que si je relance le calcul, je ne suis plus sur le même fichier excel actif.

Du coup j'avais écrit un truc du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

NomduFichier = ActiveWorkbook.Name    'sauf que lorsque j'ai changé de fichier, le nom change

J'ai pensé à ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub Nfichier ()
Dim NomduFichier as String
NomduFichier = ThisWorkbook.Name      'ici j'ai l'impression que le nom ne change pas.
End Sub

Ceci est dans un module

Ensuite dans le UserForm au clique d'un bouton cela effectue la création du 2ème fichier excel, etc et à la fin je veux revenir à mon premier fichier donc j'écris

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Call Nfichier
WorkBook(Nomdufichier).Activate

La macro s'est bien exécuter mais à la fin j'ai une erreur sur cette dernière ligne.



Si savez d'où viennent mais erreur, j'attends vos suggestions.
Merci

[parmi]

Bonjour,

Ce n'est pas très clair...
Est-ce que tu travailles sous VB pour traiter des fichiers Excel ou tu travailles toujours dans VBA à partir d'Excel ?

Si tu travailles dans Excel, tu pourrais utiliser une feuille pour stocker ton ou tes chemins et noms de fichiers, j'imagine...
En VB (ou VBA) tu as aussi la possibilité de sauvegarder dans la base de registre avec SaveSetting et GetSetting

ThisWorkbook est celui qui contient les macros
ActiveWorkbook est celui qui est affiché à l'écran

[parmi]

Et quand tu a une erreur, donne le numéro et la description pour nous aider...

WorkBook(Nomdufichier).Activate

Il manque un S à WorkBooks

[GoFio]

Je n'ai pas fais de copier coller du code, mais je pense avoir mis le s.
Désoler de ne pas être très claire, mais je suis un "novice" comparé à vous en info et prog.

En fait j'ai fais un petite appli en VB qui permet d'appeler des macros VBA.
Et si l'adresse de ces macros changent que j'aimerais conserver la nouvelle même après fermeture de l'appli.

Ensuite, je ne sais pas si c'est possible. J'aimerais du tout avoir ton expérience.
Serait il plus pratique pour l'utilisateur de réaliser sur VB plutôt que sur VBA sachant qu'il ne sagit que de post-traitement de donner.

Est il plus simple de faire du VB ou du VBA

ThisWorkbook est celui qui contient les macros

Ok, merci pour cette info. Du coup je vais reregarder ma subroutine

[parmi]

VB et VBA sont 2 choses bien distinctes et les gens mélangent les deux facilement.
Le langage demeure très semblables mais les techniques sont bien différentes.
De là l'importance de bien se comprendre en partant...

Donc tu travailles avec VB6 ou VB.Net ?

[GoFio]

C'est Microsoft VB 2010 Expresse