envoyer le contenu d'un userform dans un fichier différent

Bonjour le forum,
Je souhaite savoir comment faire pour envoyer le contenu d'un Userform (textbox, optionbutton etc.) dans un tableur se trouvant sur un autre fichier.

Les deux fichiers se trouvant dans 2 chemins différents.

Merci pour votre aide.Je me sens complètement dépassé par ce concept et c'est une étape utile et importante d'un projet. :aie:

Merci.

Salut à toi,

Par le contenu, tu veux bien parler des valeurs ? Par exemple écrire le contenu de la textbox1 du formulaire dans un autre fichier ? Tu ne parles pas de transférer les objets ? (juste pour être sûr)

Ensuite, ton fichier sera-t-il ouvert ou fermé ?

Si ton fichier peut être ouvert alors c'est facile :

Tu crées ton bouton dans le formulaire, par exemple.. Ce bouton s'appelle ici CommandButton1 pour l'exemple :

Code:

---

1 2 3 4 5 6 7 8 9

Dim wbDistant As Workbook Set wbDistant = Workbooks.Open("ICI TON LIEN COMPLET AVEC L'EXTENSION XLS XLSM OU AUTRE") 'à partir d'ici, pour écrire dans ce fichier, au lieu d'écrire sheets(XXX).Range(XXX) alors tu ajouteras wbDistant.Sheets(YYY).Range(YYY).   'Par exemple, pour envoyer le contenu de ta textbox2 dans le fichier distant en 3ème feuille et en C12 tu marqueras :   wbDistant.Sheets(3).Range("C12").value = TextBox2.Text   'et ainsi de suite

---

Quentin

Par contre, si je suis toujours dans la voie qui t'intéresse, je te conseille du coup d'associer ton fichier contenant le formulaire à une variable (wbOrigine, par ex) pour pouvoir plus précisément gérer les fichiers par la suite...

En effet, ton wbDistant sera ouvert et prendra probablement la main dès que tu écriras la moindre range ou sheet (exactement comme lorsque l'on travaille dans plusieurs feuille, il est fort utile de les spécifier...)

En fait, il faut comprendre que Range("A1") est compris comme ActiveWorkbook.ActiveSheet.Range("A1") donc dès que tu ouvres ton nouveau classeur, s'il passe au premier plan (donc s'il devient actif) alors ton fichier d'origine sera compliqué à récupérer... autant lui donner un nom dès le d

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

'On déclare Dim wbOrigine As Workbook Dim wbDistant As Workbook 'On affecte Set wbOrigine = ActiveWorkbook Set wbDistant = Workbooks.Open("ICI TON LIEN COMPLET AVEC L'EXTENSION XLS XLSM OU AUTRE") 'On joue avec 'à partir d'ici, pour écrire dans ce fichier, au lieu d'écrire sheets(XXX).Range(XXX) alors tu ajouteras wbDistant.Sheets(YYY).Range(YYY). 'et pour écrire dans le wbOrigine, pareil : wbOrigine.Sheets(...).Range(...) = ... 'Par exemple, pour envoyer le contenu de ta textbox2 dans le fichier distant en 3ème feuille et en C12 tu marqueras :   wbDistant.Sheets(3).Range("C12").value = TextBox2.Text   'et ainsi de suite

---

Voilà, en espérant avoir répondu à ta question...

Bonjour Quentin 77170,
Par contenu j'entends effectivement le contenu. Le texte contenu dans une textBox, ou encore les éventualités des OptionButton.
Je cherche le moyen le plus simple de réaliser cette tâche (donc classeur ouvert si c'est plus facile).

J'ai bien compris les erreurs possibles avec le "range("A42")" en revanche définir des variables beaucoup moins.

Parce que définir une variable :

Code:

---

wbOrigine = ActiveWorkbook

---

je ne vois pas ce que ça rajoute au code...

En revanche, si j'ai bien compris pour le wbDistant, il faut spécifier son chemin complet genre

C:\Dossier1\dossier2\fichier.xlsx. que je mets derrière "Workbooks.Open"

c'est bien ça?

Resalut,

Il y a pas mal de tutos et de posts sur les variables mais pour faire simple, ta variable peut contenir une valeur ou un objet

Si ta cellule A1 a pour texte "bonjour" alors marquer Variable =Range("A1") signifie que Variable vaudra simplement le texte "bonjour"

Pour que ta variable devienne une variable objet, liée à la cellule, au classeur ou à tout objet possible, il faut juste spécifier

Code:

---

Set Variable = Range("A1")

---

Maintenant, pour changer la couleur de A1, tu peux passer par ta variable en faisant Variable.Interior.Color = RGB(255,0,0)

Pour être plus carré et que la saisie semi-automatique fonctionne lorsque tu utilises ta variable objet, il faut la déclarer préalablement... Dans ta situation, tu auras wbOrigine et wbDistant qui seront des classeurs Excel (type : Workbook).

Par contre, ton objet peut ne pas encore exister (ex : Un classeur qui n'est pas encore ouvert ou qui n'existe pas), tu peux alors associer la variable avec le nouvel objet ou celui que tu vas ouvrir :

Code:

---

1 2 3 4

Dim Classeur As Workbook Set Classeur = Workbooks.Add 's'il n'existe pas Set Classeur = Workbooks.Open (Chemin) 's'il existe mais qu'il n'est pas ouvert Set Classeur = Workbooks(index ou nom) 's'il existe et est ouvert

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim wbOrigine As Workbook ' ou le nom que tu veux Dim wbDistant As Workbook ' idem, on a donc déclaré 2 variables objets qui seront des classeurs excel   Set wbOrigine = ActiveWorkbook 'En fait, la ligne du dessous te fera perdre ton classeur d'origine comme étant l' 'ActiveWorkbook' Set wbDistant = Workbooks.Open ("Ici effectivement ton lien complet avec l'extension, le tout entre guillemets") 'tu peux rajouter des arguments avec des virgules   'Ensuite, comme je t'ai dit, pour écrire dans le wbdistant, tu fais : wbDistant.Sheets(1).Range("A1").Value = ComboBox1.Text 'etc   'Pour écrire dans ton classeur d'origine, il faudra donc de même passer par wbOrigine.Sheets(1).Range("A1")...

---

En fait, tu n'es pas obligé d'utiliser des variables, mais jouer avec uniquement l'"ActiveWorkbook" est très "risqué", ta macro va très vite être perdue... Comme quand tu travailles entre plusieurs feuilles, surtout si la feuille active change en cours de macro !

J'ai pas spécifié, mais ensuite à l'aide de ta variable que moi j'appellerais wbDistant dans cet exemple, mais que tu peux appeler comme tu veux, tu vas contrôler comme tu veux le classeur en question..

Tu pourras par exemple utiliser wbDistant.Close, wbDistant.Save etc :)

Merci pour toutes ces précisions, ca marche plutôt bien.