Bonjour à tous,
Une fois de plus je viens vers vous pour un petit problème que je rencontre dans une macro.
J'aimerais copier/coller des ranges, mais uniquement les valeurs (pour ne pas modifier les mises en forme conditionnelles de la destination).
Pour ce faire j'ai tenté ce code, mais un message d'erreur apparaît :
Je pense que le problème vient du ".Value" que j'ai rajouté sur chaque ligne de copie....
Le message qui s'affiche est le suivant "La methode copy de la classe Range a échoué."
Auriez vous une idée pour résoudre ce problème ?
Merci d'avance !!
Une fois de plus je viens vers vous pour un petit problème que je rencontre dans une macro.
J'aimerais copier/coller des ranges, mais uniquement les valeurs (pour ne pas modifier les mises en forme conditionnelles de la destination).
Pour ce faire j'ai tenté ce code, mais un message d'erreur apparaît :
VB:
Sub Convert()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim Fichier As Variant
'Recherche du fichier
Fichier = Application.GetOpenFilename("Tous les fichiers (*.*),*.*")
If Fichier <> False Then 'Si on n'a pas cliqué sur "Annuler"
Workbooks.Open Filename:=Fichier 'Ouverture du fichier
NomFichier = Dir(Fichier) 'Nom du fichier sans le chemin
With Workbooks(NomFichier) 'Avec le fichier que l'on vient d'ouvrir
'Copie de l'onglet Data
Worksheets("Data").Activate
Worksheets("Data").Range("A2:BB1000").Select
'Copie de la sélection dans le fichier actuel
Selection.Copy ThisWorkbook.Sheets("DATA").Range("A2").Value
'Copie de l'onglet Toto
Worksheets("Toto").Activate
Worksheets("Toto").Range("B6:B505").Select
Selection.Copy ThisWorkbook.Sheets("Toto").Range("B6").Value
etc...
Application.DisplayAlerts = True
End If
End Sub
Je pense que le problème vient du ".Value" que j'ai rajouté sur chaque ligne de copie....
Le message qui s'affiche est le suivant "La methode copy de la classe Range a échoué."
Auriez vous une idée pour résoudre ce problème ?
Merci d'avance !!