groupe résidentiel et macro
Bonjour à tout ceux qui bossent:cry:
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:
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:
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:
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:cry:: 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:oops:
Merci merci de votre aide.:ccool:
au passage mes macros ne sont peut être pas top
