Enregistrer sur une feuille externe

Bonjour,

J'aimerai si possible pouvoir a partir d'une feuille excel, un enregistrement des donnés dans une autre feuille excel, lorsque l'utilisateur clique sur un bouton.

J'aimerai que lorsque la personne clique sur le bouton, la ligne soit clear et les données dans l'autre feuille soient protégées par un mot de passe.

Merci d'avance

Bonjour,

Vois ce lien https://www.excel-pratique.com/forum/viewtopic.php?t=10386

Fais aussi une recherche sur le mot "Transfert" pour trouver pas mal de sujets relatifs à ta demande.

Si pb, place ton fichier avec l'explication de ce que tu cherches à faire

Amicalement

Dan

Bonjour et merci

https://www.excel-pratique.com/~files/doc2/DB.xls

voici mon fichier, j'ai regerdé mais je ne comprend pas le VB, j'ai ai jamais fait en faite.

Merci

re,

Quelles sont les colonnes à exporter vers la feuille OTHER ?

A te relire

Dan

de A a L

merci

re,

Ok. Je vois que tu veux deux actions avec le même bouton ou tu veux un bouton par action ?

Si tu veux 1 seul bouton, merci de préciser l'ordre des choses.

Pour ce qui est de la ligne "Clear", tu veux supprimer la ligne ou uniquement les données dans cette ligne ?

A te relire

Dan

non je veux supprimer les données, et je veux les deux actions si possible avec le meme bouton

Re,

On considère que la cellule N1 est celle qui reprend le WTY N. Donc dans ton fichier la ligne 1 étant complétée, tu devrais y mettre le chiffre 2.

Utilise cette macro et associe la à ton bouton :

Sub Transfert()
'Macro Dan pour Saviola.pag le 05/05/09
'http://forum.excel-pratique.com/viewtopic.php?t=11231
Dim lig As Integer, dlig As Integer
lig = ActiveCell.Row
dlig = Sheets("OTHER").Range("B65536").End(xlUp).Row + 1
If ActiveCell.Row <> 1 Then
Range("A" & lig & ":" & "L" & lig).Copy Sheets("OTHER").Range("A" & dlig)
Rows(lig).ClearContents
Range("N1") = Range("N1") + 1
Range("B" & lig) = Range("N1")
End If
End Sub

L'incrémentation du WTY sera automatique et le nouveau numéro sera indiqué dans la cellule de la ligne effacée.

Amicalement

Dan

Ca marche presque...

https://www.excel-pratique.com/~files/doc2/cyAdcDB.xls

Si vous pouvez jeter un dernier coup d'oeil.

Merci encore

Amicalement

Pierre

re,

Est-il possible que la ligne s'efface automatiquement?

C'est ce que fais la macro. La ligne effacée est celle de la cellule sélectionnée.

Pourquoi seulement le numero de WTY s'inscrit dans le feuillet RECORD?

Normal, puisque tu n'as pas de données dans les autres colonnes de la feuille ENTER.

Pourquoi le chiffre s'ecrit egalement en B7?

La macro te rajoute en colonne B, le nouveau WTY incrémenté. Il ne te reste qu'à compléter la ligne.

Dan

OK c'est bon ca marche, merci beaucoup.

J'ai deux derniere questions, dit moi si tu n'as pas le temps, je peut comprendre.

J'aimerais savoir si il est possiible d'avoir plusieur produit avec le meme numero WTY.

Je m'explique, certaine WTY ont deux produit, mais elle ont le meme numero...

Enfin est-il possible de mettre un bouton qui ouvre automatiquement un fichier word, car j'ai creer un fichier de publipostage a partir de mon excel mais j'aimerais commamder son ouverture depuis excel.

Merci d'avance

(Chapeau pour tes connaissances)

re,

J'aimerais savoir si il est possible d'avoir plusieurs produit avec le meme numero WTY.

Non car la macro prévoit un seul numéro. Si le WTY peut avoir un doublon, pourquoi demander à la macro de créer ce numéro ou alors je n'ai pas compris la manière dont tu travailles.

Dan

Non c'est juste qu'il peu avoir plusieurs produits pour un seul numero de WTY.

Sinon je vais rajouter des colonne où j'écrirais Porduit 2.

Et pour les fichier word?

re,

Le fichier Word se trouve dans quel répertoire ?

Dan

Voici le repertoire

G:\French Students\GALLION Pierre-Alain\Task 2 Warranty

et le fichier est WTY002.doc

merci d'avance

Re,

Essaie avec ce code

Sub ouvreWord()
MyAppID = _
Shell("C:\Program Files\Microsoft Office\Office\Winword.EXE G:\French Students\GALLION Pierre-Alain\Task 2 Warranty\WTY002.doc", 1)
AppActivate MyAppID
End Sub

Amicalement

Dan

Bonjour,

J'arrive à faire lancer word mais apres il ne veut pas ouvrir le fichier:

"The document name or path is not valid. Try these suggestions.

Check the file permissions for the document or drive

Use the file open dialog box to locate the document"

Si j'insere un lien hypertext cela fonctionne, ce n'est donc pas leur premiere suggestion?

D'autre part je ne comprend pas pourquoi le WTY number ce remet sur 1???

https://www.excel-pratique.com/~files/doc2/Ws4HTDB1.2.zip

Merci d'avance

Amicalement PA

Re,

Evidemment si tu changes ton fichier...

Sur base de ton dernier fichier, mets le chiffre 1 dans la cellule P1 puis remplace le code par celui-ci

Sub Transfert()
'Macro Dan pour Saviola.pag le 05/05/09
'http://forum.excel-pratique.com/viewtopic.php?t=11231
Dim lig As Integer, dlig As Integer
lig = ActiveCell.Row
dlig = Sheets("RECORD").Range("B65536").End(xlUp).Row + 1
If ActiveCell.Row <> 1 Then
Range("A" & lig & ":" & "O" & lig).Copy Sheets("RECORD").Range("A" & dlig)
Rows(lig).ClearContents
Range("P1") = Range("P1") + 1
Range("B" & lig) = Range("P1")
End If
End Sub

Pour le code Word, désolé mais je ne peux pas tester. Essaie de voir où se trouve le programme Microsoft Word. Ici j'ai supposé qu'il est dans c:\program file...

Dan

ok merci beaucoup

Re,

Si ton pb est solutionné merci de mettre RESOLU sur le fil. Explications par ici --> https://www.excel-pratique.com/forum/viewtopic.php?t=13

Merci de ta participation

Dan