Erreur d'execution 1004
Marlene629
Messages postés
1
Statut
Membre
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je me permets d'écrire afin d'obtenir un peu d'aide.
J'ai créé une macro mais rien à faire elle bloque:
Sub ALIMBASECLIENT()
'
' ALIMBASECLIENT Macro
'
'
Range("A3").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range("A3:R3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Base de données").Select
Range("A65536").End(xlUp).Offset(1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll ToRight:=15
ActiveWindow.ScrollColumn = 1
Range("A360").Select
Sheets("Saisie").Select
Range("A3:C30,E3:F30,H3:I30,L3:L30,P3:X30").Select
Range("P3").Activate
Application.CutCopyMode = False
Selection.ClearContents
ActiveWindow.SmallScroll ToRight:=-12
Sheets("Suivi de facturation").Select
Range("C8").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
End Sub
Lorsque l'instruction arrive au niveau de:
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
le message erreur d'execution 1004 pointe son nez.
Je ne sais plus quoi faire pour réparer cela.
Je vous remercie infiniment pour votre aide.
Bonne journée!
Marlene
Je me permets d'écrire afin d'obtenir un peu d'aide.
J'ai créé une macro mais rien à faire elle bloque:
Sub ALIMBASECLIENT()
'
' ALIMBASECLIENT Macro
'
'
Range("A3").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range("A3:R3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Base de données").Select
Range("A65536").End(xlUp).Offset(1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll ToRight:=15
ActiveWindow.ScrollColumn = 1
Range("A360").Select
Sheets("Saisie").Select
Range("A3:C30,E3:F30,H3:I30,L3:L30,P3:X30").Select
Range("P3").Activate
Application.CutCopyMode = False
Selection.ClearContents
ActiveWindow.SmallScroll ToRight:=-12
Sheets("Suivi de facturation").Select
Range("C8").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
End Sub
Lorsque l'instruction arrive au niveau de:
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
le message erreur d'execution 1004 pointe son nez.
Je ne sais plus quoi faire pour réparer cela.
Je vous remercie infiniment pour votre aide.
Bonne journée!
Marlene
A voir également:
- Erreur d'execution 1004
- Erreur upes 1025 - Forum Téléviseurs
- Erreur 3000 france tv - Forum Lecteurs et supports vidéo
- Erreur 0x80070643 - Accueil - Windows
- Corriger l'erreur 0x80070643 de la mise à jour KB5034441 de Windows 10 - Accueil - Windows
- Code erreur f3500-31 ✓ - Forum Bbox Bouygues
2 réponses
Bonjour,
je ne suis pas un pro mais essayer le code ci dessous chez moi il fonctionne.
Sub ALIMBASECLIENT()
'
' ALIMBASECLIENT Macro
'
Range("A3").Select
Range(Selection, Selection.End(xlToRight)).Select
Range("A3:R3").Select
Range(Selection, Selection.End(xlDown)).Copy
Sheets("Base de données").Select
Range("A65536").End(xlUp).Offset(1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A360").Select
Sheets("Saisie").Select
Range("A3:C30,E3:F30,H3:I30,L3:L30,P3:X30").Select
Range("P3").Activate
Application.CutCopyMode = False
Selection.ClearContents
Sheets("Suivi de facturation").Select
Range("C8").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
End Sub
je ne suis pas un pro mais essayer le code ci dessous chez moi il fonctionne.
Sub ALIMBASECLIENT()
'
' ALIMBASECLIENT Macro
'
Range("A3").Select
Range(Selection, Selection.End(xlToRight)).Select
Range("A3:R3").Select
Range(Selection, Selection.End(xlDown)).Copy
Sheets("Base de données").Select
Range("A65536").End(xlUp).Offset(1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A360").Select
Sheets("Saisie").Select
Range("A3:C30,E3:F30,H3:I30,L3:L30,P3:X30").Select
Range("P3").Activate
Application.CutCopyMode = False
Selection.ClearContents
Sheets("Suivi de facturation").Select
Range("C8").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
End Sub
Bonjour,
Pour ton blocage 1004 où j'arr^te le code, mais il me semble que tu vas avoir d'autres blocages: tu dis si ca arrive
Pour ton blocage 1004 où j'arr^te le code, mais il me semble que tu vas avoir d'autres blocages: tu dis si ca arrive
Option Explicit
'-----------------------------
Sub ALIMBASECLIENT()
Dim Source, Cible As Range
Source = ActiveSheet.Range("A3:R3")
With Sheets("Base de données")
Set Cible = .Range("A65536").End(xlUp).Offset(1)
Cible.Resize(1, 18) = Source
End With
'.........
