Bonjour à tout ceux qui bossent
Petit problème, j'ai changé tout mes PC: deux PC de bureau et 1 portable sous windows 7 je les ai mis en réseau (groupe résidentiel)
Sur le principal PC j'ai des dossiers excel comprenant des macros
le PC secondaire est relié par Livebox: RJ 45
Le portable en wifi
je vous met les macros ci dessous et les problèmes ensuite

1ere macro
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
Sub imprimefacture()
Sheets("facture").Range("A1:f56").Copy Destination:=Sheets("recafacture").Cells(Sheets("recafacture").Range("A65536").End(xlUp).Row + 1, 1)
 
If [K1] <> "" Then
Range("K1:T1").Copy
Sheets("client").Select
Range("A" & Range("A65536").End(xlUp).Row + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Sheets("facture").Select
End If
If [V1] <> "" Then
Range("V1:AD" & WorksheetFunction.Count(Range("V1:V22"))).Copy
Sheets("journalvente").Select
Range("A" & Range("A65536").End(xlUp).Row + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Sheets("facture").Select
End If
ActiveSheet.Range("A1:F56").PrintOut Copies:=1
Range("E4").Value = Range("E4").Value + 1
Range("B15:B18").ClearContents
Range("A21:C42").ClearContents
Range("F21:F42").ClearContents
Range("E18").ClearContents
Range("C19").ClearContents
End Sub
2eme macro
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub Macro1()
Range("V1:AD22").Select
Selection.Copy
Sheets("journalvente").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("K1:T2").Select
Selection.Copy
Sheets("client").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("facture").Select
End Sub
3eme macro
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Sub registrfacture()
Sheets("facture").Range("A1:f56").Copy Destination:=Sheets("recafacture").Cells(Sheets("recafacture").Range("A65536").End(xlUp).Row + 1, 1)
 
If [K1] <> "" Then
Range("K1:T1").Copy
Sheets("client").Select
Range("A" & Range("A65536").End(xlUp).Row + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Sheets("facture").Select
End If
If [V1] <> "" Then
Range("V1:AD" & WorksheetFunction.Count(Range("V1:V22"))).Copy
Sheets("journalvente").Select
Range("A" & Range("A65536").End(xlUp).Row + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Sheets("facture").Select
End If
Range("E4").Value = Range("E4").Value + 1
Range("B15:B18").ClearContents
Range("A21:C42").ClearContents
Range("F21:F42").ClearContents
Range("E18").ClearContents
Range("C19").ClearContents
End Sub
Quand je travaille sur le PC principal, aucun problème
Quand je travaille sur le PC portable, aucun problème
Quand je travaille sur le PC secondaire,gros problème: j'arrive à ecrire sur excel, mais a partir du moment ou j'utilise les macros, je n'arrive plus à enregistrer mon fichier excel, cela crée un dossier temp, cela coupe la connection internet de ce PC et je n'arrive plus a fermer ce PC
AU secours, j'ai essayé plein de truc, mais suis pas spécialiste
Merci merci de votre aide.
au passage mes macros ne sont peut être pas top