Editer une feuille excel sous reseau

Résolu
marooned Messages postés 9 Date d'inscription   Statut Membre Dernière intervention   -  
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   -
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   Statut Modérateur Dernière intervention   2 761
 
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   Statut Membre Dernière intervention   5
 
Merci beaucoup Pijaku, je test :-)
0
marooned Messages postés 9 Date d'inscription   Statut Membre Dernière intervention   5
 
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   Statut Modérateur Dernière intervention   2 761
 
Bien vu, j'avais oublié le + 1

De rien.
A+
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
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   Statut Membre Dernière intervention   5
 
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   Statut Modérateur Dernière intervention   2 761
 
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   Statut Membre Dernière intervention   5
 
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