Editer une feuille excel sous reseau

Résolu/Fermé
marooned Messages postés 9 Date d'inscription mardi 1 juillet 2008 Statut Membre Dernière intervention 18 mai 2018 - Modifié par marooned le 1/10/2014 à 22:45
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 3 oct. 2014 à 09:13
Bonjour à tous,
Voilà j'aimerais éditer une feuille excel qui se trouve sous réseau à partir d'une feuille en local. par exemple copier certaine cellule de la feuille en locale vers la feuille sous réseau.

Quelqu'un à-t-il une idée.

Merci d'avance pour votre aide.
A voir également:

4 réponses

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
3 oct. 2014 à 08:10
Bonjour,

Tu as 3 choses à adapter : le nom des deux feuilles et le chemin complet (avec nom du fichier et extension)

Private Sub CommandButton1_Click()
Dim Wbk As Workbook, Chemin As String
Dim Client As String, Référence As String, Montant As Double, Jour As Date, Qui As String

With ThisWorkbook.Sheets("Feuil1") ' A ADAPTER
    Client = .Range("A3")
    Référence = .Range("E20")
    Montant = .Range("M23")
    Jour = CDate(.Range("C12"))
    Qui = .Range("B6")
End With
Chemin = "N:\Users\franck\Desktop\Mouvement\Travail\ClasseurTest.xlsx" 'A ADAPTER
Set Wbk = Workbooks.Open(Chemin)
With Wbk.Sheets("Feuil1") 'A ADAPTER
    dl = .Range("A" & Rows.Count).End(xlUp).Row
    .Range("A" & dl) = Client
    .Range("B" & dl) = Référence
    .Range("C" & dl) = Montant
    .Range("D" & dl) = Jour
    .Range("E" & dl) = Qui
End With
ActiveWorkbook.Close True
End Sub

2
marooned Messages postés 9 Date d'inscription mardi 1 juillet 2008 Statut Membre Dernière intervention 18 mai 2018 5
3 oct. 2014 à 08:43
Merci beaucoup Pijaku, je test :-)
0
marooned Messages postés 9 Date d'inscription mardi 1 juillet 2008 Statut Membre Dernière intervention 18 mai 2018 5
3 oct. 2014 à 09:10
J'ai ajouté un "+1" à cette instruction:
dl = .Range("A" & Rows.Count).End(xlUp).Row

car la macro ne passait pas à la ligne suivante . pour le reste tout est nickel.... merci à jamais Pijaku.
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
3 oct. 2014 à 09:13
Bien vu, j'avais oublié le + 1

De rien.
A+
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
2 oct. 2014 à 10:21
Bonjour,

Qu'appelles tu "éditer"?
Dis nous ce que tu veux faire exactement .
Dis nous également si tu disposes des accès au réseau au répertoire et fichier "distant".
S'agit-il d'un réseau d'entreprise, de particulier ou Internet?
1
marooned Messages postés 9 Date d'inscription mardi 1 juillet 2008 Statut Membre Dernière intervention 18 mai 2018 5
2 oct. 2014 à 12:37
Merci Pijaku pour ta réponse,
pour faire simple, j'aimerais copier des certain cellules (ex: A3; E20; C12; B6) d'un classeur local vers un classeur excel qui se trouve sous réseau à partir. en sachant que les cellules copiées vers la feuille en réseau soient classée sous forme de tableau.
donc à chaque fois que je clique sur le bouton "save" de mon classeur local une ligne dans le classeur en réseau est ajoutée.
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
2 oct. 2014 à 12:49
j'aimerais copier des certain cellules (ex: A3; E20; C12; B6)
OK. Lesquelles???

qui se trouve sous réseau à partir
A partir de ou?

soient classée sous forme de tableau.
C'est à dire?

Cela semble clair pour vous, mais pour nous ça ne l'est pas du tout...
0
marooned Messages postés 9 Date d'inscription mardi 1 juillet 2008 Statut Membre Dernière intervention 18 mai 2018 5
2 oct. 2014 à 15:46
J'ai un classeur "X" avec lequel j'établis des offres commerciales qui se trouve dans mon PC, que j'ouvre, il contient des cellules que je veux classer dans un tableau.
J'ouvre mon classeur "X", je l'utilise, j'ai un resultat, et lorsque je clique sur un bouton "save" (par exemple), une macro s'exécute et copiera certaines cellule de "X" (par exemple : A3="client"; E20="référence"; M23=Montant; C12="date"; B6="etablie par") vers mon classeur "Y" qui lui se trouve dans un chemin que je connais : path = "\\chemin1\chemin2\chemin3\".
au niveau du classeur "Y" (le classeur sous réseau) les cellules devront être classées sous forme de tableau

Client | Référence | Montant | Date | Etablis par
__________________________________________
A3 | E20 | M23 | C12 | B6
A3' | E20' | M23' | C12' | B6'

etc...

Ceci pour me permettre de savoir quelles sont les offres et le montant des offres que j'ai pu faire.
0