Bug macro ... Help

emmadrienlaes · 22 Septembre 2009

Bonjour,

J'ai un petit souci lors de l'exécution d'un macro :

Je recupère des données via un copier/coller valeur dans plusieurs fichiers ... et à la fermeture des fichiers sources, j'ai ce msg d'erreur : "Le Presse-papiers contient une grande quantité d'information. Voulez vous avoir la possibilité de coller ces informations dans un autre document ultérieurement ? OUI/NON/Annuler"

Je suis obliger de taper "N" pour passer ce msg ... autant de fois que j'ai de fichiers sources.

Voila à quoi ressemble ma macro :
'
VPath = ThisWorkbook.Path & "\Données\"

Sheets("1").Select
Workbooks.Open Filename:=VPath & fichiera1
Range("A1:BB174").Copy
ThisWorkbook.Activate
Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Workbooks(fichiera1).Close SaveChanges:=False

Sheets("2").Select
Workbooks.Open Filename:=VPath & fichiera2
Range("A1:BB174").Copy
ThisWorkbook.Activate
Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Workbooks(fichiera2).Close SaveChanges:=False
'

Que faut il rajouter ?

Merci par avance pour vos solutions ...

Bravo pour ce forum !!!

Christophe

RaceX · 22 Septembre 2009

Re : Bug macro ... Help

Salut,

J'avais trouvé ce bout de code il y a quelques temps.

Code:

Sub ClearClipboard()
Dim oDataObject As DataObject
 
Set oDataObject = New DataObject
oDataObject.SetText ""
oDataObject.PutInClipboard
 
Set oDataObject = Nothing
End Sub

Tu lances cette macro avant la fermeture de chacun de tes classeurs:

Code:

VPath = ThisWorkbook.Path & "\Données\"

Sheets("1").Select
Workbooks.Open Filename:=VPath & fichiera1
Range("A1:BB174").Copy
ThisWorkbook.Activate
Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
[COLOR="Red"]ClearClipboard[/COLOR]
Workbooks(fichiera1).Close SaveChanges:=False

Sheets("2").Select
Workbooks.Open Filename:=VPath & fichiera2
Range("A1:BB174").Copy
ThisWorkbook.Activate
Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
[COLOR="Red"]ClearClipboard[/COLOR]
Workbooks(fichiera2).Close SaveChanges:=False

emmadrienlaes · 22 Septembre 2009

Re : Bug macro ... Help

Malheureusement ... cela ne fonctionne pas ...

Avez vous une autre idée ?

mercant76 · 22 Septembre 2009

Re : Bug macro ... Help

bonjour,

juste avant : Workbooks(fichiera1).Close SaveChanges:=False

ajouter cette ligne :

Application.DisplayAlerts = False

@+

emmadrienlaes · 22 Septembre 2009

Re : Bug macro ... Help

Génial !!!

Il suffit de le mettre avant la fermeture du premier fichier source ...
La desactivation fonctionne pour les autres fermetures

Merci Beaucoup !!!

Bug macro ... Help

emmadrienlaes

XLDnaute Nouveau

RaceX

XLDnaute Junior

emmadrienlaes

XLDnaute Nouveau

mercant76

XLDnaute Impliqué

emmadrienlaes

XLDnaute Nouveau

Discussions similaires