Useform ne fonctionne pas si d'autres classeurs sont ouverts
Bonjour,
J'aurais besoin d'aide svp, j'ai mis en place une application VBA qui fait appel à un userform pour pré remplir un formulaire dans une feuille excel, le souci est qu'il ne fonctionne pas si d'autres classeurs sont ouverts, comment puis-je résoudre ce problème svp?. sachant que ce formulaire sera destiné à toute une direction.
i.e: particularité du userform:
- récupère les données dans une feuille cachée du même classeur
- génère un autre classeur enregistré dans un dossier donné après validation du formulaire.
- d'autres macros tournent pour optimiser le formulaire qui devra être générer
Merci d'avance pour votre aide
Bonjour Luciana, bonjour le forum,
à défaut du fichier lui même, il nous faudrait au moins le code pour essayer de comprendre et, éventuellement t'expliquer...
ThauThème a écrit :Bonjour Luciana, bonjour le forum,
à défaut du fichier lui même, il nous faudrait au moins le code pour essayer de comprendre et, éventuellement t'expliquer...
Alors pour lancer le user formà partir d'un autre:
[code]Private Sub Label3_Click()
UserForm1.Show
Sheets("Feuil1").Range("B2").Value = " Formulaire pour un nouveau collaborateur"
End Sub
[code]
ça bug sur la ligne soulignée.
faut-il justement préciser quel classeur ?
Bonjour le fil, bonjour le forum,
Arf ! je sors mon application "Tirage des vers du nez"...
Quel est le message d'erreur ?
Je ne vois qu'une seule explication, l'onglet Feuil1 n'existe pas... Ou il y a un espace avant ou après mais le nom n'est pas EXACTEMENT Feuil1...
[Édition]
Si c'est dans un autre classeur,OUI il faut préciser le nom du classeur avant !
ThauThème a écrit :Bonjour le fil, bonjour le forum,
Arf ! je sors mon application "Tirage des vers du nez"...
Quel est le message d'erreur ?
Je ne vois qu'une seule explication, l'onglet Feuil1 n'existe pas... Ou il y a un espace avant ou après mais le nom n'est pas EXACTEMENT Feuil1...
[Édition]
Si c'est dans un autre classeur,OUI il faut préciser le nom du classeur avant !
je pense pas je viens de vérifier ce n'est pas ça, le code d'erreur est 9
Bonjour Luciana, bonjour le forum,
Si, si... C'est bien ça. C'est ce massage qui s'affiche dans ces cas là...
Pour éviter ce genre d'erreur voilà comment je code :
Dim C1 As Workbook
Dim C2 As Workbook
Dim O1 As Worksheet
Dim O1 As Worksheet
Set W1=ThisWorkook
Set O1=W1.Sheets("Feuil1")
Set W2=Worbooks("L'autre_Classeur_ouvert.xlsx")
Set O2=W2.Sheets("Feuil1")
O2.Range("B2").Value = " Formulaire pour un nouveau collaborateur" ThauThème a écrit :Bonjour Luciana, bonjour le forum,
Si, si... C'est bien ça. C'est ce massage qui s'affiche dans ces cas là...
Pour éviter ce genre d'erreur voilà comment je code :
Dim C1 As Workbook Dim C2 As Workbook Dim O1 As Worksheet Dim O1 As Worksheet Set W1=ThisWorkook Set O1=W1.Sheets("Feuil1") Set W2=Worbooks("L'autre_Classeur_ouvert.xlsx") Set O2=W2.Sheets("Feuil1") O2.Range("B2").Value = " Formulaire pour un nouveau collaborateur"
Merci, mais je dois introduire ce code ou exactement ???
merci d'avance
à vrai dire si les autres classeurs sont fermés, le code marche très bien , mais sur ton code tu précises le nom du classeur, chose que je ne peux prévoir, vu qu'il sera utilisé par d'autres personnes....
à étudier
Bonjour Luciana, bonjour le forum,
Impossible de t'aider davantage sans le fichier qui va bien...